VB5.0 中远程数据库的访问

Private Sub cmd链接_Click()
　 Form1.Hide
　 Form2.Show
End Sub

Private Sub DBGrid1_After
　 ColUpdate(ByVal ColIndex As Integer)
　 ’数据修改后触发该事件
　 On Error GoTo err1
　 Data1.Refresh
err1:
　 Select Case Err
　　　 Case 0
　　　　　 Response = 0
　　　 Case Else
　　　　　 Exit Sub
　 End Select
End Sub

Private Sub DBGrid1_BeforeColUpdate(ByVal ColIndex As Integer, _
　　 OldValue As Variant, Cancel As Integer)
　 ’数据修改前触发该事件
　 On Error GoTo errHandler:
　 BeginTrans
　 If MsgBox("确实要修改这一内容？",vbQuestion + vbYesNo) = vbYes Then
　　　 CommitTrans
　 Else
　　　 Rollback
　　　 Data1.Refresh
　 End If
errHandler:
　 Select Case Err
　　　 Case 0
　　　　　 Response = 0
　　　 Case Else
　　　　　 MsgBox (Error)
　　　　　 Exit Sub
　 End Select
End Sub

Private Sub Form_Load()
’在窗体装入时，网格中的数据不可添加，修改
　 DBGrid1.AllowAddNew = False
　 DBGrid1.AllowUpdate = False
End Sub

Private Sub Form_Resize()
　 On Error Resume Next
　 ’当窗体调整时会调整网格
　 DBGrid1.Height = Me.ScaleHeight - Data1.Height - cmd删除.Height - 30
End Sub

　 在工程中添加一个窗体，在窗体上画6个标签，1个命令按钮（标题为"确认"，名称为 cmd 确认），3个文本框和1个组合框在窗体的声明部份输入以下代码：
　 ’声明窗体层变量

Dim rodbs As Database
Dim strDB As String, strRoDB As String, strCn As String, strTdf As String
Dim linkTdfName As String

编写如下事件过程：
Private Sub cmd确认_Click()
　 On Error GoTo errHandler:
　 strDB = text2.Text ’本地数据库名及路径
　 linkTdfName = Text3.Text
　 ’本地数据库中新建的链接远程表的表名
　 strCn = strRoDB ’连接字符串
　 strTdf = Combo1.Text
　 ’指定远程数据库中要访问的表
　 ’调用LinkTable过程
　 Call LinkTable(strDB,strRoDB, strCn, strTdf, linkTdfName)
　 ’调用rst_display过程
　 Call rst_display(strDB, linkTdfName, Form1)
　 Form2.Hide
　 Form1.Show
　 Form1.Caption = "远程数据：" + strCn + "-" + strTdf
　 ’显示"添加"，"删除"，"修改"控件
　 Form1.cmdAdd.Visible = True
　 Form1.cmdDel.Visible = True
　 Form1.cmdModify.Visible = True
errHandler:
　 Select Case Err
　　　 Case 0
　　　　　 Response = 0
　　　 Case Else
　　　　　 MsgBox (Error + vbr + "重新输入")
　　　　　 Exit Sub
　 End Select
End Sub

Private Sub Combo1_GotFocus()
　 strRoDB = text1.Text
　　 ’指定远程数据库名及路径
　 Set rodbs = OpenDatabase(strRoDB)
　　 ’打开远程数据库
　　 ’删除combo1中的内容
　 If Combo1.ListCount >= 1 Then
　　　 For i = Combo1.ListCount - 1 To 0 Step -1
　　　　　 Combo1.RemoveItem i
　　　 Next i
　 End If
　 ’把数据库中的表名加到combo1中
　 For i = 0 To rodbs.TableDefs.Count - 1
　　　 Combo1.AddItem rodbs.TableDefs(i).Name
　 Next i
End Sub