高分请教!!如何在应用程序结束时关闭数据库连接

0X000000该内存不能为read written的解决方法

出现这个现象有方面的，一是硬件，即内存方面有问题，二是软件，这就有多方面的问题了。

一：先说说硬件：

一般来说，电脑硬件是很不容易坏的。内存出现问题的可能性并不大（除非你的内存真的是杂牌的一塌徒地），主要方面是：1。内存条坏了（二手内存情况居多）、2。使用了有质量问题的内存，3。内存插在主板上的金手指部分灰尘太多。4。使用不同品牌不同容量的内存，从而出现不兼容的情况。5。超频带来的散热问题。你可以使用MemTest 这个软件来检测一下内存，它可以彻底的检测出内存的稳定度。

二、如果都没有，那就从软件方面排除故障了。

先说原理：内存有个存放数据的地方叫缓冲区，当程序把数据放在缓冲区，需要 *** 作系统提供的“功能函数”来申请，如果内存分配成功，函数就会将所新开辟的内存区地址返回给应用程序，应用程序就可以通过这个地址使用这块内存。这就是“动态内存分配”，内存地址也就是编程中的“光标”。内存不是永远都招之即来、用之不尽的，有时候内存分配也会失败。当分配失败时系统函数会返回一个0值，这时返回值“0”已不表示新启用的光标，而是系统向应用程序发出的一个通知，告知出现了错误。作为应用程序，在每一次申请内存后都应该检查返回值是否为0，如果是，则意味着出现了故障，应该采取一些措施挽救，这就增强了程序的“健壮性”。若应用程序没有检查这个错误，它就会按照“思维惯性”认为这个值是给它分配的可用光标，继续在之后的执行中使用这块内存。真正的0地址内存区储存的是计算机系统中最重要的“中断描述符表”，绝对不允许应用程序使用。在没有保护机制的 *** 作系统下(如DOS)，写数据到这个地址会导致立即当机，而在健壮的 *** 作系统中，如Windows等，这个 *** 作会马上被系统的保护机制捕获，其结果就是由 *** 作系统强行关闭出错的应用程序，以防止其错误扩大。这时候，就会出现上述的内存不能为“read”错误，并指出被引用的内存地址为“0x00000000“。内存分配失败故障的原因很多，内存不够、系统函数的版本不匹配等都可能有影响。因此，这种分配失败多见于 *** 作系统使用很长时间后，安装了多种应用程序(包括无意中“安装”的病毒程序)，更改了大量的系统参数和系统档案之后。

在使用动态分配的应用程序中，有时会有这样的情况出现：程序试图读写一块“应该可用”的内存，但不知为什么，这个预料中可用的光标已经失效了。有可能是“忘记了”向 *** 作系统要求分配，也可能是程序自己在某个时候已经注销了这块内存而“没有留意”等等。注销了的内存被系统回收，其访问权已经不属于该应用程序，因此读写 *** 作也同样会触发系统的保护机制，企图“违法”的程序唯一的下场就是被 *** 作终止执行，回收全部资源。计算机世界的法律还是要比人类有效和严厉得多啊！像这样的情况都属于程序自身的BUG，你往往可在特定的 *** 作顺序下重现错误。无效光标不一定总是0，因此错误提示中的内存地址也不一定为“0x00000000”，而是其它随机数字。

首先建议：

1、 检查系统中是否有木马或病毒。这类程序为了控制系统往往不负责任地修改系统，从而导致 *** 作系统异常。平常应加强信息安全意识，对来源不明的可执行程序绝不好奇。

2、 更新 *** 作系统，让 *** 作系统的安装程序重新拷贝正确版本的系统档案、修正系统参数。有时候 *** 作系统本身也会有BUG，要注意安装官方发行的升级程序。

3、 尽量使用最新正式版本的应用程序、Beta版、试用版都会有BUG。

4、 删除然后重新创建 Winnt\System32\Wbem\Repository 文件夹中的文件：在桌面上右击我的电脑，然后单击管理。 在"服务和应用程序"下，单击服务，然后关闭并停止 Windows Management Instrumentation 服务。 删除 Winnt\System32\Wbem\Repository 文件夹中的所有文件。（在删除前请创建这些文件的备份副本。） 打开"服务和应用程序"，单击服务，然后打开并启动 Windows Management Instrumentation 服务。当服务重新启动时，将基于以下注册表项中所提供的信息重新创建这些文件： HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WBEM\CIMOM\Autorecover MOFs

下面搜集几个例子给大家分析：

例一：IE浏览器出现“08ba9ef”指令引用的“0x03713644” 内存，或者“0x70dcf39f”指令引用的“0x00000000”内存。该内存不能为“read”。要终止程序，请单击“确定”的信息框，单击“确定”后，又出现“发生内部错误，您正在使用的其中一个窗口即将关闭”的信息框，关闭该提示信息后，IE浏览器也被关闭。解决方法：

