|
Здравейте !
Може ли някой да ми помогне да свържа Аccess 2007 с Visual Basic 6.0
Как ли не опитах да я свържа тази таблица , но все ми дава грешка : could not find file и ми маркира ето този ред от сорса :
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & path
А ето го и целия сорс:
Form1:
Private Sub Form_Load()
With ListView1.ColumnHeaders
.Add , , "№", 300
.Add , , "ЕГН", 1200
.Add , , "Име", 2000
.Add , , "Презиме", 2000
.Add , , "Фамилия", 2000
.Add , , "Санкция", 5000
.Add , , "Дата", 1200
End With
LoadData
End Sub
Sub LoadData()
Dim list As ListItem
Dim X As Integer
ConnectDB
rs.Open "Select * from AND", db, 3, 3
Do Until rs.EOF
Set list = ListView1.ListItems.Add(, , rs(0))
For X = 1 To 7
list.SubItems(X) = rs(X)
Next X
rs.MoveNext
Loop
Set rs = Nothing
db.Close: Set db = Nothing
End Sub
Module1:
Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public path As String
Public Sub ConnectDB()
path = App.path & "\AND.mdb"
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & path
End Sub
Тъкато съм още прохождащ така да се каже, вероятно е да съм пропуснал нещо! Но не мога да вдяна !
Щ е се радвам на всякакви съвети, относно свързването на Аccess 20007 с Visual Basic 6.0
|
VB6 с Access 2007
