Hallo allerseits!
Ich bin gerade am verzweifeln:
Ich will mittels ADO/SQL-Befehl Daten aus einer Excel-Datei auslesen.
Ich hab mich schon durch das I-Net geklickt, sehe aber den Fehler, den ich offensichtlich mache, nicht.
Hier der Code:
der SQL-Befehl sieht dann, mit den Variablen gefüttert, folgendermaßen aus:
Leider bleibt meine Variable temp leer, hier müsste dann der Wert 0,4 drinstehen......
Wo mache ich den Fehler?
Vielen Dank für die Hilfe
Michael
Ich bin gerade am verzweifeln:
Ich will mittels ADO/SQL-Befehl Daten aus einer Excel-Datei auslesen.
Ich hab mich schon durch das I-Net geklickt, sehe aber den Fehler, den ich offensichtlich mache, nicht.
Hier der Code:
Visual Basic-Quellcode
- 'EXCEL ADO-CONNECTION
- Dim sTabelle As String
- Dim SQLString As String
- ' Tabellen-Name
- sTabelle = "[Kubische_Gleichungen$]"
- ' Datenbank öffnen (Excel-Datei)
- Set ad = New ADODB.Connection
- ad.CursorLocation = adUseClient
- ad.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
- "Extended Properties=Excel 8.0;" & _
- "Data Source=" & sExcelFile & ";"
- If ad.State = adStateOpen Then MsgBox "offen" ' Bis hierhin funzt es
- ' Recordset erstellen und öffnen
- Set rs = New ADODB.Recordset
- SQLString = "SELECT [Klasse0,5] FROM " & sTabelle & " WHERE [PM-Nr] ='" & comboKMG1.Text & "' AND [Kraftrichtung] = '" & frmBereichsAngaben.comboZugDruck(i).Text & "'"
- rs.Open SQLString, ad, adOpenDynamic, adLockOptimistic
- temp = rs.Fields("Klasse0,5").Value
der SQL-Befehl sieht dann, mit den Variablen gefüttert, folgendermaßen aus:
Leider bleibt meine Variable temp leer, hier müsste dann der Wert 0,4 drinstehen......
Wo mache ich den Fehler?
Vielen Dank für die Hilfe
Michael
