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

表1 窗体1对象属性设置

对象 标题（Caption） 名称（Name）
窗体 远程数据访问 Form1
命令按钮1 链接远程表 cmd链接
命令按钮2 添加 cmdAdd
命令按钮3 删除 cmdDel
命令按钮4 修改 cmdModify
命令按钮5 结束 cmdEnd
数据控件 Data1 Data1
数据网格 　 DBGrid1

　 其中DBGrid1 中的DataSource 属性设为Data1，命令按钮2，3，4 的Visible 属性设为False。

　 编写如下事件过程：

Private Sub cmdAdd_Click() ’添加记录子过程
　 On Error GoTo errHandler
　 With rst
　　 .AddNew
　　 For i = 0 To .Fields.Count - 1 ’遍历记录集中的每个字段
　 ’在输入框中输入各字段的数据
　　　 .Fields(i).Value = InputBox("输入记录信息" & vbCr + _
　　　　　　　　　　　　 "字段名：" + .Fields(i).Name)
　　 Next i
　　 .Update
　 End With
　 Data1.Refresh
　 DBGrid1.ReBind
errHandler:　　　　 ’错误处理
　 Select Case Err
　　　 Case 3022, 3421
　　　　　 MsgBox (Error + vbCr + "输入无效")
　　　　　 Exit Sub
　　　 Case Else
　　　　　 Response = 0
　　　　　 Exit Sub
　 End Select
End Sub

Private Sub cmdDel_Click() ’删除记录过程
　 On Error GoTo errHandler
　 BeginTrans　　　　 ’事务处理
　 With Data1.Recordset
　 If .BOF And .EOF Then Exit Sub ’如果没有记录，退出过程
　 .Delete　　　 ’删除
　 If .BOF And .EOF Then　 ’如果没有记录，退出过程
　　　　 Exit Sub
　 ElseIf .EOF Then .MoveLast
　　 ’如果删除的是最后一条记录，光标移至最后一记录
　 Else: .MoveNext　 ’移至下一条记录
　 End If
　 End With
　 If MsgBox("确实要删除这一记录？",vbQuestion + vbYesNo) = vbYes Then
　　 CommitTrans　 ’确认
　　 Data1.Refresh
　 Else
　　 Rollback 　　　　　　　 ’撤消改动
　　 Data1.Refresh
　 End If
errHandler:　　　　 ’错误处理
　 Select Case Err
　　 Case 3021 ’无当前记录
　　　 MsgBox "无当前记录，请选择要删除的记录"
　　　 Exit Sub
　　 Case Else
　　　 MsgBox Error
　　　 Exit Sub
　 End Select
End Sub

Private Sub cmdEnd_Click()
　 End　　　　 ’结束应用程序
End Sub

Private Sub cmdModify_Click()
　 DBGrid1.AllowUpdate = True ’允许修改
End Sub