运行:
Set db = OpenDatabase(App.Path + "\data\data.mdb")
时遇到Run-time error 3343!!
警告说:Unrecognized database format "c:\data.mdb"!!
是什么原因????
Set db = OpenDatabase(App.Path + "\data\data.mdb")
时遇到Run-time error 3343!!
警告说:Unrecognized database format "c:\data.mdb"!!
是什么原因????
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 Customers"
Set adoRec = adoCmm.Execute
Set MSHFlexGrid1.DataSource = adoRec
Dim adoCnn As New adodb.Connection
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"
''''OK.