Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\等级考试管理.mdb;Persist Security Info=False
***************************************************************************
ADODB链接Access数据库
Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=F:\专业课\数据库\数据库实验\ex1.mdb;Persist Security Info=False"
cnn.Open
Set rs = New ADODB.Recordset
rs.Open "select ENo,EName from EMP", cnn, adOpenDynamic, adLockBatchOptimistic
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
End Sub
**************************************************************************
ADODB.RecordSet部分属性方法
Private Sub Command1_Click()
rs.MoveNext
If Not rs.EOF Then
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Else
rs.MoveLast
MsgBox "已到最后"
End If
End Sub
Private Sub Command2_Click()
rs.MovePrevious
If Not rs.BOF Then
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
Else
rs.MoveFirst
MsgBox "已到最前"
Exit Sub
End If
End Sub
**************************************************************************
ADODB.Command对象的用法
Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=F:\专业课\数据库\数据库实验\ex1.mdb;Persist Security Info=False"
cnn.Open
Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
' cmd.CommandType = adCmdText
' cmd.ActiveConnection = cnn
' cmd.CommandText = "select ENo,EName from EMP"
' rs.Open cmd
Text1.Text = rs.Fields(0)
Text2.Text = rs.Fields(1)
End Sub
**************************************************************************
ADO对象与Griddata控件的链接绑定
Private Sub Form_Load()
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source" _
& "=F:\专业课\数据库\数据库实验\ex1.mdb;Persist Security Info=False"
con.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from EMP", con, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub
**************************************************************************
ADO对象与Griddata控件的动态查询
Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
& "F:\专业课\数据库\数据库实验\学生公寓管理系统\寝室管理系统.mdb;Persist Security Info=False"
cnn.Open
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open " select * from administrator where ID=" & """" & Text1.Text & """" & "", cnn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
End Sub
***************************************************************************
使用相对路径链接数据库
Private Sub Form_Load()
Set cnn = New ADODB.Connection
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &
App.Path & "\寝室管理系统.mdb;Persist Security Info=False"
cnn.Open
End Sub