1、 开始-运行窗口，输入“regsvr32 actxprxydll”回车，接着会出现一个信息对话 框“DllRegisterServer in actxprxydll succeeded”，确定。再依次运行以下命令。（这个方法有人说没必要，但重新注册一下那些dll对系统也没有坏处，反正多方下手，能解决问题就行。）

regsvr32 shdocvwdll

regsvr32 oleaut32dll

regsvr32 actxprxydll

regsvr32 mshtmldll

regsvr32 msjavadll

regsvr32 browseuidll

regsvr32 urlmondll

2、 修复或升级IE浏览器，同时打上系统补丁。看过其中一个修复方法是，把系统还原到系统初始的状态下。建议将IE升级到了60。

例二：有些应用程序错误: “0x7cd64998” 指令参考的 “0x14c96730” 内存。该内存不能为 “read”。解决方法：Win XP的“预读取”技术这种最佳化技术也被用到了应用程序上，系统对每一个应用程序的前几次启动情况进行分析，然后新增一个描述套用需求的虚拟“内存映像”，并把这些信息储存到Windows\Prefetch文件夹。一旦建立了映像，应用软件的装入速度大大提高。XP的预读取数据储存了最近8次系统启动或应用软件启动的信息。建议将虚拟内存撤换，删除Windows\Prefetch目录下所有PF文件，让windows重新收集程序的物理地址。

例三：在XP下双击光盘里面的“AutoRunexe”文件，显示“0x77f745cc”指令引用的“0x00000078”内存。该内存不能为“written”，要终止程序，请单击“确定”，而在Windows 98里运行却正常。 解决方法：这可能是系统的兼容性问题，winXP的系统，右键“AutoRunexe”文件，属性，兼容性，把“用兼容模式运行这个程序”项选择上，并选择“Windows 98/Me”。win2000如果打了SP的补丁后，只要开始，运行，输入：regsvr32 c:\winnt\apppatch\slayeruidll。右键，属性，也会出现兼容性的选项。

例四：RealOne Gold关闭时出现错误，以前一直使用正常，最近却在每次关闭时出现“0xffffffff”指令引用的“0xffffffff”内存。该内存不能为“read” 的提示。 解决方法：当使用的输入法为微软拼音输入法2003，并且隐藏语言栏时（不隐藏时没问题）关闭RealOne就会出现这个问题，因此在关闭RealOne之前可以显示语言栏或者将任意其他输入法作为当前输入法来解决这个问题。

例五：我的豪杰超级解霸自从上网后就不能播放了，每次都提示“0x060692f6”（每次变化）指令引用的“0xff000011”内存不能为“read”，终止程序请按确定。 解决方法：试试重装豪杰超级解霸,如果重装后还会，到官方网站下载相应版本的补丁试试。还不行，只好换就用别的播放器试试了。

例六：双击一个游戏的快捷方式，“0x77f5cd0”指令引用“0xffffffff”内 存，该内存不能为“read” ，并且提示Clientdat程序错误。解决方法：重装显卡的最新驱动程序，然后下载并且安装DirectX90。

例七：一个朋友发信息过来，我的电脑便出现了错误信息:“0x772b548f”指令引用的“0x00303033”内存，该内存不能为“written”,然后QQ自动下线，而再打开QQ，发现了他发过来的十几条的信息。 解决方法：这是对方利用QQ的BUG，发送特殊的代码，做QQ出错，只要打上补丁或升级到最新版本，就没事了。

该内存不能为read或written的解决方案关键词： 该内存不能为"read" 该内存不能为"written"

从网上搜索来的几篇相关文章

文章一

使用Windows *** 作系统的人有时会遇到这样的错误信息：

「“0X”指令引用的“0x00000000”内存，该内存不能为“read”或“written”」，然后应用程序被关闭。

如果去请教一些「高手」，得到的回答往往是「Windows就是这样不稳定」之类的义愤和不屑。其实，这个错误并不一定是Windows不稳定造成的。本文就来简单分析这种错误的一般原因。

一、应用程序没有检查内存分配失败

