mit SVerweis daten aus mysql auslesen
Timo
Sub Aufruf
Dim SqlStr$
SqlStr="select * from Tabellenname 'Beispielsweise
SQLinTabelle(SqlStr,1,1) ' fügt ab Zeile1, Spalte1 ein
End Sub
Function SQLinTabelle(Statement$, AbZeile&, AbSpalte&)
Dim DB As New ADODB.Connection ' Datenbankobjekt
Dim CN ' Connection
Dim rs As New ADODB.Recordset ' RecordSet
Dim FieldCounter&
Dim I&, Spalte& ', Zeile&, Spalte&
On Error GoTo ErrHandler
If AbZeile = 0 Then AbZeile = 2
If AbSpalte = 0 Then AbSpalte = 1
DB.Open "DSN=Datenquelle;uid=datenbankbenutzer;pwd=Passwort"
Set rs = DB.Execute(Statement, CN)
FieldCounter = rs.Fields.Count
'J = AbZeile
Spalte = AbSpalte
Do
For I = 0 To rs.Fields.Count - 1
Cells(AbZeile, Spalte) = rs.Fields(I)
Spalte = Spalte + 1
Next
AbZeile = AbZeile + 1
rs.MoveNext
Spalte = AbSpalte
Loop While rs.EOF = False
Set rs = Nothing
DB.Close
Exit Function
ErrHandler:
'MsgBox (Err.Number)
Set rs = Nothing
DB.Close
If Err.Number = 1004 Then
MsgBox ("Keine Datesätze vorhanden!")
Else
MsgBox ("Fehler bei sql-Abfrage" & vbCrLf & Statement)
End If
End Function