1,216
社区成员
发帖
与我相关
我的任务
分享一个小问题？
我象这样联的，报类型不匹配。是什么原因哟！
Dim DB As Database
Dim Rs1 As Recordset
Set DB = OpenDatabase(App.Path + "\db.mdb")
Set Rs1 = DB.OpenRecordset("select product.name from product", dbOpenDynaset)
Dim DB As Database
Dim Rs1 As Recordset
Set DB = OpenDatabase(App.Path + "\db.mdb")
Set Rs1 = DB.OpenRecordset("select product.name from product", dbOpenDynaset)
...全文
请发表友善的回复…
发表回复
LCAAA 2003-07-20
- 打赏
- 举报
Set DB = OpenDatabase(App.Path & "\db.mdb")
Set Rs1 = DB.OpenRecordset("select product.name from product)
应该是这么写吧
Set Rs1 = DB.OpenRecordset("select product.name from product)
应该是这么写吧
radarhp 2003-07-20
- 打赏
- 举报
Dim Conn As New ADODB.Connection
Conn.Open strCon 'strCon是你自己的连接字符串
Conn.CursorLocation = adUseClient
Dim rs As New ADODB.Recordset
rs.Open "select * from 表名称", Conn, adOpenDynamic, adLockOptimistic
Conn.Open strCon 'strCon是你自己的连接字符串
Conn.CursorLocation = adUseClient
Dim rs As New ADODB.Recordset
rs.Open "select * from 表名称", Conn, adOpenDynamic, adLockOptimistic
