SQL Datenbankabfrage

[Malte]

Wie erstelle ich aus einer MDB folgende Abfrage:

Name der Tabelle: Kunden

Feld1: Firma
Feld2: Ort
Feld3: Kundennummer

Jetzt möchte ich anhand von Firma und Ort mit einer SQL Abfrage die Kundennummer herausfinden.


Habs mal so probiert aber irgendwas mache ich falsch:

Hinweis: Firma und Ort habe ich in Stringvariablen.


SQL_Suche_Kundennummer "SELECT * FROM Kunden " & "WHERE Firma = Firma AND Ort = Ort", qdfTemp

Function SQL_Suche_Kundennummer(strSQL As String, qdfTemp As QueryDef)
Dim RST As Recordset
qdfTemp.SQL = strSQL
Set RST = qdfTemp.OpenRecordset
Debug.Print strSQL
With RST
Do While Not .EOF
MsgBox " " & !Kundennummer
'List1.AddItem " " & !Kundennummer ' Als Test in Kundenliste letzte
.MoveNext ' Zeile
Loop
.Close
End With
End Function


Arbeite mit VB 6.0

[Malte]

Habe mal Testweise anstatt die Stringvariablen feste
Werte eingegeben, dann funktionierts.

Der Fehler liegt also daran, das ich irgenwie die Stringvariablen
falsch einsetze.



So gehts, nur wie mach ich's so das Variablen eingesetzt werden
können?

SQL_Suche_Kundennummer "SELECT * FROM Kunden " & "WHERE Firma = 'Müller' AND Ort = 'Bonn', qdfTemp

[ralle]

Hallo,

meine VB-Kenntnisse sind zwar ein wenig eingerostet, aber vielleicht so:

SQL_Suche_Kundennummer "SELECT * FROM Kunden WHERE Firma = '" & Firma & "' AND Ort = '" & Ort & "'", qdfTemp

Firma und Ort sollen ja wohl die Variablen sein.

Viele Grüße
ralle

[Malte]

Ich Hirni !

Wenn ich eine Variable innerhalb Anführungszeichen setze
ist dies natürlich wirkungslos.

Hab mir jetzt den String zusammengebaut und es läuft:

SQL_Suche_Kundennummer "SELECT * FROM Kunden " & "WHERE Firma = " & "'" & Firma _
& "'" & " " & "AND Ort = " & "'" & Ort & "'", qdfTemp

[Malte]

Hier ist die Lösung meines Problems:

Private Sub GetLastCustomData()
Dim DBS As Database
Dim RST As Recordset
Dim qdfTemp As QueryDef
Set DBS = OpenDatabase(DataBaseWithPath)
Set RST = DBS.OpenRecordset("Bestellungen", dbOpenDynaset)
Set qdfTemp = DBS.CreateQueryDef("")
'Anhand von Kundennummer und letztes Bestelldatum in Bestelltabelle Werte setzen
'SQLGetLastCustomData "SELECT * FROM Bestellungen " & "WHERE Kundennummer = " _
'& Kundennummer & " ORDER BY Bestelldatum DESC", qdfTemp

'Info DESC kehrt Sortierreihenfolge um

MsgBox "SELECT * FROM Bestellungen " & "WHERE Kundennummer = " _
& Kundennummer & " AND Bestelldatum IN " & _
"(SELECT max(Bestelldatum) FROM Bestellungen WHERE Kundennummer = " & Kundennummer & ")"

SQLGetLastCustomData "SELECT * FROM Bestellungen " & "WHERE Kundennummer = " _
& Kundennummer & " AND Bestelldatum IN " & _
"(SELECT MAX(Bestelldatum) FROM Bestellungen WHERE Kundennummer = " & Kundennummer & ")", qdfTemp
RST.Close
DBS.Close
End Sub

Function SQLGetLastCustomData(strSQL As String, qdfTemp As QueryDef)
Dim RST As Recordset
'Dim Artikelnummer As Long
qdfTemp.SQL = strSQL
Set RST = qdfTemp.OpenRecordset
Debug.Print strSQL
With RST
Do While Not .EOF
Debug.Print !Bestelldatum
Check1(!Artikelnummer - 1).Value = 1
Text1(!Artikelnummer - 1).Text = !Bestellmenge
'MsgBox !Bestelldatum
.MoveNext
Loop
.Close
End With
End Function