程序需要一块内存用以储存数据时，就需要使用 *** 作系统提供的「功能函数」来申请，如果内存分配成功，函数就会将所新开辟的内存区地址返回给应用程序，应用程序就可以通过这个地址使用这块内存。这就是「动态内存分配」，内存地址也就是编程中的「光标」。内存不是永远都招之即来、用之不尽的，有时候内存分配也会失败。当分配失败时系统函数会返回一个0值，这时返回值「0」已不表示新启用的游标，而是系统向应用程序发出的一个通知，告知出现了错误。作为应用程序，在每一次申请内存后都应该检查返回值是否为0，如果是，则意味着出现了故障，应该采取一些措施挽救，这就增强了程序的「健壮性」。若应用程序没有检查这个错误，它就会按照「思维惯性」认为这个值是给它分配的可用游标，继续在之后的执行中使用这块内存。真正的0地址内存区储存的是计算机系统中最重要的「中断描述符表」，绝对不允许应用程序使用。在没有保护机制的 *** 作系统下(如DOS)，写数据到这个地址会导致立即当机，而在健壮的 *** 作系统中，如Windows等，这个 *** 作会马上被系统的保护机制捕获，其结果就是由 *** 作系统强行关闭出错的应用程序，以防止其错误扩大。这时候，就会出现上述的「写内存」错误，并指出被引用的内存地址为「0x00000000」。内存分配失败故障的原因很多，内存不够、系统函数的版本不匹配等都可能有影响。因此，这种分配失败多见于 *** 作系统使用很长时间后，安装了多种应用程序(包括无意中「安装」的病毒程序)，更改了大量的系统参数和系统档案之后。

二、应用程序由于自身BUG引用了不正常的内存光标

在使用动态分配的应用程序中，有时会有这样的情况出现：程序试突读写一块「应该可用」的内存，但不知为什么，这个预料中可用的光标已经失效了。有可能是「忘记了」向 *** 作系统要求分配，也可能是程序自己在某个时候已经注销了这块内存而「没有留意」等等。注销了的内存被系统回收，其访问权已经不属于该应用程序，因此读写 *** 作也同样会触发系统的保护机制，企图「违法」的程序唯一的下场就是被 *** 作终止执行，回收全部资源。计算机世界的法律还是要比人类有效和严厉得多啊！像这样的情况都属于程序自身的BUG，你往往可在特定的 *** 作顺序下重现错误。无效光标不一定总是0，因此错误提示中的内存地址也不一定为「0x00000000」，而是其它随机数字。如果系统经常有所提到的错误提示，下面的建议可能会有说明 ：

1检视系统中是否有木马或病毒。这类程序为了控制系统往往不负责任地修改系统，

从而导致 *** 作系统异常。平常应加强信息安全意识，对来源不明的可执行程序绝不好奇。

2更新 *** 作系统，让 *** 作系统的安装程序重新拷贝正确版本的系统档案、修正系统参数。

有时候 *** 作系统本身也会有BUG，要注意安装官方发行的升级程序。

3试用新版本的应用程序。

Mode:

将虚拟内存撤换

答案:

目前为止是肯定的，也就是如在下次冷天到来时亦没再发生，就代表这是主因

追加:

如果你用 Ghost 恢复 OS 后建议 删除WINDOWS＼PREFETCH目录下所有PF文件因为需让windows重新收集程序的物理地址

有些应用程序错误 "0x7cd64998" 指令参考的 "0x14c96730" 内存。该内存不能为 "read"推论是此原因

源由:

Win XP的「预读取」技术

这种最佳化技术也被用到了应用软件上，系统对每一个应用软件的前几次启动情况进行分析，然后新增一个描述套用需求的虚拟「内存映像」，并把这些信息储存到WINDOWSPREFETCH数据夹。一旦建立了映像，应用软件的装入速度大大提高。XP的预读取数据储存了最近8次系统启动或应用软件启动的信息。

后叙:

目前此方法亦是独步网络的(其码自己针对此问题查了许久)，也是常见问题，原本几乎每天睡前关闭软件时一些程序都会发生read

现在就没发生了。

文章二

运行某些程序的时候，有时会出现内存错误的提示（0x后面内容有可能不一样），然后该程序就关闭。

“0x”指令引用的“0x”内存。该内存不能为“read”。

“0x”指令引用的“0x”内存，该内存不能为“written”。

不知你出现过类似这样的故障吗？

一般出现这个现象有方面的，一是硬件，即内存方面有问题，二是软件，这就有多方面的问题了。

下面先说说硬件：

一般来说，内存出现问题的可能性并不大，主要方面是：内存条坏了、内存质量有问题，还有就是2个不同牌子不同容量的内存混插，也比较容易出现不兼容的情况，同时还要注意散热问题，特别是超频后。你可以使用MemTest 这个软件来检测一下内存，它可以彻底的检测出内存的稳定度。

假如你是双内存，而且是不同品牌的内存条混插或者买了二手内存时，出现这个问题，这时，你就要检查是不是内存出问题了或者和其它硬件不兼容。

如果都没有，那就从软件方面排除故障了。

