Wert aus einer Tabelle auslesen VB6

Computer: Software & Programmierung Programmierung allgemein
1

Hallo

ich bitte um Hilfe für einen Newbie:
Ich möchte in einer Access-Tabelle nach einem Wert suchen lassen (VB6) und falls
vorhanden in eine Variable schreiben. Bei NoMatch soll das Programm geschlossen werden. Könnt Ihr mir auf die Sprünge helfen?
Sorry, wenn ich Euch mit so einfachen Sachen belästige.

Cheers

2

Hi,
wenn du die Tabelle mit einem DatenSteuer-Element verknüpft hast, kannst du mittels SQL alles suchen:

datS.Recordsource=„SELECT * FROM {Tabellenname} WHERE {Feld}={Wert} AND {anderesFeld}={Wert} ORDER BY {Feld},{Feld} ASC“
dats.refresh

Damit kannst du in der Tabelle nach jedem Wert in jedem Feld suchen und die gefundenen Ergebnisse sortiert anordnen lassen
Jetzt das aulesen:

if dats.recordset.recordcount=0

3

Hallo

ich bitte um Hilfe für einen Newbie:
Ich möchte in einer Access-Tabelle nach
einem Wert suchen lassen (VB6) und falls
vorhanden in eine Variable schreiben. Bei
NoMatch soll das Programm geschlossen
werden. Könnt Ihr mir auf die Sprünge
helfen?

Ein Datensteuerelement ist nicht unbedingt erforderlich - es geht auch z.B. per DAO:

Dim DB as Database, RS as recordset
Set DB = DBEngine(0).OpenDatabase("Meine.MDB")
Set RS = DB.Openrecordset("MeineTabelle", dbopendynaset)
RS.FindFirst "ID = " & SuchID ' oder wie auch immer...
If RS.Nomatch then
 End
else
 MyVar = RS!MeinWert
end if
RS.Close

oder auch:

Set RS = DB.Openrecordset("SELECT \* FROM MeineTabelle WHERE ID = " & SuchID , dbopendynaset)
' oder wie auch immer...
If RS.EOF then

Reinhard