'DAO3.6----------'
Set Db = DBEngine.OpenDatabase(CommonDialog1.FileName, False, False, ";pwd=wk123")
Set rs = Db.OpenRecordset(Sql, dbOpenDynaset)
Set Rs = Db.OpenRecordset(Sql, 1)
'DAO3.6----------'用上面的代码打开数据库却不能更新内容,不能执行rs.update为什么??ADODB 的代码如下,也不能通过,不过好象是连接字符串有问题,我不明白。Cmd = "Provider=microsoft.jet.OLEDB.3.51;Password=wk123;" & "Data Source=" & CommonDialog1.FileName
Set cn = New ADODB.Connection
With cn
.ConnectionString = Cmd
.Open ‘ 这里就出现错误了,不能执行。
End With
Set Rs = New ADODB.Recordset
Rs.Open Sql, cn, 1, 3请高手指出错误,使得我能打开数据库并能更新,执行rs.edit ,rs.update
Set Db = DBEngine.OpenDatabase(CommonDialog1.FileName, False, False, ";pwd=wk123")
Set rs = Db.OpenRecordset(Sql, dbOpenDynaset)
Set Rs = Db.OpenRecordset(Sql, 1)
'DAO3.6----------'用上面的代码打开数据库却不能更新内容,不能执行rs.update为什么??ADODB 的代码如下,也不能通过,不过好象是连接字符串有问题,我不明白。Cmd = "Provider=microsoft.jet.OLEDB.3.51;Password=wk123;" & "Data Source=" & CommonDialog1.FileName
Set cn = New ADODB.Connection
With cn
.ConnectionString = Cmd
.Open ‘ 这里就出现错误了,不能执行。
End With
Set Rs = New ADODB.Recordset
Rs.Open Sql, cn, 1, 3请高手指出错误,使得我能打开数据库并能更新,执行rs.edit ,rs.update
ADO 的功能比 DAO3.6 ,ADODB都强大
dim cmd as string
sql"(你所进行的数据库操作语句)"
Cmd = "Provider=microsoft.jet.OLEDB.3.51;Password=wk123;"
dim con as connection
set con=new connection
con.open cmd
com.isolationlevel=adxactserializable
con.begintrans
con.execute sqlcon.committrans或dim sql as string
dim cmd as string
sql"(你所进行的数据库操作语句)"
Cmd = "Provider=microsoft.jet.OLEDB.3.51;Password=wk123;"
dim con as connection
set con=new connection
dim rs as dbodb.recordser
set rs =new adodb.recordset
rs.coursorlocation=aduserserver
rs.cursortye=adopendunamic
rs.locktype=adlockpessimistic(注意在次因不同的数据库操作要求而选项不同)
rs.open sql,con
....建议找个ADO的教材对其进行系统学习放弃DAO吧!
dim cmd as string
sql"(你所进行的数据库操作语句)"
Cmd = "Provider=microsoft.jet.OLEDB.3.51;Password=wk123;"
dim con as connection
set con=new connection
con.open cmd
com.isolationlevel=adxactserializable
con.begintrans
con.execute sql
con.committrans或dim sql as string
dim cmd as string
sql"(你所进行的数据库操作语句)"
Cmd = "Provider=microsoft.jet.OLEDB.3.51;Password=wk123;"
dim con as connection
set con=new connection
dim rs as dbodb.recordser
set rs =new adodb.recordset
rs.coursorlocation=aduserserver
rs.cursortye=adopendunamic
rs.locktype=adlockpessimistic(注意在次因不同的数据库操作要求而选项不同)
rs.open sql,con
....建议找个ADO的教材对其进行系统学习放弃DAO吧!