先简单说说原理：内存有个存放数据的地方叫缓冲区，当程序把数据放在其一位置时，因为没有足够空间，就会发生溢出现象。举个例子：一个桶子只能将一斤的水，当你放入两斤的水进入时，就会溢出来。而系统则是在屏幕上表现出来。这个问题，经常出现在windows2000和XP系统上，Windows 2000/XP对硬件的要求是很苛刻的,一旦遇到资源死锁、溢出或者类似Windows 98里的非法 *** 作，系统为保持稳定，就会出现上述情况。另外也可能是硬件设备之间的兼容性不好造成的。

下面我从几个例子给大家分析：

例一：打开IE浏览器或者没过几分钟就会出现"0x70dcf39f"指令引用的"0x00000000"内存。该内存不能为“read”。要终止程序，请单击“确定”的信息框，单击“确定”后，又出现“发生内部错误，您正在使用的其中一个窗口即将关闭”的信息框，关闭该提示信息后，IE浏览器也被关闭。 解决方法：修复或升级IE浏览器，同时打上补丁。看过其中一个修复方法是，Win2000自升级，也就是Win2000升级到Win2000，其实这种方法也就是把系统还原到系统初始的状态下。比如你的IE升级到了60，自升级后，会被IE50代替。

例二：在windows xp下双击光盘里面的“AutoRunexe”文件，显示“0x77f745cc”指令引用的“0x00000078”内存。该内存不能为“written”，要终止程序，请单击“确定”，而在Windows 98里运行却正常。 解决方法：这可能是系统的兼容性问题，winXP的系统，右键“AutoRunexe”文件，属性，兼容性，把“用兼容模式运行这个程序”项选择上，并选择“Windows 98/Me”。win2000如果打了SP的补丁后，只要开始，运行，输入：regsvr32 c:\winnt\apppatch\slayeruidll。右键，属性，也会出现兼容性的选项。

例三：RealOne Gold关闭时出现错误，以前一直使用正常，最近却在每次关闭时出现“0xffffffff”指令引用的“0xffffffff”内存。该内存不能为“read” 的提示。 解决方法：当使用的输入法为微软拼音输入法2003，并且隐藏语言栏时（不隐藏时没问题）关闭RealOne就会出现这个问题，因此在关闭RealOne之前可以显示语言栏或者将任意其他输入法作为当前输入法来解决这个问题。

例四：我的豪杰超级解霸自从上网后就不能播放了，每次都提示“0x060692f6”（每次变化）指令引用的“0xff000011”内存不能为“read”，终止程序请按确定。 解决方法：试试重装豪杰超级解霸,如果重装后还会，到官方网站下载相应版本的补丁试试。还不行，只好换就用别的播放器试试了。

例五：双击一个游戏的快捷方式，“0x77f5cd0”指令引用“0xffffffff”内 存，该内存不能为“read” ，并且提示Clientdat程序错误。 解决方法：重装显卡的最新驱动程序，然后下载并且安装DirectX90。

例六：一个朋友发信息过来，我的电脑便出现了错误信息:“0x772b548f”指令引用的“0x00303033”内存，该内存不能为“written”,然后QQ自动下线，而再打开QQ，发现了他发过来的十几条的信息。 解决方法：这是对方利用QQ的BUG，发送特殊的代码，做QQ出错，只要打上补丁或升级到最新版本，就没事了。

原因 解决方法

1 内存条坏了 更换内存条

2 双内存不兼容 使用同品牌的内存或只要一条内存

3 内存质量问题 更换内存条

4 散热问题 加强机箱内部的散热

5 内存和主板没插好或其他硬件不兼容 重插内存或换个插槽

6 硬件有问题 更换硬盘

7 驱动问题 重装驱动,如果是新系统,应先安装主板驱动

8 软件损坏 重装软件

9 软件有BUG 打补丁或更新到最新版本

10 软件和系统不兼容 给软件打上补丁或是试试系统的兼容模式

11 软件和软件之间有冲突 如果最近安装了什么新软件,卸载了试试

12 软件要使用其他相关的软件有问题 重装相关软件,比如播放某一格式的文件时出错,可能是这个文件的解码器有问题

13 病毒问题 杀毒

14 杀毒软件与系统或软件相冲突 由于杀毒软件是进入底层监控系统的,可能与一些软件相冲突,卸载试试

15 系统本身有问题 有时候 *** 作系统本身也会有BUG,要注意安装官方发行的更新程序,象SP的补丁,最好打上如果还不行,重装系统,或更换其他版本的系统。

〔又一说〕

在控制面板的添加/删除程序中看看你是否安装了微软NETFramework，如果已经安装了，可以考虑卸载它，当然如果你以后在其它程序需要NETFramework时候，可以再重新安装。

