我有一带密码的paradox数据库,用ado连接提示
‘实时错误-2147467259(80004005)
[Microsft] [odbc paradox驱动程序]外部数据库中(10498)的意外错误’
我的paradox版本为4.00.4403.2,
代码如下:
Dim adoRS As New ADODB.Recordset
Dim db As New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "Provider=MSDASQL.1;dsn=Paradox7;uid=;pwd=123;"
adoRS.Open "select * from t1", db, adOpenStatic, adLockReadOnly
‘实时错误-2147467259(80004005)
[Microsft] [odbc paradox驱动程序]外部数据库中(10498)的意外错误’
我的paradox版本为4.00.4403.2,
代码如下:
Dim adoRS As New ADODB.Recordset
Dim db As New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "Provider=MSDASQL.1;dsn=Paradox7;uid=;pwd=123;"
adoRS.Open "select * from t1", db, adOpenStatic, adLockReadOnly
使用下面的连接字符串你的机子上需要先安装Paradox 的数据库驱动引擎。
ODBC Driver for Paradox :
oConn.Open "Driver={Microsoft Paradox Driver (*.db )};" & _
"DriverID=538;" & _
"Fil=Paradox 5.X;" & _
"DefaultDir=c:\dbpath\;" & _
"Dbq=c:\dbpath\;" & _
"CollatingSequence=ASCII" 注:DefaultDir为数据库的默认路径。
Dbq为数据库文件的路径。示例:Dim adoRS As New ADODB.Recordset
Dim db As New ADODB.Connection
dim cnstr as string
cnstr=oConn.Open "Driver={Microsoft Paradox Driver (*.db )};" & _
"DriverID=538;" & _
"Fil=Paradox 5.X;" & _
"DefaultDir=d:\dbpath\;" & _
"Dbq=d:\dbpath\;" & _
"CollatingSequence=ASCII"
db.CursorLocation = adUseClient
db.Open cnstr
adoRS.Open "select * from t1", db, adOpenStatic, adLockReadOnly
我用的是delphi7安装的paradox 驱动
用delphi7的desktop可以打开,但Vb6就是到最后一步提示出错。
是不是必须安装paradox 7,好像没有单独安装版
还是谢谢chenyu5188(蓝色情调)!