{"id":114,"date":"2010-09-01T10:24:38","date_gmt":"2010-09-01T08:24:38","guid":{"rendered":"http:\/\/www.capri-soft.de\/blog\/?p=114"},"modified":"2010-09-01T10:27:48","modified_gmt":"2010-09-01T08:27:48","slug":"von-microsoft-excel-in-den-microsoft-sql-server-importieren","status":"publish","type":"post","link":"https:\/\/www.capri-soft.de\/blog\/?p=114","title":{"rendered":"Von Microsoft Excel in den Microsoft SQL Server importieren"},"content":{"rendered":"

Dies ist ein VBA Skript um Dateien von einer Excel-Tabelle in den Microsoft SQL Server zu importieren. Bevor das Skript l\u00e4uft muss im VBA-Editor unter Extras -> Verweise „Microsoft ActiveX Data Objects“ als Bibliothek ausgew\u00e4hlt werden, damit ADODB.* zur Verf\u00fcgung steht. <\/p>\n

\r\nPrivate Sub CommandButton1_Click()\r\n    ' Die Datenbankverbindung\r\n    Dim Cn As New ADODB.Connection\r\n    Dim Rs As New ADODB.Recordset\r\n    Dim letzteZeile As Integer\r\n    Dim i As Integer\r\n    \r\n    ' Die beiden Felder material, prdha\r\n    Dim materialnr As String\r\n    Dim prdha As String\r\n    \r\n    ' Finde die letzte Zeile\r\n    letzteZeile = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row + 1\r\n    \r\n    ' Provider OLEDB Provider\r\n    Cn.Provider = "SQLOLEDB.1"\r\n    \r\n    ' Connectionstring\r\n    Cn.ConnectionString = "Password=meinpasswort;" & _\r\n    "Persist Security Info=True;" & _\r\n    "User ID=meinuser;" & _\r\n    "Initial Catalog=meinedatenbank;" & _\r\n    "Data Source=SERERNAMEODERIPADRESSE"\r\n    \r\n    ' Verbindung \u00f6ffnen\r\n    Cn.Open\r\n            \r\n    For i = 1 To letzteZeile\r\n        materialnr = Tabelle1.Cells(i, 1)\r\n        prdha = Tabelle1.Cells(i, 2)\r\n        Cn.Execute ("INSERT INTO prdha(material, prdha) " & _\r\n                         "VALUES('" + materialnr + "','" + prdha + "')")\r\n    Next i\r\n    \r\n    ' Verbindung schlie\u00dfen\r\n    Cn.Close\r\n    \r\nEnd Sub\r\n<\/pre>\n