VB6 с Access 2007
33 отговора
0 прегледа
VB6 с Access 2007
Здравейте !
Може ли някой да ми помогне да свържа А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
Може ли някой да ми помогне да свържа А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
Re: VB6 с Access 2007
Ти малоумен ли си, или да!? 
Visual Studio 2008
Hardware Requirements
Minimum: 1.6 GHz CPU, 384 MB RAM, 1024x768 display, 5400 RPM hard disk
Recommended: 2.2 GHz or higher CPU, 1024 MB or more RAM, 1280x1024 display, 7200 RPM or higher hard disk
Човекът е със доста над 384 MB RAM, не виждам какъв е проблема!!
Visual Studio 2008
Hardware Requirements
Minimum: 1.6 GHz CPU, 384 MB RAM, 1024x768 display, 5400 RPM hard disk
Recommended: 2.2 GHz or higher CPU, 1024 MB or more RAM, 1280x1024 display, 7200 RPM or higher hard disk
Човекът е със доста над 384 MB RAM, не виждам какъв е проблема!!
Редактирано от Naki на
Re: VB6 с Access 2007
В случая няма такова нещо!
1. System Requirements
1.2. Supported Operating Systems
· Windows XP Service Pack 2 or above
· Windows Server 2003 Service Pack 1 or above
· Windows Server 2003 R2 or above
· Windows Vista
· Windows Server 2008
Демек въобще няма да бачка на SP1 и non-SP WinXP.
1. System Requirements
1.2. Supported Operating Systems
· Windows XP Service Pack 2 or above
· Windows Server 2003 Service Pack 1 or above
· Windows Server 2003 R2 or above
· Windows Vista
· Windows Server 2008
Демек въобще няма да бачка на SP1 и non-SP WinXP.