我用的是ACCESS 的代码是: Dim Con As New ADODB.Connection Set Con = New ADODB.Connection Dim Stron As String Stron = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\TestDB.mdb;" _ & "Persist Security Info=False" Con.Open Stron
这样试一下呢 Dim Con As ADODB.Connection '这里不用New Set Con = New ADODB.Connection
还是不行,报错是:Set Con = New ADODB.Connection 这一句 ActiveX部件不能创建对象
ADODB.Connection不要点和后面的东西
试一下这个: set con=server.createobject("adodb.connection") con.open"你的数据库名" "用户名" "密码"
不行 server 变量没有定义
你为什么不用VBSCRIPT试一下,我个人感觉好用一点。虽然没有VB的功能强大。
Dim Con As New ADODB.Connection '这里有了New Set Con = New ADODB.Connection '这句就不New了 Dim Stron As String Stron = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\TestDB.mdb;" _ & "Persist Security Info=False" Con.Open Stron
谢谢!
用ADODB.Connection必须建立数据源的。你有没有设置啊?
的代码是:
Dim Con As New ADODB.Connection
Set Con = New ADODB.Connection
Dim Stron As String
Stron = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\TestDB.mdb;" _
& "Persist Security Info=False"
Con.Open Stron
Dim Con As ADODB.Connection '这里不用New
Set Con = New ADODB.Connection
ActiveX部件不能创建对象
set con=server.createobject("adodb.connection")
con.open"你的数据库名" "用户名" "密码"
server 变量没有定义
Set Con = New ADODB.Connection '这句就不New了
Dim Stron As String
Stron = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\TestDB.mdb;" _
& "Persist Security Info=False"
Con.Open Stron
根据出错应该是connection方法有问题
MDAC_TYP2.8.EXE
2、...Microsoft.Jet.OLEDB.4.0...只能用于ACCESS2000