Visual Basic 6.0 -> Access 2000

[mmdj]

Kann ich Visual Basic 6.0 nicht irgendwie updaten, damit ich mit dem Datenbankassistenten Abfragen aus einer Access 2000 Datenbank zu meinem Programm hinzufügen kann?

(Ich kann die Datenbank nicht konvertieren, weil sonst ein anderes Programm nicht mehr funktioniert)

Dabke für eure Antworten!

 

[RoebiH]

verwende ADO

- Binde die Komponente in das Projekt ein (Microsoft ADO Data Control 6.0 (SP4) (OLEDB)).
- Füge in eine Form das Adodb-Element ein (muss keine Definition haben)

Danach kannst Du in einem Modul folgendes eingeben:

Option Explicit

Dim adoCn As ADODB.Connection
Dim adoRs As ADODB.Recordset

Private Function PersStammRead()
Set adoCn = New ADODB.Connection
With adoCn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\PersDB\PersDB.mdb"
.Mode = adModeRead
.CursorLocation = adUseClient
.Open
End With
Set adoRs = New ADODB.Recordset
With adoRs
.ActiveConnection = adoCn
.Source = "select * from Personal order by PNR"
.CursorType = adOpenDynamic
.Open , , adOpenDynamic, adLockReadOnly
End With

With adoRs
Do Until .EOF
Debug.Print .Fields!PNR & " " & .Fields!Name & " " & .Fields!Vorname
.MoveNext
DoEvents
Loop
.Close
End With

Set adoRs = Nothing
adoCn.Close
Set adoCn = Nothing
End Function

Übrigens funktioniert MDAC 2.8 auch noch mit Access 1.1 (Ur-Oldie) bis Access 2003. Solltest Du diese Version noch nicht installiert haben, so empfehle ich Dir dies jetzt nachzuholen (erspart Probleme).

So und nun viel Spass

 

[mmdj]

DANKE!

Könntest du mir die einzelnen Schritte bitte etwas genauer erklären?
(Ich bin ein Anfänger)