download.bg
 Вход Списание  Новини  Програми  Статии  Форум  Чат   Абонамент  Топ95   Архив 

Свързване на VB6 с Access 2007

Автор
Съобщение
power_m
Сря, 11.01.12, 00:43
Може ли някой да ми помогне да свържа А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

Благодаря предварително!

редактиран от power_m на 11.01.12 00:49
редактиран от power_m на 11.01.12 00:50
electric_cc
Сря, 11.01.12, 13:36
Това ако може да ти помогне frmExcel.rar
power_m
Сря, 11.01.12, 16:41

RE: Свързване на VB6 с Access 2007

Прикачвам линка на файла, тъй като в по-горния линк съм пропуснал да кача модула от сорса
http://dox.bg/files/dw?a=8b5f915381

Благодаря!

electric_cc
Чет, 12.01.12, 10:57
Нямаш MDB файл.
power_m
Пет, 13.01.12, 12:26

RE: Свързване на VB6 с Access 2007

Сега наистина съм качил всичко!
Ето линка: http://dox.bg/files/dw?a=12ba1ddb33
 Незная защо се е получило така! А бях сигурен, че съм качил всичко. Извинявайте!
Всъшност В формата пробвах с контролата DataGrid и се получи, а с ListView не става. Грешката ми я посочва в модула!

Коментар

за нас | за разработчици | за реклама | станете автори | in english  © 1998-2024   Experta Ltd.