Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ich verwirre Dich erstmal aber helfe Dir dann
Autor: kuechi
Datum: 17.04.02 22:19
Dim Datenbank As Database Dim abfrage as QueryDef Dim rec as Recordset Dim SQL_ABFRAGE As String Dim ART_NR as String Set Datenbank = DBEngine.OpenDatabase(App.Path + "datenbank.mdb") Set abfrage = Datenbank.CreateQueryDef("") ART_NR = "A504" SQL_ABFRAGE = "SELECT Artikel.ArtikelNR, kunden.Kundenname FROM Artikel INNER JOIN kunden ON Artikel.BestellerNr = kunden.KundenNr WHERE (((Artikel.ArtikelNR)="+ART_NR+"))" abfrage.SQL =SQL_ABFRAGE Set rec = abfrage.OpenRecordset MessageBox rec.Fields(0).Value Fields(0) steht für das erste Feld in der Tabelle Tschüß kuechi

1:N Abfrage	73	Cherry	16.04.02 15:05
gute Frage!!? (oT)	34	Linos	16.04.02 16:18
Ich verwirre Dich erstmal aber helfe Dir dann	30	kuechi	17.04.02 10:03
Re: Ich verwirre Dich erstmal aber helfe Dir dann	37	Cherry	17.04.02 11:44
Re: Ich verwirre Dich erstmal aber helfe Dir dann	35	kuechi	17.04.02 22: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