1,217
社区成员
发帖
与我相关
我的任务
分享怎样使 我的vb6识别access2000建的数据库
我的语句是这样的
Dim db As Database
Set db = opendatabase("E:\database\数据库.mdb")
但只能打开visdata建的7.0
怎样可以打开2000的，因为2000的字段可以自增
Dim db As Database
Set db = opendatabase("E:\database\数据库.mdb")
但只能打开visdata建的7.0
怎样可以打开2000的，因为2000的字段可以自增
...全文
请发表友善的回复…
发表回复
wxy001 2003-04-09
- 打赏
- 举报
强力要求你用ado，在用点什么sp5问题就应该解决了，很简单的，不要用什么dao了，很变态
jingxuanhuang 2003-04-09
- 打赏
- 举报
ADO虽然是好，但麻烦，其实引用microsoft DAO 3.6 object library也就可以了
lihonggen0 2003-04-09
- 打赏
- 举报
建议用ADO
Dim adoCnn As New adodb.Connection
Dim adoCmm As New adodb.Command
Dim adoRec As New adodb.Recordset
adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
adoCmm.ActiveConnection = adoCnn
adoCmm.CommandType = adCmdText
adoCmm.CommandText = "select * from employees"
Set adoRec = adoCmm.Execute
Dim adoCnn As New adodb.Connection
Dim adoCmm As New adodb.Command
Dim adoRec As New adodb.Recordset
adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Program Files\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
adoCmm.ActiveConnection = adoCnn
adoCmm.CommandType = adCmdText
adoCmm.CommandText = "select * from employees"
Set adoRec = adoCmm.Execute
of123 2003-04-09
- 打赏
- 举报
在工程-引用中将DAO 3.51换为DAO 3.6。