另外，如果你用的是ATI显卡并且你用的是SP2的补丁（一些ATI的显卡驱动需要在NETFramework正常工作的环境下）。这种情况你可以找一款不需要NETFramework支持的ATI显卡驱动。

如果以上两种方法并不能完全解决问题，你试着用一下“IE修复”软件，并可以查查是否有病毒之类的。

〔微软NETFramework升级到11版应该没问题了〕

〔还有一说〕

方法一：

微软新闻组的朋友指点:开始--运行：regsvr32 jscriptdll

开始--运行：regsvr32 vbscriptdll

不过没解决---但提供了路子-----一次运行注册所有dll

搜索查找到方法如下:

运行 输入cmd 回车在命令提示符下输入

for %1 in (%windir%\system32\dll) do regsvr32exe /s %1

这个命令老兄你慢慢输 输入正确的话会看到飞快地滚屏 否则……否则失败就是没这效果。回车后慢慢等（需要点时间1-2分钟） 都运行完再打开看

方法二：

这是个典型问题~~~~~引起这个问题的原因很多。一般来讲就是给系统打上补丁和更换内存、给内存换个插槽这3种方法来解决。[系统补丁只要到Microsoft Update网站在线更新就可以了]

造成这种问题的原因很多，不能单纯的下结论，尽量做到以下几点可能对你有帮助：

1。确保使用的是未修改过的软件（非汉化、破解版）

2。使用改软件时尽量不要运行其他软件。（这是个临时文件，可能某些软件也在使用临时文件夹，所以产生干扰）

3。把那些什么桌面工具，内存整理工具通通关掉（你至少有2个类似的工具在运行）”

处理方法：

运行regedit进入注册表, 在HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ShellExecuteHooks下，应该只有一个正常的键值"{AEB6717E-7E19-11d0-97EE-00C04FD91972}, 将其他的删除。

〔我个人的最后解决和看法〕

我今天尝试了多种办法，最后我发现问题出在微软的NETFramework上面。我升级了这个软件，并打齐了补丁，短暂平安后，有出现“内存不能为read”的情况。后来我受上面文章的启发，卸载了微软的NETFramework10和11,世界太平了。

另外：如果是打开“我的电脑”、“我的文档”等的时候出现上述情况，还有一种可能，就是你的右键菜单太臃肿了，此时只要清理右键菜单问题就解决了。

--------------------------------------------------------------------------------

〔试验的结果〕

上面的方法，最管用、最彻底的方法是这个：

运行 输入cmd 回车在命令提示符下输入

for %1 in (%windir%\system32\dll) do regsvr32exe /s %1

技巧如果怕输入错误的话，可以复制这条指令，然后在命令提示框点击左上角的c：\，使用下面的“编辑－粘贴”功能就不容易输错了。在飞速滚屏完全静止之后，别着急启动其他程序，先耐心等一会儿，因为此时dll们还在找位置。直到你的指示灯不闪了再做别的

1、打开代码窗口，添加引用：Imports SystemDataSqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192168179; Initial Catalog= student; User ID= panqe;PWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=; Integrated Security=False;Initial Catalog= student; User ID= panqe;PWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

你的连接那里写的是MYSQL连接，开始我看你描述的貌似你要连接的是你的程序测试服务器吧，估计你把这两者搞混了，MYSQL数据库只能做数据库链路连接，不能做FTP登陆连接，同样，空间服务器只能做FTP和>

�0�2-- 这是java环境,里有插件其全,javase,javaee,javame都可以,还有你所说的java项目框架直接�0�2�0�2�0�2 用他自己集成环境就能生成2数据库你要是为了省事直接下一个mysql就行了,50多兆,不比 微软的slqserver系列的差SSH框架中的持久层框架Hibernate可以根据你自己建的pojo及pojo的xml映射文件,自动创建数据库表,约束,引用,关联等等3你上面写的那么多数据库 其他一点影响都没有,数据库任意建的,你只要在构建环境时,加载不同的数据库驱动就行了�0�2--即你上面那些基于orcle数据库的,你只要改个驱动程序,里面程序代码不用动,直接可以换数据库使用另外,劝你一句,不要迷信视频,视频有好有坏,免费的视频看看 了解一下就行了,因为,有很多视频讲的真的好垃圾最好买本讲原理的书,看原理,不要买那种整篇都是代码的书

