📄 vb12.htm

📁 从太平洋上下载下来的打包学习VB的教程。》VB专区 ·Visual Basic 的数据库编程 ·使用VB建立Web Server 　 ·VB与Windows资源管理器互拷文件
💻 HTM
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0057)http://www.pconline.com.cn/experience/subject/VB/vb12.htm -->
<HTML><HEAD><TITLE>|><| 太平洋电脑信息网</TITLE><!-- #BeginTemplate "/Templates/0723.dwt" --><!-- #BeginEditable "doctitle" --><!-- #EndEditable -->
<META content="text/html; charset=gb2312" http-equiv=Content-Type><LINK 
href="vb12.files/text.css" rel=stylesheet>
<STYLE type=text/css>.sfont {
	LINE-HEIGHT: 18pt
}
</STYLE>

<META content="MSHTML 5.00.2014.210" name=GENERATOR></HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width="100%">
  <TBODY>
  <TR>
    <TD vAlign=top width="100%">
      <TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
        <TBODY>
        <TR bgColor=#303880>
          <TD><A href="http://www.pconline.com.cn/"><IMG alt=太平洋电脑信息网 border=0 
            height=18 hspace=30 src="vb12.files/txtpconline.gif" 
            width=96></A><IMG height=10 src="vb12.files/blank.gif" 
        width=400></TD></TR></TBODY></TABLE></TD>
    <TD align=right background=vb12.files/bw.gif noWrap width=130><IMG 
      height=26 src="vb12.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/sitemap/"><IMG alt=网站地图 border=0 
      height=26 src="vb12.files/sitemap.gif" width=21></A><IMG height=26 
      src="vb12.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/tpy/"><IMG alt=关于太平洋 border=0 height=26 
      src="vb12.files/aboutus.gif" width=21></A><IMG height=26 
      src="vb12.files/bw.gif" width=10><A 
      href="http://www.pconline.com.cn/tpy/tariff.html"><IMG alt=与我们联系 border=0 
      height=26 src="vb12.files/contact.gif" width=21></A><IMG height=26 
      src="vb12.files/bw.gif" width=10></TD></TR></TBODY></TABLE><BR>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb12.files/blank.gif" width=1></TD>
    <TD bgColor=#666666><IMG height=1 src="vb12.files/blank.gif" width=1></TD>
    <TD>&nbsp;</TD>
    <TD colSpan=2 noWrap><A 
      href="http://www.pconline.com.cn/experience/index.html"><IMG 
      align=absBottom alt=企业之窗 border=0 height=15 
      src="vb12.files/txtexperience.gif" width=68></A>　<A 
      href="http://www.pconline.com.cn/">首　　页</A>　<A 
      href="http://www.pconline.com.cn/market/">今日报价</A>　<A 
      href="http://www.pconline.com.cn/recommend/">产品推介</A>　<A 
      href="http://www.pconline.com.cn/yp/">企业之窗</A>　<A 
      href="http://www.pconline.com.cn/news/">科技新闻</A>　<A 
      href="http://www.pconline.com.cn/product/">产品查询</A>　<A 
      href="http://www.pconline.com.cn/download/">软件下载</A></TD></TR>
  <TR>
    <TD><IMG height=1 src="vb12.files/blank.gif" width=1></TD>
    <TD><IMG height=1 src="vb12.files/blank.gif" width=1></TD>
    <TD><IMG height=1 src="vb12.files/blank.gif" width=21></TD>
    <TD bgColor=#ffa000 colSpan=2><IMG height=1 src="vb12.files/blank.gif" 
      width=1></TD></TR>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb12.files/blank.gif" width=1></TD>
    <TD bgColor=#cdcdcd><IMG height=5 src="vb12.files/blank.gif" width=1></TD>
    <TD align=right colSpan=3><IMG height=6 src="vb12.files/ffa000.gif" 
      width=1></TD></TR>
  <TR>
    <TD bgColor=#666666><IMG height=1 src="vb12.files/blank.gif" width=1></TD>
    <TD align=right><A href="http://www.pconline.com.cn/"><IMG alt=太平洋电脑信息网 
      border=0 height=35 src="vb12.files/pconline.com.cn.gif" vspace=10 
      width=162></A></TD>
    <TD>&nbsp;</TD>
    <TD vAlign=bottom><!-- #BeginEditable "important_news" --><IMG height=40 
      src="vb12.files/blank.gif" width=350><!-- #EndEditable --></TD>
    <TD align=right vAlign=top><!-- #BeginEditable "adv_top" --><IMG alt=广告位 
      height=43 src="vb12.files/icon.gif" 
  width=190><!-- #EndEditable --></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb12.files/blank.gif" 
      width=1></TD>
    <TD vAlign=top width=170><!-- #BeginEditable "addons" --><!--替代为附加信息 --><!-- #EndEditable --></TD>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb12.files/blank.gif" 
      width=1></TD>
    <TD><IMG height=1 src="vb12.files/blank.gif" width=21></TD>
    <TD colSpan=3 vAlign=top width=566><!-- #BeginEditable "1" -->
      <DIV align=left>
      <P><IMG height=1 src="vb12.files/blank.gif" width=566><BR><IMG height=1 
      src="vb12.files/666666.gif" width=420><BR><IMG height=13 
      src="vb12.files/blank.gif" width=1><A 
      href="http://www.pconline.com.cn/experience/">经验共享</A> &gt; <SPAN 
      class=greenb><A 
      href="http://www.pconline.com.cn/experience/subject/VB/index.html">专题教程</A></SPAN><A 
      href="http://www.pconline.com.cn/experience/subject/VB/index.html"> 
      VB专区</A>&gt; <BR><IMG height=1 src="vb12.files/666666.gif" vspace=1 
      width=420><BR></P>
      <P align=center><FONT color=#000066><B><SPAN 
      class=sfont>用VB实现关闭所有数据库对象</SPAN></B></FONT><SPAN class=sfont><FONT 
      color=#0000c0> </FONT></SPAN></P></DIV>
      <P align=center><SPAN class=sfont>李广 </SPAN></P>
      <P class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      如果你在程序中使用了任何数据库对象（DAO, RDO, 或者 ADO), 
      在退出程序之前，你必须确认已经关闭掉了所有已经打开的记录、数据库和数据工作台（recordsets, databases, and 
      workspaces）。虽然退出程序时这些对象的指针都被自动施放了，但是如果你自己又不能确认是否真正地释放了打开的数据库对象，那么就有可能数据库连接没有马上被释放掉，从而被这些对象所占用的内存就再也不能被操作系统再次分配。 
      </SPAN>
      <P class=sfont><SPAN class=sfont><FONT color=#ffffff>----</FONT> 
      下面有一段放在Form_Unload 事件（或者其他退出模块中）中的一小段代码例子，它演示了关闭所有打开的DAO 
      工作台、数据库和记录并释放了被这些对象占用的内存。当你退出FORM时，不论在有一个、100个甚至没有数据库连接时都可以使用下面代码。 </SPAN><PRE><SPAN class=sfont>
