Dim adoConnection As New adodb.Connection
'不带密码 没错
'adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft Paradox Driver (*.db)};DBQ=d:\Borland\Shared\Data\"
'带密码 请测试
adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft Paradox Driver (*.db)};Password=XXXX;DBQ=d:\Borland\Shared\Data\"
Dim adoRecordset As New adodb.Recordset
adoRecordset.Open "select * from [employee.db]", adoConnection
MsgBox adoRecordset.GetString
'不带密码 没错
'adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft Paradox Driver (*.db)};DBQ=d:\Borland\Shared\Data\"
'带密码 请测试
adoConnection.Open "Provider=MSDASQL.1;Driver={Microsoft Paradox Driver (*.db)};Password=XXXX;DBQ=d:\Borland\Shared\Data\"
Dim adoRecordset As New adodb.Recordset
adoRecordset.Open "select * from [employee.db]", adoConnection
MsgBox adoRecordset.GetString
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货