表标PHP已经自带了mongo功能，你就可以 *** 作下面的代码（但是你必须有安装mongodb服务器）一、连接数据库使用下面的代码创建一个数据库链接复制代码代码如下:listDBs());//能打印出数据库数组，看看有几个数据库。>如图：上图说有一个数据库名字叫local,总大小1个字节，他是空的。看见ok表示运行成功。现在你可以使用$connection链接来 *** 作数据库了选择数据库使用下面的代码来选择一个数据库复制代码代码如下:dbname;>这里的数据库并不一定是一个已经存在的数据库，如果所选择的数据库不存在，则会新建一个数据库，所以在选择数据库的时候，注意一定要填上正确的数据库名如果拼写错误的话，很有可能会新建一个数据库复制代码代码如下:mybiglongdbname;//做一些事情$db=$connection->mybiglongdbnme;//现在会连上一个新的数据库>获取一个集合获取一个集合跟选择数据库拥有相同的语法格式复制代码代码如下:baz;//选择数据库$collection=$db->foobar;//选择foobar集合//或者使用更简洁的方式$collection=$connection->baz->foobar;>插入一个文档多维数组是可以被储存到数据库中的基本单元一个随机的文档可能是这样复制代码代码如下:“MongoDB”,“type”=>“database”,“count”=>1,“info”=>(object)array(“x”=>203,“y”=>102),“versions”=>array(“097″,“098″,“099″));>注意：你可以嵌套数组与对象，对象与文档在mongodb中几乎是一样的，你可以使用$doc调用一个文档或对象，但是info字段总是一个对象而不是一个文档，本约束适用于所有文档使用MongoCollection::insert()插入一个文档复制代码代码如下:foo->bar;$collection->insert($doc);>mongodb的insert()、save()，区别主要是：若存在主键，insert()不做 *** 作，而save()则更改原来的内容为新内容。存在数据：{_id:1,"name":"n1"}insert({_id:1,"name":"n2"})会提示错误save({_id:1,"name":"n2"})会把n1改为n2。使用MongoCollection::findOne()查询文档为了证明上面那段代码的数据已经插入到数据库里了，我们进行简单的findOne() *** 作以得到集合中的第一个文档数据，这种方法只返回一个文档数据，这种方法适用于在你的查询语句的时候只匹配一个文档或者你只关心第一条数据复制代码代码如下:findOne();var_dump($obj);>你会看到下列结果复制代码代码如下:array(5){["_id"]=>object(MongoId)#6(0){}["name"]string(7)“MongoDB”["type"]=>string(8)“database”["count"]=>int(1)["info"]=>array(2){["x"]=>int(203)["y"]=>int(102)}["versions"]array(3){[0]=>string(5)“097″[1]=>string(5)“098″[2]=>string(5)“099″}}注意_id字段自动加载了文档上，MongoDB储存元素中以_以及$开头的都是供内部使用的添加文档为了做一些更有趣的事情，我们添加简单的文档到集合中，这些文档如下复制代码代码如下:value);>我们可以使用循环相当有效的插入数据复制代码代码如下:insert(array(“i”=>$i));}>注意：我们可以插入不同的字段在同一字符集中，在这方面意味着MongoDB拥有非常自由的储存模式在一个集合中计算文档的数量现在我们插入了101个文档(我们用循环插入了100个，之前还插入了一个)，我们可以使用count()来看看我们的数据是不是都被插入进去了复制代码代码如下:count();>这段代码将打印出101MongoCollection::count()也可以查询字段数据使用游标得到集合中的所有文档为了得到集合中的所有文档，我们可以使用MongoCollection::find()方法，find()方法返回一个MongoCursor对象，可以让我们重复得到查询所匹配的的文档复制代码代码如下:find();foreach($cursoras$id=>$value){echo“$id:“;var_dump($value);}>这样我们会打印出集合中的这101个文档，$id就是文档中的_id字段，$value就是文档本身为查询规定一个标准我们可以通过find()方法得到集合中的文档子集，例如，我们要查询出集合中i字段为71的文档，我们可以使用下列方法复制代码代码如下:71);$cursor=$collection->find($query);while($cursor->hasNext()){var_dump($cursor->getNext());}>我们将打印如下数据复制代码代码如下:array(2){["_id"]=>object(MongoId)#6(0){}["i"]=>int(71)["_ns"]=>“testCollection”}为查询设定一个范围我们可以通过find()创建一个查询语句以得集合中的一个子集，例如如果我们得到所有”i”>50的文档，我们可以使用如下代码复制代码代码如下:array(‘$gt'=>50));//注意'$gt'两边的单引号$cursor=$coll->find($query);while($cursor->hasNext()){var_dump($cursor->getNext());}>我们同样可以得到20array(“\$gt”=>20,“\$lte”=>30));$cursor=$coll->find($query);while($cursor->hasNext()){var_dump($cursor->getNext());}>我们非常容易漏掉$美元符号，你也可以选择你自定义的符号来代替美元符号，选择一个不会在你的建里面出现的符号例如”:”,在phpini中加上这么一句话复制代码代码如下:mongocmd=“:”那么上面的代码就可以替换成复制代码代码如下:array(“:gt”=>20,“:lte”=>30));>当然你也可以使用ini_set(“mongocmd”,“:”)的方法来改变创建一个索引MongoDB支持索引，并且可以很容易的加到一个集合中，你只要指定某个字段为索引就行了，并且还可以指定正序索引(1)与倒序索引(-1)下面的代码为I创建了索引复制代码代码如下:ensureIndex(array(“i”=>1));//在”i”上创建了一个索引$coll->ensureIndex(array(“i”=>-1,“j”=>1));//在”i”上创建了倒序索引在”j”上创建了正序索引>一个完整的简单例子这个例子展示了如何链接mongodb数据库，如何选择数据库，如何插入数据，如何查询数据，以及关闭数据库链接复制代码代码如下:comedy;$collection=$db->cartoons;//添加一个元素$obj=array("title"=>"CalvinandHobbes","author"=>"BillWatterson");$collection->insert($obj);//修改$newdata=array('$set'=>array("title"=>"CalvinandHobbes"));$collection->update(array("author"=>"caleng"),$newdata);//删除$collection->remove(array('author'=>'caleng'),array("justOne"=>true));//添加另一个元素，使用不同的格式$obj=array("title"=>"XKCD","online"=>true);$collection->insert($obj);//查询所有的集合$cursor=$collection->find();//重复显示结果foreach($cursoras$obj){echo$obj["title"]"\n";}//关闭链接$m->close();>输出结果为复制代码代码如下:CalvinandHobbesXKCD

