Daten aus Datenbank in Listenfeld schreiben.
07.08.2003 07:31:20
Ingoschn
heute wieder mein tägliches problemchen :/, aber irgendwie muss man ja weiterkommen :)
Mein Problem, ich möchte eine Spalte aus einer Datenbank in ein Kombinationslistenfeld von einer Userform übertragen.
Ich habs schonmal versucht, aber hat nicht wirklich funktioniert :(
hier der Code:
Private Sub UserForm_Initialize()
Dim objworapp As Object
Dim xlAnw As Object ' Variable für Verweis deklarieren.
Dim rs As Object
Set nameconn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.RecordSet")
auswahl = InputBox("Welche KommNr möchten Sie öffnen?")
1 nameconn.Open "DSN=test"
SQL = "select [Komm-Nr] from bericht "
rs.Open SQL, nameconn, 3, 3
a = rs
b = rs("Komm-Nr")
cmbliste.AddItem b
End Sub
kann mir jemand evtl sagen, was ich anders machen bzw verbessern sollte, damit es funktioniert?
gruß Ingo