Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Datenbank Abfrageergebnis in die Combobox füllen
Autor: 2000Alex
Datum: 18.06.02 17:39
Hallo, da mein erster Versuch hier Hilfe zu bekommen so gut geklappt hat, würde ich gerne wieder um hilfe bitten. Ich habe folgendes Problem : Ich möchte das mit SQL aus einer Access Datenbank ausgelesene Ergebnis in eine Combobox eintragen (ist nur eine Spalte) Habe schon versucht, aber komme nur (vb auch) bis additem, da will das Programm aber nicht mehr. Code siehe unten Danke schon mal Alex Option Explicit Dim strSql As String Dim con As ADODB.Connection Dim rsDaten As ADODB.Recordset Private Sub cmdAnbietersuchen_Click() strSql = "SELECT distinct H.Beschreibung FROM HauptTab H where H.AnbieterID = 1" Call mDatenLesen(strSql) 'Funktionsaufruf + Übergabe des SQL Call DatenSchreiben End Sub Private Sub mDatenLesen(strSql As String) 'On Error GoTo Err 'DB Connect mit den notwendigen Einstellungen Set con = New ADODB.Connection With con .Provider = "Microsoft.Jet.OlEDB.4.0" .ConnectionString = App.Path + "Datenbank.mdb" .Open End With 'Daten werden aus der Datenbank ausgelesen Set rsDaten = New ADODB.Recordset rsDaten.CursorType = adOpenKeyset rsDaten.LockType = adLockOptimistic rsDaten.Open strSql, con Exit Sub 'Err: 'MsgBox "mDatenLesen" End Sub Private Sub DatenSchreiben() Dim n As Integer With cboProdukt Do While Not rsDaten.EOF 'Das Grid wird bis EOF gefüllt n = n + 1 .AddItem = rsDaten(0) '************ rsDaten.MoveNext Loop End With rsDaten.Close Set rsDaten = Nothing 'Die Instanzen müssen gelöscht werden!! Set con = Nothing End Sub

Datenbank Abfrageergebnis in die Combobox füllen	62	2000Alex	18.06.02 17:39
Re: Datenbank Abfrageergebnis in die Combobox füllen	380	unbekannt	18.06.02 17:58
bei Additem kommt aber nach wie vor Argument ist nicht optio...	30	2000Alex	18.06.02 18:04
Re: bei Additem kommt aber nach wie vor Argument ist nicht o...	506	unbekannt	18.06.02 18:06
Sorry AddItem ist immer noch Argument n. opt(oT)	24	2000Alex	18.06.02 18:11
kleiner Syntaxfehler	460	Dieter	18.06.02 18:33
Super Danke -Funktioniert (oT)	25	2000Alex	18.06.02 18:46
Joh, ist die Hitze -bringt Einem um oT	356	unbekannt	18.06.02 18:48
Du sagst es: Stuttgart 33,2 Grad - aber auf der Höhe, im Kes...	326	Moni	18.06.02 18:59
Au Backe, dat kesselt oT	386	unbekannt	18.06.02 19:05
Uppss... Steinach 37,4° (oT)	352	Dieter	18.06.02 19:07

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