界面设计:

1ComboBox 名为: CboName 用来输入或显示用户名

2TextBox 名为:TxtPassword 用来输入密码

3TextBox 名为:TxtPasswordSure 在注册时用来输入确认密码

4CheckBox 名为:ChkNew 用来新注册 Caption属性:新建用户

5CommandButton 名为:CmdLoad 用来登陆或注册 Caption属性:登陆

6CommandButton 名为:CmdExit 用以退出 Caption 属性:退出

7Data 不需要多设置,这个控件不用的,只是第一次加载时起作用Visible属性:False

代码如下:

Dim MyTable As TableDef

Dim MyField As Field

Dim MyDatabase As Database

Dim Myrs As Recordset

Dim StrRule As String

Private Sub CboName_Change()

If Len(CboNameText) > 8 Then

CboNameSelStart = 0

CboNameSelLength = 8

CboNameText = CboNameSelText

CboNameSelStart = 8

End If

End Sub

Private Sub ChkNew_Click()

If ChkNewValue = 0 Then

LblPasswordsureVisible = False

TxtPasswordSureVisible = False

CmdLoadCaption = "登陆"

Else

LblPasswordsureVisible = True

TxtPasswordSureVisible = True

CmdLoadCaption = "注册"

End If

CboNameSetFocus

End Sub

Private Sub CmdExit_Click()

End

End Sub

Private Sub CmdLoad_Click()

If CboNameText = "" Then

MsgBox "请输入用户名!", vbExclamation, "友情提示"

CboNameSetFocus

Exit Sub

ElseIf TxtPasswordText = "" Then

MsgBox "请输入密码!", vbExclamation, "友情提示"

TxtPasswordSetFocus

Exit Sub

ElseIf TxtPasswordSureText = "" And TxtPasswordSureVisible = True Then

MsgBox "请输入确认密码!", vbExclamation, "友情提示"

TxtPasswordSureSetFocus

Exit Sub

End If

If CmdLoadCaption = "注册" Then

If TxtPasswordSureText <> TxtPasswordText Then

MsgBox "密码和确认密码不同!", vbExclamation, "Sorry"

TxtPasswordSureSetFocus

Exit Sub

End If

If CheckStr(CboNameText) Then

MsgBox "用户名可以是中文,也可以是英文或数字,但其中不能带有" & vbNewLine & "像“" & StrRule & "”的字符!", vbExclamation, "友情提示"

CboNameSetFocus

Exit Sub

ElseIf CboNameText = "user" Then

MsgBox "user是保留用字,不能用作用户名!", vbExclamation, "Sorry"

Exit Sub

End If

Set MyDatabase = Workspaces(0)OpenDatabase(AppPath & "\save")

Set Myrs = MyDatabaseOpenRecordset("select from user where Name = " & Chr(34) & CboNameText & Chr(34))

If MyrsRecordCount > 0 Then

MsgBox "用户已经存在", vbExclamation, "友情提示"

CboNameSetFocus

Exit Sub

End If

Set Myrs = MyDatabaseOpenRecordset("select from user")

MyrsAddNew

MyrsFields("name") = CboNameText

MyrsFields("password") = TxtPasswordText