Private Sub Form_Unload(Cancel As Integer)

' 关闭数据库对象并且释放内存

    On Error Resume Next

    Dim ws As Workspace
    Dim db As Database
    Dim rs As Recordset

    For Each ws In Workspaces
        For Each db In ws.Databases
            For Each rs In db.Recordsets
                rs.Close
                Set rs = Nothing
            Next
            db.Close
            Set db = Nothing
        Next
        ws.Close
        Set ws = Nothing
    Next
End Sub</SPAN></PRE>
      <DIV align=right><A 
      href="http://www.pconline.com.cn/index.html">更多文章……</A></DIV><!-- #EndEditable --></TD></TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=760>
  <TBODY>
  <TR>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb12.files/blank.gif" 
      width=1></TD>
    <TD align=right vAlign=bottom width=170><IMG height=10 
      src="vb12.files/blank.gif" width=170><BR></TD>
    <TD bgColor=#666666 width=1><IMG height=1 src="vb12.files/blank.gif" 
      width=1></TD>
    <TD width=21><IMG height=1 src="vb12.files/blank.gif" width=21></TD>
    <TD bgColor=#eeeeee width=566><IMG height=10 src="vb12.files/blank.gif" 
      width=566><BR>版权所有&copy;1999 太平洋电脑信息网<BR><FONT 
      face="Arial, Helvetica, sans-serif"><A 
      href="mailto:exp@pconline.com.cn">exp@pconline.com.cn</A></FONT> <IMG 
      height=1 src="vb12.files/hhvisit.html" width=1> </TD></TR></TBODY></TABLE><!-- #EndTemplate --></BODY></HTML>
💿 文件大小 377 K
👤 上传用户 xingxian
📂 所属分类软件工程
🏷️ 相关标签

#Windows #Visual #Server #Basic
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -