1.链接到MDB数据库
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset
'取得应用程序路径
Dim str As String
str = App.Path & "\MDB"
If Right(str, 1) <> "\" Then
str = str + "\"
End If
'链接到数据库
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & str & "*.mdb(你的数据库);Jet OLEDB:Database Password=***(你的密码)"
cnn.Open strcnn Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "***(你的表名)", cnn, , , adCmdTable'链接数据库成功,但是要在工程-引用里面把ADO和ADO Recordset的相关项勾上,将数据存到数据库中用rst.AddNew 然后rst!字段=数据 然后rst.update 就可以了;are u understand??
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset
'取得应用程序路径
Dim str As String
str = App.Path & "\MDB"
If Right(str, 1) <> "\" Then
str = str + "\"
End If
'链接到数据库
strcnn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & str & "*.mdb(你的数据库);Jet OLEDB:Database Password=***(你的密码)"
cnn.Open strcnn Set rst = New ADODB.Recordset
rst.CursorType = adOpenKeyset
rst.LockType = adLockOptimistic
rst.Open "***(你的表名)", cnn, , , adCmdTable'链接数据库成功,但是要在工程-引用里面把ADO和ADO Recordset的相关项勾上,将数据存到数据库中用rst.AddNew 然后rst!字段=数据 然后rst.update 就可以了;are u understand??
定义connection对象
定义recordset对象
实例化上述对象
连接字符串和asp一样
保存用“INSERT”语句和“update”语句