Eleu Geschrieben 4. November 2010 Teilen Geschrieben 4. November 2010 Hallo, in einer Tabelle einer Datenbank sind 30.000 Einträge nacheinander gelistet. Wenn ich die VB6 Anwendung starte, soll in einem Text1.Text der allererste Eintrag aus der Tabelle angezeigt werden Jetzt möchte ich über eine Schaltfläche mit jedem Mausklick immer den nächsten Eintrag im Text1 anzeigen. Mit einer zweiten Schaltfläche möchte ich wieder an den Anfang springen. Ich habe mal in der Vergangenheit, irgendwas mit dem ODBC Steuerelement gemacht. Auch schon mal was mit dem Jet Datenbankmodul (So hieß das glaube ich) Ich bin was Datenbankabfragen angeht lange raus und könnte etwas Unterstützung gebrauchen. Habe leider nicht die Zeit da lange rumzuprobieren. Wie muss der Quellcode für die erste und zweite Schaltfläche aussehen ? Welches Steuerelement für die Datenbankanbindung soll ich nehmen, und wie muss ich es konfigurieren ? Den Datenbanktyp weiß ich leider noch nicht.:confused: Kann Oracle, Access oder sonst was sein. Kann mir einer Tipps geben ? Gruß Eleu Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Eleu Geschrieben 5. November 2010 Autor Teilen Geschrieben 5. November 2010 Hallo ich nochmal, ich habe mir jetzt eine Exceldatei erstellt und in Tabelle 1 nacheinander irgendwelche Werte eingegeben. In VB6 habe ich ein Data Contol erstellt und dieses mit der Excel Tabelle verbunden. Wenn ich das Data Control über die Maus bediene, werden in Text1.Text nacheinander die Daten angezeigt. Jetzt möchte ich diesen Vorgang eigentlich nur noch über eine separate Schaltfläche ausführen. Ich weiß aber nicht, welche Eigenschaft des Data Control ich wie bedienen muss ? Oder anders gesagt, wie muss der Quellcode für die Schaltfläche aussehen. (Siehe Bild) Gruß Eleu Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Eleu Geschrieben 5. November 2010 Autor Teilen Geschrieben 5. November 2010 Mittlerweile habe ich es selber herausbekommen. Für alle die es vielleicht interessiert: Private Sub Command1_Click() Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveFirst End If End Sub Danke schön... Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.