Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ach so...
Autor: Iceman
Datum: 19.03.02 15:01
beim compilieren bekomm ich hier nen fehler... Option Explicit Dim Db As Database <--------------------- user defined type not defined *grübeL* Private Sub Form_Load() 'Datenbank öffnen Set Db = DBEngine.OpenDatabase(App.Path & "E:FilezAccessLigamanager.mdb") End Sub Private Sub Form_Terminate() On Error Resume Next Db.Close Set Db = Nothing End Sub FillCombo Combo1, 1 FillCombo Combo2, 2 FillCombo Combo3, 3 Private Sub FillCombo(Combo As ComboBox, ByVal iLiga As Integer) Dim Rs As Recordset Dim SQL As String SQL = "SELECT * FROM Vereine Where Liga = " & CStr(iLiga) Set Rs = Db.OpenRecordset(SQL) Combo.Clear If Rs.Recordcount > 0 Then Do Combo.AddItem Rs("Vereinsname") Rs.MoveNext Loop Until Rs.EOF End If Rs.Close Set Rs = Nothing End Sub

Daten aus einer Datenbank lesen!	60	Iceman	19.03.02 11:56
Re: Daten aus einer Datenbank lesen!	227	Dieter	19.03.02 12:17
Re: Daten aus einer Datenbank lesen!	35	Iceman	19.03.02 12:22
Re: Daten aus einer Datenbank lesen!	208	Dieter	19.03.02 13:12
Re: Daten aus einer Datenbank lesen!	45	Iceman	19.03.02 13:16
Re: Daten aus einer Datenbank lesen!	239	Dieter	19.03.02 13:25
Re: Daten aus einer Datenbank lesen!	30	Iceman	19.03.02 13:43
Ach so...	272	Dieter	19.03.02 13:55
Re: Ach so...	31	Iceman	19.03.02 14:13
Re: Ach so...	28	Iceman	19.03.02 14:13
duhu..	27	Iceman	19.03.02 14:51
Re: Ach so...	36	Iceman	19.03.02 15:01
Fehlender Verweis!	237	Dieter	19.03.02 15:19

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