Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Problem mit Index einer DB (DAO)
Autor: vb6de
Datum: 30.11.02 14:53
Hallo ! Ich habe ein größeres Problem mit meiner Datenbank (DAO): Ich lege zur Laufzeit eine zweite Tabelle nachfolgendem Muster an: Dim oTabDef As New TableDef Dim oField() As New Field Dim ind() As New Index Dim i% Dim strFile As String strFile = App.Path If Right$(strFile, 1) <> "\" Then strFile = strFile & "\" strFile = strFile & "Adressen.mdb" ReDim oField(7) ReDim ind(3) oTabDef.Name = "Termine" For i = 1 To 7 oField(i).Name = Choose(i, "nr", "Name", "Betreff", "Bemerkung", "Datum", "Uhrzeit", "Erinnerung") oField(i).Type = Choose(i, DB_LONG, DB_TEXT, DB_TEXT, DB_MEMO, DB_TEXT, DB_TEXT, DB_TEXT) oField(i).Size = Choose(i, 0, 100, 50, 0, 10, 5, 1) If i = 1 Then oField(i).Attributes = 8 oTabDef.Fields.Append oField(i) Next i For i = 1 To 3 ind(i).Name = Choose(i, "Name", "Datum", "INDEX 1") ind(i).Fields = Choose(i, "Name", "Datum", "Name;Betreff") oTabDef.Indexes.Append ind(i) Next i ' Tabelle speichern db.TableDefs.Append oTabDef db.Close Set db = ws.OpenDatabase(strFile, False, False) Dann lasse ich eine Listbox (lstTermine) mit einigen Daten füllen: Dim dy1 As Recordset Dim i% Set dy1 = db.OpenRecordset("Select * from termine order by Datum") lstTermine.Clear While Not dy1.EOF lstTermine.AddItem dy1!Datum & ", " & dy1!Uhrzeit & ", " & dy1!Betreff lstTermine.ItemData(i) = dy1!nr i = i + 1 dy1.MoveNext Wend Alle Daten der Tabelle stelle ich wie folgt dar: cmbNamen.Text = Auslesen(dy.Fields("Name")) txtBetreff.Text = Auslesen(dy.Fields("Betreff")) txtBemerkungen.Text = Auslesen(dy.Fields("Bemerkung")) txtDatum.Text = Auslesen(dy.Fields("Datum")) txtUhrzeit.Text = Auslesen(dy.Fields("Uhrzeit")) Jetzt ist mein Problem folgendes: Ich befürchte, dass ich bei den Indexen etwas falsch gemacht habe, denn wenn ich auf die Listbox klicke, um die Daten anzeigen zu lassen, zeigt mir das Prog immer nur den ersten Datensatz an. Der Aufruf erfolgt über: Private Sub lstTermine_Click() Dim s$, s1$, s2$ If Änderung Then If MsgBox("Der aktuelle Datensatz wurde geändert! Speichern?", 36, "Speichern") = 6 Then Speichern Exit Sub End If End If dy.FindFirst "nr=" & lstTermine.ItemData(lstTermine.ListIndex) Darstellen Änderung = False End Sub Was kann ich tun? Über eine Hilfe würde ich mich sehr freuen. MfG Jens Kruse

Problem mit Index einer DB (DAO)	423	vb6de	30.11.02 14:53
Re: Problem mit Index einer DB (DAO)	340	unbekannt	30.11.02 15:13
Re: Problem mit Index einer DB (DAO)	315	vb6de	30.11.02 15:16
Re: Problem mit Index einer DB (DAO)	315	unbekannt	30.11.02 15:18
Re: Problem mit Index einer DB (DAO)	287	vb6de	30.11.02 15:22
Re: Problem mit Index einer DB (DAO)	286	unbekannt	30.11.02 15:34
Re: Problem mit Index einer DB (DAO)	308	vb6de	30.11.02 15:39
Re: Problem mit Index einer DB (DAO)	291	unbekannt	30.11.02 15:43
Re: Problem mit Index einer DB (DAO)	283	vb6de	30.11.02 15:47
Re: Problem mit Index einer DB (DAO)	290	unbekannt	30.11.02 15:52
Re: Problem mit Index einer DB (DAO)	270	vb6de	30.11.02 15:56
Eine Idee noch:	387	unbekannt	30.11.02 16:03
Re: Problem mit Index einer DB (DAO)	232	unbekannt	30.11.02 15:58
Re: Problem mit Index einer DB (DAO)	251	vb6de	30.11.02 19:26
Re: Problem mit Index einer DB (DAO)	262	vb6de	01.12.02 14:29

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