sql abfrage
21.11.2012 22:18:34
heiko
ich habe eine excel - datei mit Werten in Spalte A (Name als String) und Spalte C ( Bildnr als Zahl). Über eine schleife möchte ich zeilenweise werte aus einer sql Datenbank in die excel Tabelle eintragen. Die Verbindung zum server funktioniert und die ersten werte in zeile 5 kann ich auch finden und in die excel tabelle eintragen. für die weiteren zeilen funktioniert der vba-Code nicht (siehe unten).
Für Tips währe ich dankbar
gruß
heiko
Sub Sql_Test()
strServer = "sql-server" ' "Servername"
strDatabase = "dBank" ' "Datenbankname"
strPass & "
strPass = "" ' "Passwort"
strUser = "xxUser" ' "User"
Set con = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
con.Open "Provider=sqloledb; Data Source=sql-server; Initial Catalog=dBank; User Id=xxUser; _
_
Password=;"
zl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For a = 5 To zl
On Error Resume Next
sName = Cells(a, 1)
sBildnr = Cells(a, 3)
rs.Open "SELECT * FROM dbo.xxtk50 WHERE dbo.xxk50.Name='" & sName & "' and dbo.xxk50.bildnr= _
_
'" & sBildnr & "'", con
Cells(a, 12) = rs("Name")
Cells(a, 13) = rs("bildnr")
Cells(a, 14) = rs("x")
Cells(a, 15) = rs("y")
Next a
rs.Close
Set rs = Nothing
Set con = Nothing
End Sub
Anzeige