问一个很笨的问题,关于VB与数据库?

petty

vb6.0为什么只认识access97格式的数据库（*.mdb）文件，如何让其能识别access2000格式的数据库？？
请大侠指教

zfbj

引用ADO 2.5的库即可。

CLARKLEE

以下是我利用vb6.0调用access200格式的数据库的源码，希望对你有帮助 Dim conn1 As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Set conn1 = New ADODB.Connection
conn1.Provider = "microsoft.jet.oledb.4.0"
conn1.ConnectionString = "Data Source=" & dbpath & "stylebook.mdb;" & _
" ;Jet OLEDB:Database password="
conn1.Open
rs1.CursorType = adOpenKeyset
rs1.LockType = adLockOptimistic
rs1.Open "select * from stylebook1", conn1
rs1.MoveFirst
'Set dbs = OpenDatabase(dbpath)
'Set rs = dbs.OpenRecordset("select * from stylebook", dbOpenDynaset)


For x = 0 To rs1.Fields.Count - 1
rs1.MoveFirst
Do While Not rs1.EOF
m = 0
y = 1
temp = rs1.Fields(x).Value
If Len(sdate) <= Len(temp) Then
For y = 1 To Len(temp) - Len(sdate) + 1
If Mid(temp, y, Len(sdate)) = sdate Then
For z = 0 To Combo1.ListCount
If Combo1.List(z) = rs1.Fields("厂商名称").Value Then
m = 1
Exit For
End If
Next z
If m = 0 Then
Combo1.AddItem rs1.Fields("厂商名称").Value
strsend = strsend & rs1.Fields("厂商名称").Value & "|"
End If
m = 0
End If
Next y
End If
rs1.MoveNext
Loop


Next x
find_db_typebook = strsend
rs1.Close
Set conn1 = Nothing

petty

谢谢大侠，万岁！我终于会了！

efan2000

Access 97数据库，Microsoft.Jet.OLEDB.3.51


Access 2000数据库，Microsoft.Jet.OLEDB.4.0


各个数据库的连接其实就是Provider不同而已。

petty

还有一个问题,用二楼的方法我虽然已经会实现和access2000格式的数据库实施链接和访问,但我昨天看了书上讲的用data控件静态设置数据文件后,用sql语句也能顺利访问,但还是这个问题.如何用data数据控件静态设置access2000的数据库,是不是要引用什么的,我已经引用了microsoft access9.0 object library和ado 2.5为什么设置data的recordsource属性时还是出现"unrecongize database format"对话框?



注:用ado控件倒是能静态设置access2000的数据库,为什么data控件不行?


请大侠指教!

petty

CLARKLEE发表于2005-3-27 17:58:00If Len(sdate) <= Len(temp) Then

请教其中len(sdate)是什么意思??程序前面可没有出现sdate这个变量吗,可是我运行此程序竟然能通过,何也???