通过【Data】控件访问数据库
(1)启动VB。
(2)出现如图10.12所示的新建工程的【新建】选项卡。
(图片较大,请拉动滚动条观看)
(3)出现如图10.13所示的VB主界面。
(4)如图10.14所示。
(5)出现如图10.15所示的【属性窗口】界面。
(图片较大,请拉动滚动条观看)
―――――――――――――――――――――――――――――――――――――
odbc;dsn=graduateDB;uid=scott;pwd=tiger;
―――――――――――――――――――――――――――――――――――――
(6)如图10.16所示。
(7)选择【Form1】窗体上出现名为Text1的【TextBox】控件。
(8)出现如图10.17所示的【TextBox】控件的属性窗口。
(9)按照和Text1同样的步骤添加名为Text2的【TextBox】控件,其主要的设置为。
(10)按照和Text2同样的步骤添加名为Text3的【TextBox】控件,其主要的设置为。
(11)设计好的窗体Form1如图10.18所示。
(图片较大,请拉动滚动条观看)
(12)在VB主界面的【快捷按钮区】单击运行快捷按钮,如图10.19所示。
(图片较大,请拉动滚动条观看)
(13)运行结果如图10.20所示。
(14)读者可以从本书的配套光盘上找到实例的配套程序。
【参见光盘文件】:第10章\使用Data控件访问数据库.vbp,窗体为Form1.frm。
(15)利用表格来表示上述过程中窗体的设置,如表10.1所示。
(图片较大,请拉动滚动条观看)
通过【ADODC】控件访问数据库
(1)启动VB,建立新的工程。
(2)如图10.21所示的VB主界面的【菜单栏】选择【工程】/【部件】选项。
(3)出现如图10.22所示的部件的【控件】选项卡。
(4)如图10.23所示。
(图片较大,请拉动滚动条观看)
(5)如图10.24所示。
(6)出现如图10.25所示的属性页的【通用】选项卡。
(图片较大,请拉动滚动条观看)
(7)切换到如图10.26所示的属性页的【身份验证】选项卡。
(8)切换到如图10.27所示的属性页的【记录源】选项卡。
(图片较大,请拉动滚动条观看)
(9)主要的属性设置如图10.28所示。
(图片较大,请拉动滚动条观看)
(10)向Form1窗体中添加一个名为Text2的【TextBox】控件。
(11)向Form1窗体中添加一个名为Text3的【TextBox】控件。
(12)读者可以从本书的配套光盘上找到实例的配套程序。
【参见光盘文件】:第10章\使用ADODC控件访问数据库.vbp,窗体为Form2.frm。
(13)利用表格来表示上述过程中窗体的设置,如表10.2所示。
(图片较大,请拉动滚动条观看)
(图片较大,请拉动滚动条观看)
(14)程序运行结果如图10.29所示。
通过【ADODB】编程对象访问数据库
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所示。