mit SVerweis daten aus mysql auslesen
Timo
Anzeige
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen