Access Datenbank auslesen

Computer: Software & Programmierung Visual Basic
#1

Hallo Wissende,

ich habe mir die ADO Demo ( adovbp.zip ) von der Seite:

http://www.gssg.de/vbdb.htm

heruntergeladen. Mein VB5 mag wie üblich die Schlüssel Retained und
DebugStartupOption in der adodemo.vbp nicht, also beide gelöscht.

Beim Laden von der vbp werden dann drei .ocx vermisst, msdatgrid.ocx, msadodc.ocx, mshflxgd.ocx nicht gefunden.

Beim Starten (F5 im Code) wird „UCase“ in Form_Load markiert mit Fehlermeldung projekt oder Biblio nicht gefunden.

Erstellt wird eine eine frmmain.log:

Zeile 16: Klasse MSDataGridLib.DataGrid des Steuerelements DGrid war
keine geladene Steuerelementklasse.
Zeile 22: Der Eigenschaftsname _ExtentX in DGrid ist ungültig.
Zeile 23: Der Eigenschaftsname _ExtentY in DGrid ist ungültig.
Zeile 24: Der Eigenschaftsname _Version in DGrid ist ungültig.
Zeile 25: Der Eigenschaftsname AllowUpdate in DGrid ist ungültig.
Zeile 26: Der Eigenschaftsname HeadLines in DGrid ist ungültig.
Zeile 27: Der Eigenschaftsname RowHeight in DGrid ist ungültig.
Zeile 28: Der Eigenschaftsname AllowDelete in DGrid ist ungültig.
Zeile 37: Der Eigenschaftsname HeadFont in DGrid ist ungültig.
Zeile 47: Der Eigenschaftsname ColumnCount in DGrid ist ungültig.
Zeile 60: Der Eigenschaftsname Column00 in DGrid ist ungültig.
Zeile 73: Der Eigenschaftsname Column01 in DGrid ist ungültig.
Zeile 74: Der Eigenschaftsname SplitCount in DGrid ist ungültig.
Zeile 81: Der Eigenschaftsname Split0 in DGrid ist ungültig.

Wie kriege ich die vbp in VB5 zum Laufen?

Endziel ist daß sie in Excel2000-Vba laufen soll.

Hintergrund ist dies hier:

/t/odbc-zugriff-aus-excel/4707696

da soll eine Access Datei mit Excel via ODBC ausgelesenteilweise dargestellt werden.

Da für mich ADO, DAO, ODBC böhmische Dörfer sind :smile: bin ich auch für jeden anderen VB-Code dankbar den ich schaffe nach Vba zu übertragen.

Gleichzeitig würde ich aber auch, die höhere Priorität für mich, gerne wissen was ich tun muss um die obige vbp mit VB5 zum Laufen zu bringen.

Danke ^ Gruß
Reinhard

#2

Hallo Reinhard,

ich habe Dir mal ein ADO-Demo gebaut, das auf unnötigen Schnickschnack verzichtet. Der Code wird für Dich selbsterklärend sein.

Gruß Rainer

Option Explicit
Dim Cn As New ADODB.Connection
Dim RsT As New ADODB.Recordset

Private Sub Command1\_Click()
 RsT.MoveFirst
 While RsT.EOF = False
 List1.AddItem RsT(0)
 Wend
End Sub

Private Sub Form\_Load()
Cn.Provider = "Microsoft.Jet.OLEDB.4.0"
Cn.ConnectionString = "Data Source=" & App.Path & "\Datenbank.mdb;"
Cn.Open

 With RsT
 .ActiveConnection = Cn
 .CursorLocation = adUseClient
 .CursorType = adOpenKeyset
 .LockType = adLockOptimistic
 .Source = "SELECT \* FROM Tabelle"
 .Open
 End With
 End Sub

Private Sub Form\_QueryUnload(Cancel As Integer, UnloadMode As Integer)
 RsT.Close
 Cn.Close
End Sub
#3

Привет Rainer

ich habe Dir mal ein ADO-Demo gebaut, das auf unnötigen
Schnickschnack verzichtet. Der Code wird für Dich
selbsterklärend sein.

(Большое) спасибо
Reinhard