Може ли някой да ми помогне да свържа Аccess 2007 с Visual Basic 6.0
Как ли не опитах да я свържа тази таблица , но все ми дава грешка : could not find file и ми маркира ето този ред от сорса :
db.Open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & path
В References избрах тази опция:
А ето го и целия сорс:
Private Sub Form_Load()
With ListView1.ColumnHeaders
.Add , , "Guest ID", 0
.Add , , "Full Name", 3000
.Add , , "Address", 2500
.Add , , "Phone", 1500
.Add , , "Gender", 1200
.Add , , "Age", 800
End With
LoadData
End Sub
Sub LoadData()
Dim list As ListItem
Dim x As Integer
connectDB
rs.Open "select * from tblGuestInfo", db, 3, 3
Do Until rs.EOF
Set list = ListView1.ListItems.Add(, , rs(0))
For x = 1 To 5
list.SubItems(x) = rs(x)
Next x
rs.MoveNext
Loop
Set rs = Nothing
db.Close
db.Close: Set db = Nothing
End Sub
а това е модула
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public path As String
Public Sub connectDB()
path = App.path & "\DB.mdb"
db.Open "provider=Microsoft.Jet.OLEDB.4.0;Data source=" & path
End Sub
Тъй като съм още прохождащ така да се каже, вероятно е да съм пропуснал нещо! Но не мога да вдяна !
Щ е се радвам на всякакви съвети, относно свързването на Аccess 2007 с Visual Basic 6.0
Качих файла в DOX.bg
Ето линка :http://dox.bg/files/dw?a=fb7dbd1495
Благодаря предварително!