Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Felder auflisten
Autor: nobody
Datum: 14.01.03 19:49
Hallo zusammen... Ich habe mal wieder eine (vielleicht saublöde) Frage.... Problem: Ich habe auf einer Form 2 Listboxen. List1 zeigt mir die Tabellen einer Datenbank an. List2 soll mir beim klicken auf einen Listeintrag die zugehörigen Tabellenfelder anzeigen. Ich habe es so versucht: Private Sub List1_Click() Me.List2.Clear Dim pfad As String Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim F As Field Dim mytbl As String mytbl = Me.List1.Text pfad = "c:\mawo\daten\" & admDB.List1.Text With cn .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = pfad .Open rs.Open "select TOP 1 * from mytbl ", cn, adOpenStatic, adLockOptimistic For Each F In rs.Fields Me.List2.AddItem F.Name Next End With rs.Close cn.Close End Sub Versuchsweise habe ich statt der Variablen "mytbl" mal den Tabellennamen "Tabelle1" eingegeben. Das hat dann auch funktioniert. Kann in dieser "rs.open"-Anweisung keine Variblen eingeben? bin für jeden Tipp dankbar. Fred

Felder auflisten	402	nobody	14.01.03 19:49
Re: Felder auflisten	257	michi-bib	14.01.03 20:16
Re: Felder auflisten	258	nobody	14.01.03 20:25

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen