VB数据库连接之二数据源连接

1.创建名称为“实例2DSN”的ODBC数据源

2.设计窗体 文本框名称分别为：txtUserName txtPassword txtMsg

按钮名称分别为： cmdPre cmdNext

3.功能实现

(1).全局变量声明

Dim objRs As Recordset '用于保存数据源记录集

Dim objCn As Connection '用于创建数据源连接
Dim isNeedSave As Boolean '用于标识是否需要执行保存操作
(2).后一记录代码实现
Private Sub cmdNext_Click()
DoSave
objRs.MoveNext '使下一条记录成为当前记录
'如果记录指针指向最后一条记录之后，则使其指向最后一条记录
If objRs.EOF Then objRs.MoveLast
txtUserName = objRs.Fields("用户名").Value
txtPassWord = objRs.Fields("口令").Value
txtMsg = objRs.AbsolutePosition & "/" & objRs.RecordCount
End Sub
(3).前一记录代码实现
Private Sub cmdPre_Click()
DoSave
objRs.MovePrevIoUs '使前一条记录成为当前记录
'如果记录指针指向第一个记录之前，则使其指向第一条记录
If objRs.BOF Then objRs.MoveFirst
'显示当前记录数据
txtUserName = objRs.Fields("用户名").Value
txtPassWord = objRs.Fields("口令").Value
txtMsg = objRs.AbsolutePosition & "/" & objRs.RecordCount
End Sub
(4).加载窗体
Private Sub Form_Load()
Set objCn = New Connection '初始化Connection对象
objCn.Open "DSN=实例2DSN" '建立数据库连接
Set objRs = New Recordset '创建客户端的记录集
With objRs
.CursorLocation = adUseClient '指定临时表位置
.CursorType = adOpenStatic '指定使用键集游标
.LockType = adLockOptimistic '指定锁定类型
.Open "SELECT *FROM 系统用户",objCn
End With
'显示第一条记录
txtUserName = objRs.Fields("用户名").Value
txtPassWord = objRs.Fields("口令").Value
txtMsg = objRs.AbsolutePosition & "/" & objRs.RecordCount
End Sub

(5).DoSave()方法实现 Private Sub DoSave() If isNeedSave Then '判断当前记录是否被修改 objRs.Fields("用户名").Value = txtUserName objRs.Fields("口令").Value = txtPassWord objRs.Update '执行更新操作 End If End Sub (6).窗体卸载 Private Sub Form_Unload(Cancel As Integer) Set objRs = nothing '释放记录集对象 objCn.Close '释放数据库连接 Set objCn = nothing '释放连接对象 End Sub (7).口令文本框改变 Private Sub txtPassWord_Change() isNeedSave = True '在修改当前记录字段时，设置保存标识 End Sub (8).用户名文本框改变 Private Sub txtUserName_Change() isNeedSave = True '在修改当前记录字段时，设置保存标识 End Sub