07.htm

vb功能实例介绍。详细、很好的实例说明。

<p>VB5.0 中远程数据库的访问</p>
<p> </p>
<p></p>
<p>国防大学研究生院 许蔓舒</p>
<p>　  在 VB5.0 中，用 Microsoft Jet 数据库引擎和数据访问对象 DAO（Data Access Object）可以创建功能强大的客户/服务器应用程序。对远程数据库的访问是开发这类应用程序的关键环节，本文将介绍在 VB5.0 中用 DAO 通过 Miscrosoft Jet 数据库引擎访问远程数据库的方法。 </p>
<p></p>
<p>　  用 DAO 访问远程数据库大体上可以通过三步来实现， 即数据连接、数据处理和断开连接。下面主要介绍数据连接和数据处理的具体操作。 </p>
<p></p>
<p>一、数据连接</p>
<p></p>
<p>　  DAO 一般通过链接远程表的方式来进行数据连接。这样，数据虽然驻留在远程数据源上，但在本地的 Microsoft Jet 数据库中可以存储与远程数据的永久性连接，同时缓存链接的表结构信息，从而在下一次访问该表时， 不用再次从服务器中检索这些结构信息，加快了连接速度。一旦链接了一个表，该链接便会保留在各会话 期间，直到连接断开。链接远程表的具体操作是： </p>
<p></p>
<p>用 OpenDatabase 方法打开将要包含该链接的本地 Microsoft Jet 数据库 </p>
<p></p>
<p>用 CreateTableDef 方法在该数据库中创建一个新的 TableDef 对象 </p>
<p></p>
<p>将 TableDef 对象的 Connect 属性设置为一个合法的连接字符串，标识要访问的远程数据库类型、数据文件的路径以及用户名和远程数据源密码等。 </p>
<p></p>
<p>将 TableDef 对象的 SourceTableName 属性设置为远程数据库中要访问的表的名称。 </p>
<p></p>
<p>添加 TableDef 对象到 TableDefs 集合中。 </p>
<p>　　实现链接远程表操作的过程如下： </p>
<p></p>
<p>Public Sub LinkTable(strDB As String, strRoDB As String, _</p>
<p>strCn As String, strTdf As String, linkTdfName As String)</p>
<p>　  Dim linkTdf As New TableDef</p>
<p>　  Set dbs = OpenDatabase(strDB)</p>
<p>　  linkTdf.Name = linkTdfName</p>
<p>100</p>
<p>　  tempTable = UCase(linkTdf.Name)</p>
<p>　  For i = 0 To dbs.TableDefs.Count - 1</p>
<p>　　　  If UCase(dbs.TableDefs(i).Name) = tempTable Then</p>
<p>　　　　　  If MsgBox(linkTdfName + " 已存在，是否删除 ？", _</p>
<p>　　　　　 vbQuestion + vbYesNo) = vbYes Then</p>
<p>　　　　　　　  dbs.TableDefs.Delete linkTdf.Name</p>
<p>　　　　　　　  Exit For</p>
<p>　　　　　  Else: MsgBox "重新输入新表名"</p>
<p>　　　　　  linkTdfName = InputBox(" 新表名")</p>
<p>　　　　　  GoTo 100</p>
<p>　　　　　  End If</p>
<p>　　　  End If</p>
<p>　  Next i</p>
<p>Set linkTdf = dbs.CreateTableDef(linkTdfName)　 '链接远程表</p>
<p>　  linkTdf.Connect = ";database=" + strCn</p>
<p>　  linkTdf.SourceTableName = strTdf</p>
<p>　  dbs.TableDefs.Append linkTdf</p>
<p>End Sub</p>
<p></p>
<p>　  上述过程用来实现远程表的连接，它有 5 个参数，其中 strRoDB 是要访问的远程数据库名（包括路径）；strTdf 是该数据库中的表名；strDB 是要链接的本地数据库（包括路径）；linkTdfName 是本地数据库的一个新表名，用来建立远程表的链接；strCn 是指定连接信息的字符串。需要特别注意的是，除了在访问远程 Microsoft Jet 数据库时，连接字符串要以分号（；）开头外，指定连接信息的字符串都必须以所访问的远程数据库类型开头。DAO 可以访问的远程数据源有以下三类： </p>
<p></p>
<p>Microsoft Jet 数据源，如：Access 数据。 </p>
<p></p>
<p>IISAM（可安装的索引化顺序访问方法）格式数据源，如：FoxPro、Paradox、dBASE 数据。 </p>
<p></p>
<p>ODBC 数据源，如：SQL Server 数据、Oracle 数据。 </p>
<p>　  例如：设网络服务器名为server，共享目录为 C:\Sales 的 FoxPro 3.0 数据库，连接字符串应为</p>
<p></p>
<p>　  strCn="FoxPro3.0;database=\\server\c$\Sales\Region1" </p>
<p></p>
<p>　  此外，DAO 通过 Microsoft Jet 数据库引擎访问远程数据时，还可以用 OpenDatabase 方法直接打开远程表。在本地数据库中并未存储与远程数据源建立连接所需要的信息。如果使用链接方式访问数据，则不必在每次会话开始时提供连接信息，从而可以提高效率。</p>
<p></p>
<p>二、数据处理</p>
<p></p>
<p>　  数据连接建立后，可以用 OpenRecordset 方法打开一个记录集，并可用 DBGrid 控件和 Data 控件方便地浏览整个记录集。如果使用表类型（Table-type）记录对象，则对应的是一个实际存在的数据库表，在多用户环境下，其它用户对数据的修改会立即反映到表中；如果使用动态集类型（Dynaset-type）记录对象，则对应的既可以是一个表中全部记录，又可以是一个查询的结果，并且可以更新记录集中的记录；如果使用快照类型（Snapshot-type）记录对象，则对应的可以是表中的全部记录，也可以是一个查询结果，但不能进行记录的增加、删除和修改操作。此外，还可以建立其它类型的记录对象，如仅向前型（ForwardOnly-type）记录对象和动态型（Dynamic-type）记录对象。</p>
<p></p>
<p>　  下面是打开动态集记录对象并显示记录的过程：</p>
<p></p>
<p>Public Sub rst_display(strDB As String, strRst As String, strForm As Form)</p>
<p>　 Set dbs = OpenDatabase(strDB)</p>
<p>　 Set rst = dbs.OpenRecordset(strRst, dbOpenDynaset)</p>
<p>　 strForm!Data1.DatabaseName = dbs.Name</p>
<p>　 strForm!Data1.RecordSource = rst.Name</p>
<p>　 strForm!Data1.Refresh</p>
<p>　 strForm!DBGrid1.ReBind</p>
<p>End Sub</p>
<p></p>
<p>　  上述过程有三个参数，其中 strDB 用来指定本地数据库名（包括路径），linkTdfName 是在本地数据库中新建的链接远程表的表名，strForm 是网格控件和数据控件所在的窗体名。调用此过程可以基于新表建立一个动态集类型的记录对象，并可在网格中浏览各个记录。</p>
<p>　  断开连接可以通过关闭应用程序或设置连接超时来实现。注意：如果对数据库对象使用 Close 方法，则由于在 Miscrosoft Jet 数据库引擎内部缓存了连接，实际上连接并未取消。</p>
<p></p>
<p>三、应用举例</p>
<p></p>
<p>　  以上介绍了用 DAO 访问远程数据库的具体操作，下面通过一个例子说明链接远程表和建立记录集对象的方法。</p>
<p>　  首先建立一个新工程，在窗体上画 5 个命令按钮，1 个数据控件和 1 个数据网格控件（DBGrid），各对象的属性设置见表1。</p>
<p></p>
<p>表1 窗体1对象属性设置 </p>
<p></p>
<p>对象 标题（Caption） 名称（Name） </p>
<p>窗体 远程数据访问 Form1 </p>
<p>命令按钮1 链接远程表 cmd链接 </p>
<p>命令按钮2 添加 cmdAdd </p>
<p>命令按钮3 删除 cmdDel </p>
<p>命令按钮4 修改 cmdModify </p>
<p>命令按钮5 结束 cmdEnd </p>
<p>数据控件 Data1 Data1 </p>
<p>数据网格 　 DBGrid1 </p>
<p></p>
<p>　  其中DBGrid1 中的DataSource 属性设为Data1，命令按钮2，3，4 的Visible 属性设为False。</p>
<p></p>
<p>　  编写如下事件过程：</p>
<p></p>
<p>Private Sub cmdAdd_Click() '添加记录子过程</p>
<p>　  On Error GoTo errHandler</p>
<p>　  With rst</p>
<p>　　 .AddNew</p>
<p>　　  For i = 0 To .Fields.Count - 1  '遍历记录集中的每个字段</p>
<p>　  '在输入框中输入各字段的数据</p>
<p>　　　 .Fields(i).Value = InputBox("输入记录信息" & vbCr + _</p>
<p>　　　　　　　　　　　　  "字段名：" + .Fields(i).Name)</p>
<p>　　  Next i</p>
<p>　　  .Update</p>
<p>　 End With</p>
<p>　 Data1.Refresh</p>
<p>　 DBGrid1.ReBind</p>
<p>errHandler:　　　　 '错误处理</p>
<p>　 Select Case Err</p>
<p>　　　  Case 3022, 3421</p>
<p>　　　　　  MsgBox (Error + vbCr + "输入无效")</p>
<p>　　　　　  Exit Sub</p>
<p>　　　  Case Else</p>
<p>　　　　　  Response = 0</p>
<p>　　　　　  Exit Sub</p>
<p>　  End Select</p>
<p>End Sub</p>
<p></p>
<p>Private Sub cmdDel_Click() '删除记录过程</p>
<p>　 On Error GoTo errHandler</p>
<p>　 BeginTrans　　　　 '事务处理</p>
<p>　 With Data1.Recordset</p>
<p>　  If .BOF And .EOF Then Exit Sub  '如果没有记录，退出过程</p>
<p>　  .Delete　　　  '删除</p>
<p>　  If .BOF And .EOF Then　  '如果没有记录，退出过程</p>
<p>　　　　  Exit Sub</p>
<p>　  ElseIf .EOF Then .MoveLast  </p>
<p>　　  '如果删除的是最后一条记录，光标移至最后一记录</p>
<p>　  Else: .MoveNext　  '移至下一条记录</p>
<p>　  End If</p>
<p>　 End With</p>
<p>　 If MsgBox("确实要删除这一记录？",vbQuestion + vbYesNo) = vbYes Then</p>
<p>　　  CommitTrans　 '确认</p>
<p>　　  Data1.Refresh</p>
<p>　 Else</p>
<p>　　  Rollback 　　　　　　　 '撤消改动</p>
<p>　　  Data1.Refresh</p>
<p>　 End If</p>
<p>errHandler:　　　　  '错误处理</p>
<p>　 Select Case Err</p>
<p>　　  Case 3021  '无当前记录</p>
<p>　　　  MsgBox "无当前记录，请选择要删除的记录"</p>
<p>　　　  Exit Sub</p>
<p>　　  Case Else</p>
<p>　　　  MsgBox Error</p>
<p>　　　  Exit Sub</p>
<p>　 End Select</p>
<p>End Sub</p>
<p></p>
<p>Private Sub cmdEnd_Click()</p>
<p>　 End　　　　 '结束应用程序</p>
<p>End Sub</p>
<p></p>
<p>Private Sub cmdModify_Click()</p>
<p>　 DBGrid1.AllowUpdate = True  '允许修改</p>
<p>End Sub</p>
<p></p>
<p>Private Sub cmd链接_Click()</p>
<p>　 Form1.Hide</p>
<p>　 Form2.Show</p>
<p>End Sub</p>
<p></p>
<p>Private Sub DBGrid1_After</p>
<p>　 ColUpdate(ByVal ColIndex As Integer)</p>
<p>　 '数据修改后触发该事件</p>
<p>　 On Error GoTo err1</p>
<p>　 Data1.Refresh</p>
<p>err1:</p>
<p>　  Select Case Err</p>
<p>　　　  Case 0</p>
<p>　　　　　  Response = 0</p>
<p>　　　  Case Else</p>
<p>　　　　　  Exit Sub</p>
<p>　 End Select</p>
<p>End Sub</p>
<p></p>
<p>Private Sub DBGrid1_BeforeColUpdate(ByVal ColIndex As Integer, _</p>
<p>　　 OldValue As Variant, Cancel As Integer)</p>
<p>　  '数据修改前触发该事件</p>
<p>　  On Error GoTo errHandler:</p>
<p>　  BeginTrans</p>
<p>　  If MsgBox("确实要修改这一内容？",vbQuestion + vbYesNo) = vbYes Then</p>
<p>　　　  CommitTrans</p>
<p>　  Else</p>
<p>　　　  Rollback</p>
<p>　　　  Data1.Refresh</p>
<p>　  End If</p>
<p>errHandler:</p>
<p>　  Select Case Err</p>
<p>　　　  Case 0</p>
<p>　　　　　  Response = 0</p>
<p>　　　  Case Else</p>
<p>　　　　　  MsgBox (Error)</p>
<p>　　　　　  Exit Sub</p>
<p>　  End Select</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Form_Load()</p>
<p>'在窗体装入时，网格中的数据不可添加，修改</p>
<p>　  DBGrid1.AllowAddNew = False</p>
<p>　  DBGrid1.AllowUpdate = False</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Form_Resize()</p>
<p>　  On Error Resume Next</p>
<p>　  '当窗体调整时会调整网格</p>
<p>　  DBGrid1.Height = Me.ScaleHeight - Data1.Height - cmd删除.Height - 30</p>
<p>End Sub</p>
<p></p>
<p>　  在工程中添加一个窗体，在窗体上画6个标签，1个命令按钮（标题为"确认"，名称为 cmd 确认），3个文本框和1个组合框在窗体的声明部份输入以下代码：</p>
<p>　  '声明窗体层变量</p>
<p></p>
<p>Dim rodbs As Database</p>
<p>Dim strDB As String, strRoDB As String, strCn As String, strTdf As String</p>
<p>Dim linkTdfName As String</p>
<p></p>
<p>编写如下事件过程：</p>
<p>Private Sub cmd确认_Click()</p>
<p>　  On Error GoTo errHandler:</p>
<p>　  strDB = text2.Text '本地数据库名及路径</p>
<p>　  linkTdfName = Text3.Text </p>
<p>　  '本地数据库中新建的链接远程表的表名</p>
<p>　  strCn = strRoDB '连接字符串</p>
<p>　  strTdf = Combo1.Text </p>
<p>　  '指定远程数据库中要访问的表</p>
<p>　  '调用LinkTable过程</p>
<p>　  Call LinkTable(strDB,strRoDB, strCn, strTdf, linkTdfName)</p>
<p>　  '调用rst_display过程</p>
<p>　  Call rst_display(strDB, linkTdfName, Form1)</p>
<p>　  Form2.Hide</p>
<p>　  Form1.Show</p>
<p>　  Form1.Caption = "远程数据：" + strCn + "-" + strTdf</p>
<p>　  '显示"添加"，"删除"，"修改"控件</p>
<p>　  Form1.cmdAdd.Visible = True</p>
<p>　  Form1.cmdDel.Visible = True</p>
<p>　  Form1.cmdModify.Visible = True</p>
<p>errHandler:</p>
<p>　  Select Case Err</p>
<p>　　　  Case 0</p>
<p>　　　　　  Response = 0</p>
<p>　　　  Case Else</p>
<p>　　　　　  MsgBox (Error + vbr + "重新输入")</p>
<p>　　　　　  Exit Sub</p>
<p>　  End Select</p>
<p>End Sub</p>
<p></p>
<p>Private Sub Combo1_GotFocus()</p>
<p>　  strRoDB = text1.Text  </p>
<p>　　 '指定远程数据库名及路径</p>
<p>　  Set rodbs = OpenDatabase(strRoDB) </p>
<p>　　 '打开远程数据库</p>
<p>　　 '删除combo1中的内容</p>
<p>　  If Combo1.ListCount >= 1 Then</p>
<p>　　　  For i = Combo1.ListCount - 1 To 0 Step -1</p>
<p>　　　　　  Combo1.RemoveItem i</p>
<p>　　　  Next i</p>
<p>　  End If</p>
<p>　  '把数据库中的表名加到combo1中</p>
<p>　  For i = 0 To rodbs.TableDefs.Count - 1</p>
<p>　　　  Combo1.AddItem rodbs.TableDefs(i).Name</p>
<p>　  Next i</p>
<p>End Sub</p>
<p> </p>