ich bräuchte mal wieder Eure Hilfe.
Ich habe folgende kleine Funktion, die auch sauber ausgeführt wird und mir einen schönen Select ausgiebt. Nur weiß ich jetzt nicht weiter. Ich vermute der Select muss nun in ein Recordset und kann dann Datensatz für Datensatz ausgegeben werden, nur wie stelle ich das an? Wie bekomme ich den Rückgabewert in result und wie lese ich diesen aus?
weitere Infos: die Datenbank ist eine MySQL die ich mit MyODBC anspreche. Die Tabelle Test enthält die Spalten ID (int) und Beschreibung (text).
Function relDaten(ArbeitsMappe, Spalte, MyTable, SpalteMySQL)
Sheets(ArbeitsMappe).Select
Set Conn = New ADODB.Connection
With Conn
.ConnectionString = "ODBC;DATABASE=test;DRIVER={MySQL ODBC 3.51 Driver};OPTION=0;;PORT= _
_
_
0;SERVER=localhost;user=user;password=*****"
.Open "DSN=test_mysql"
End With
SqlStatement = "Truncate Table test." & MyTable & ";"
'Conn.Execute (SQLStatement)
zeilenzahl = Range("E65536").End(xlUp).Row
For i = 2 To zeilenzahl
Vergleichswert = Cells(i, Spalte).Value
SqlStatement = "Select " & MyTable & MyTable & "." & SpalteMySQL & " where test." & _
MyTable & " = " & Chr(13) & Vergleichswert & Chr(13) & ";"
Cells(2, 4).Value = SqlStatement
result = Conn.Execute(SqlStatement)
--> Was mach ich ab hier?
Next i
Conn.Close
End Function
Merci
Jan