VB程序如何访问数据库

核心提示： 【参见光盘文件】：第10章\使用ADODB对象编程访问数据库.vbp，窗体为Form3.frm，VB程序如何访问数据库(4)，（3）窗体Form3内所有的VB代码如下， ――――――――――――――――――――――――――――――――――――― ‘强制性声明变量后

【参见光盘文件】：第10章\使用ADODB对象编程访问数据库.vbp，窗体为Form3.frm。

（3）窗体Form3内所有的VB代码如下。

　　 ―――――――――――――――――――――――――――――――――――――
　　 ‘强制性声明变量后才能使用
　　 Option Explicit
　　 ‘定义RS为ADODB对象的记录集
　　 Dim Rs As New ADODB.Recordset
　　 ‘定义conn为ADODB对象的连接
　　 Private conn As ADODB.Connection
　　 ‘窗体运行时初始化过程
　　 Private Sub Form_Load()
　　 ‘定义ConnStr为连接字符串
　　 Dim ConnStr As String
　　 ‘定义Cmd为ADODB的命令字符串
　　 Dim Cmd As New ADODB.Command
　　 Set conn = New ADODB.Connection
　　 ConnStr = "DSN=graduateDB;uid=scott;pwd=tiger;"
　　 conn.ConnectionString = ConnStr
　　 ‘按照ConnStr的内容连接数据库
　　 conn.Open
　　 ‘查询数据表dept的内容
　　 With Cmd
　　 .ActiveConnection = conn
　　 .CommandType = adCmdTable
　　 .CommandText = "dept"
　　 End With
　　 ‘将数据表dept的内容送记录集RS
　　 With Rs
　　 .CursorLocation = adUseClient
　　 .CursorType = adOpenStatic
　　 .LockType = adLockPessimistic
　　 .Open Cmd
　　 End With
　　 ‘定义3个文本框的数据源为RS
　　 Set Text1.DataSource = Rs
　　 Set Text2.DataSource = Rs
　　 Set Text3.DataSource = Rs
　　 ‘定义3个文本框显示的字段
　　 Text1.DataField = "DEPTNO"
　　 Text2.DataField = "DNAME"
　　 Text3.DataField = "LOC"
　　 End Sub
　　 ‘单击【首记录】按钮的执行过程
　　 Private Sub CmdFirst_Click()
　　　　 Rs.MoveFirst
　　　　 Rs.Update
　　 End Sub
　　 ‘单击【上记录】按钮的执行过程
　　 Private Sub CmdPrevious_Click()
　　　 Rs.MovePrevious
　　　 If Rs.BOF Then
　　　　  Rs.MoveFirst
　　　　  Rs.Update
　　　 End If
　　 End Sub
　　 ‘单击【下记录】按钮的执行过程
　　 Private Sub CmdNext_Click()
　　　 Rs.MoveNext
　　　 If Rs.EOF Then
　　　　 Rs.MoveLast
　　　　 Rs.Update
　　  End If
　　 End Sub
　　 ‘单击【末记录】按钮的执行过程
　　 Private Sub CmdLast_Click()
　　　 Rs.MoveLast
　　　 Rs.Update
　　 End Sub
　　 ‘单击【退出】按钮的执行过程
　　 Private Sub CmdExit_Click()
　　　  conn.Close
　　　  Set conn = Nothing
　　　  Unload Me
　　　  End Sub
　　 ―――――――――――――――――――――――――――――――――――――

（4）窗体Form3的运行结果如图10.33所示。