1. 引用【ADODB】对象
要使用【ADODB】对象，必须首先进行引用。
（1）启动VB，新建工程。
（2）如图10.30所示。
（3）出现如图10.31所示的【引用】界面。
2. 使用【ADODB】对象编程
（1）设计如图10.32所示的窗体Form3。
利用表格来表示上述过程中窗体的设置，如表10.3所示。
（2）读者可以从本书的配套光盘上找到实例的配套程序。
【参见光盘文件】：第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所示。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
