Hallo zusammen,
ich möchte gerne eine variable des typs double in meine SQL Abfrage einbinden.
Quellcode:
Dim ZZ As Integer 'Zeilenzaehler
Dim PZ As Integer 'Partikelzähler
Dim X_Von As Double 'X_Koordinate
Dim X_Bis As Double 'X_Koordinate
Dim Z_Von As Double 'Z_Koordinate
Dim Z_Bis As Double 'Z_Koordinate
Dim FZ As Integer 'Feldzaehler
X_Von = 0
X_Bis = 0.01
Z_Von = 0
Z_Bis = 0.01
FZ = 1
ZZ = 23
For FZ = 1 To 96
strSQL = "SELECT AVG(X_Velo) FROM S6 Where X_Pos >= 'X_Von' And X_Pos <= 'X_bis' AND Z_Pos >= 'Z_von' and Z_Pos <= 'Z_Bis'"
Set rst = db.OpenRecordset(strSQL, dbOpenSnapshot)
rst.MoveLast
Worksheets("Ebenen").Range("e" & ZZ).Value = rst.GetRows
X_Von = X_Von + 0.01
X_Bis = X_Bis + 0.01
ZZ = ZZ + 1
Next FZ
wenn ich die Werte manuel eintrage funktioniert alles einwandfrei.
Ich muss dem SQL Statement vermutlich noch irgend welche "Sonderzeichen" mitgeben?!
Jemand eine Idee?
mit freundlichem Gruß, DN
|