VB程序如何访问数据库
2006-08-04 11:57:18 来源:WEB开发网【参见光盘文件】:第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所示。
更多精彩
赞助商链接