Datenbank in VB6

[5Rad]

Mahlzeit,
ich habeine frage und zwar:

habe ich eine Anmeldemaske,dort sollen mir alle Benutzer in einer Listbox angezeigt werden.Diese Benutzer stehen in einer Acces Datenbank. Bis jetzt bekomm ich es hin, dass wenn ich einen Button klicke das es mir die Listbox fühlt. Aber ich möchte das dies Automatisch passiert.

ist das möglich?

liebe grüße
Pietro

 

[Peter Bucher]

Hallo Pietro

Ja, das ist auf alle Fälle möglich.
Die Frage wäre dann, wann dein gewünschter Zeitpunkt ist, an dem die Daten abgerufen und hinzugefügt werden sollen?


Gruss Peter

 

[5Rad]

Bis jetzt sieht mein Programm so aus das ich einen Startbildschirm hab.Der bleibt 5sek geöffnet, anschließen geht es zur besagten Anmeldemaske.
Theorethisch könnte man die Datenbank schon zum Programmstart auslesen.

hast du vielleicht nee idee wie des funktioniert?

 

[Peter Bucher]

Hallo

Der Event "Load", deiner Form passt genau.
Benutzte diesen Event und schreibe deinen Code in den entsprechenden Sub bzw. Eventhandler.


Gruss Peter

 

[5Rad]

Ohje ich komm einfach net weiter :-(
Hat mir jemand vielleicht en Beispielcode für mein Problem?

lieb grüße
Piti

 

[Alex F.]

Private Sub Form_load
'Datenbank öffnen und 
'jetzt deine Füllroutine
end sub

 

[5Rad]

Option Explicit

Dim Cn As ADODB.Connection  ' ADO-Connectionobjekt für Verbindung
Dim WithEvents Rs As ADODB.Recordset   ' ADO-Recordset für Datenhandling
Dim bAdd As Boolean

Private Sub Form_Load()

Set Cn = New ADODB.Connection
    With Cn
        .CursorLocation = adUseClient
        .Mode = adModeShareDenyNone
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = App.Path & "\db1.mdb"
        .Open
    End With

Set Rs = New ADODB.Recordset
    With Rs
        .ActiveConnection = Cn
        .CursorLocation = adUseClient
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Source = "SELECT * FROM tbl_Personen"
        .Open
    End With

Set Me.DataGrid1.DataSource = Rs    ' Daten in Grid
Call CntLock(True)                  ' Controls sperren
bAdd = False

End Sub

Hat vielleicht jemand zeit und lust mir den Code genau zu erklären bitte?
Danke im voraus
Mit freundlichen grüßen
Pietro