Moin Moin,
ich möchte mit vbs eine Connection zu einer MS SQL Datenbank herstellen und die Datensätze in Excel ausgeben.
Das Script müsste also folgendes können:
1) Mit Datenbank verbinden
2) Recordset für alle Tupel einer Datenbanktabelle erstellen (per Schleife??)
3) Excel öffnen
4) Datensätze einfügen
Habe google bemüht und zwei Codeschnipsel zusammengebaut. Hier funktioniert zumindest schonmal das Verbinden mit der Datenbank. Auch das 1. Datum aus der Spalte Datum1 wird mit msgbox erfolgreich ausgegeben:
----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim db, rs
Dim sql
Dim liste
Dim oRs
Dim oCon
Dim oRsNL
Set oCon = CreateObject("ADODB.Connection")
Set oRsNL = CreateObject("ADODB.Recordset")
oCon.Open "Driver={SQL Server};Server=192.xxx.xx.xx;Database=abc;Uid=abc; Pwd=1x1x1x"
sql = "SELECT * FROM [abc].[abc].[abc]"
Set oRsNL = oCon.Execute(sql)
test = oRsNL.Fields("Datum1").Value
oCon.Close
Set oRs = Nothing
Set oCon = Nothing
msgbox test
-------------------------------------------------------------------------------------------------------------------------------------------------------
Dann hab ich noch ein 2. Script, mit dem Excel öffnen kann:
-------------------------------------------------------------------------------------------------------------------------------------------------------
Dim XL
Const xlLandscape = 2
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Add
XL.Visible = 1 'Excel sichtbar oder nicht sichtbar
XL.ActiveSheet.PageSetup.Orientation = xlLandscape
XL.ActiveSheet.Cells(10,3).value = "This is a test"
Set XL = Nothing
----------------------------------------------------------------------------------------------------------------------------------------
Habe es wie gesagt gegoogelt, komme aber nicht weiter. Enweder sind die Beispiele für VB oder VBA oder in Kombination mit Access.
Über ein Codebeispiel würde ich mich echt freuen, alles Andere bekomme ich dann sicher über Trial & Error herraus.
Vielen Dank vorab
MuHaddi
ich möchte mit vbs eine Connection zu einer MS SQL Datenbank herstellen und die Datensätze in Excel ausgeben.
Das Script müsste also folgendes können:
1) Mit Datenbank verbinden
2) Recordset für alle Tupel einer Datenbanktabelle erstellen (per Schleife??)
3) Excel öffnen
4) Datensätze einfügen
Habe google bemüht und zwei Codeschnipsel zusammengebaut. Hier funktioniert zumindest schonmal das Verbinden mit der Datenbank. Auch das 1. Datum aus der Spalte Datum1 wird mit msgbox erfolgreich ausgegeben:
----------------------------------------------------------------------------------------------------------------------------------------------------------------------
Dim db, rs
Dim sql
Dim liste
Dim oRs
Dim oCon
Dim oRsNL
Set oCon = CreateObject("ADODB.Connection")
Set oRsNL = CreateObject("ADODB.Recordset")
oCon.Open "Driver={SQL Server};Server=192.xxx.xx.xx;Database=abc;Uid=abc; Pwd=1x1x1x"
sql = "SELECT * FROM [abc].[abc].[abc]"
Set oRsNL = oCon.Execute(sql)
test = oRsNL.Fields("Datum1").Value
oCon.Close
Set oRs = Nothing
Set oCon = Nothing
msgbox test
-------------------------------------------------------------------------------------------------------------------------------------------------------
Dann hab ich noch ein 2. Script, mit dem Excel öffnen kann:
-------------------------------------------------------------------------------------------------------------------------------------------------------
Dim XL
Const xlLandscape = 2
Set XL = CreateObject("Excel.Application")
XL.Workbooks.Add
XL.Visible = 1 'Excel sichtbar oder nicht sichtbar
XL.ActiveSheet.PageSetup.Orientation = xlLandscape
XL.ActiveSheet.Cells(10,3).value = "This is a test"
Set XL = Nothing
----------------------------------------------------------------------------------------------------------------------------------------
Habe es wie gesagt gegoogelt, komme aber nicht weiter. Enweder sind die Beispiele für VB oder VBA oder in Kombination mit Access.
Über ein Codebeispiel würde ich mich echt freuen, alles Andere bekomme ich dann sicher über Trial & Error herraus.
Vielen Dank vorab
MuHaddi