MyrsFields("logontime") = Now

MyrsFields("Best") = "0"

MyrsFields("Run") = "0"

MyrsUpdate

MyrsClose

Set MyTable = MyDatabaseCreateTableDef(CboNameText)

Set MyField = MyTableCreateField("Result", 10, 4)

MyTableFieldsAppend MyField

Set MyField = MyTableCreateField("RightRatio", 10, 6)

MyTableFieldsAppend MyField

Set MyField = MyTableCreateField("TestTime", 10, 19)

MyTableFieldsAppend MyField

MyDatabaseTableDefsAppend MyTable

MsgBox "注册成功!", vbExclamation, "恭喜你"

CboNameAddItem (CboNameText)

ChkNewValue = 0

MyDatabaseClose

Else '登陆

If TxtPasswordText <> TxtPasswordSureText And TxtPasswordSureVisible = True Then

MsgBox "密码与确认密码不同,请重新输入!", vbExclamation, "友情提示"

TxtPasswordSetFocus

Exit Sub

End If

Set MyDatabase = Workspaces(0)OpenDatabase(AppPath & "\save")

Set Myrs = MyDatabaseOpenRecordset("select from user where name =" & Chr(34) & CboNameText & Chr(34))

If MyrsRecordCount = 0 Then

MsgBox "用户不存在!", vbExclamation, "友情提示"

Exit Sub

End If

MyrsMoveFirst

If TxtPasswordText = MyrsFields("password") Then '登陆成功

MyrsClose

Set Myrs = MyDatabaseOpenRecordset("select from user")

If MyrsBOF = False Then MyrsMoveLast

If MyrsBOF = False Then MyrsMoveFirst

MyrsMoveFirst

For i = 0 To MyrsRecordCount - 1

MyrsEdit

If MyrsFields("Name") = CboNameText Then

MyrsFields("Run") = "1"

Else

MyrsFields("Run") = "0"

End If

MyrsUpdate

MyrsMoveNext

Next

'登陆成功,你加入要执行的 *** 作

Unload Me '登陆窗口卸载

Else

Static WrongTime As Integer

WrongTime = WrongTime + 1

If WrongTime = 2 Then End

MsgBox "密码错误!", vbExclamation, "友情提示"

End If

MyrsClose

MyDatabaseClose

End If

End Sub

Private Sub Form_Activate()

StrRule = "`~!@#$%^&()_-+=|\;:<,>/" & Chr(34) & Chr(39)

If Dir(AppPath & "\savemdb", vbHidden) = "" Then '数据文件不见了

Set MyDatabase = CreateDatabase(AppPath & "\save", dbLangGeneral)

Set MyTable = MyDatabaseCreateTableDef("user")

Set MyField = MyTableCreateField("Name", 10, 16)

MyTableFieldsAppend MyField

Set MyField = MyTableCreateField("Password", 10, 6)

MyTableFieldsAppend MyField

Set MyField = MyTableCreateField("LogonTime", 10, 19)

MyTableFieldsAppend MyField

Set MyField = MyTableCreateField("Best", 10, 4)

MyTableFieldsAppend MyField

Set MyField = MyTableCreateField("Run", 10, 1)

MyTableFieldsAppend MyField

MyDatabaseTableDefsAppend MyTable

ChkNewValue = 2

Else

Set MyDatabase = Workspaces(0)OpenDatabase(AppPath & "\save")

Set Myrs = MyDatabaseOpenRecordset("select from user")

If MyrsEOF = False Then MyrsMoveLast

If MyrsBOF = False Then MyrsMoveFirst

Dim i As Integer

Dim ShowIndex As Integer

For i = 0 To MyrsRecordCount - 1

CboNameAddItem (MyrsFields("Name"))

If MyrsFields("Run") = "1" Then ShowIndex = i

MyrsMoveNext

Next

If CboNameListCount > 0 Then

CboNameListIndex = ShowIndex

Else

ChkNewValue = 2

End If

MyrsClose

MyDatabaseClose

End If

TxtPasswordSetFocus

End Sub

Private Function CheckStr(StrTheword As String) As Boolean

Dim i As Integer

For i = 1 To Len(StrRule)

If InStr(1, StrTheword, Mid(StrRule, i, 1)) <> 0 Then '含有这样的字符

CheckStr = True

Exit Function

End If

Next

CheckStr = False

End Function

'你要源文件可以发EMail给我索要

'我的电邮地址是:wangaochao@163com

以上就是关于高分请教!!如何在应用程序结束时关闭数据库连接全部的内容，包括:高分请教!!如何在应用程序结束时关闭数据库连接、VB连接数据库sql 求助、用Dreamweaver连接sql数据库出现问题（远程的服务器）等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！