VisualBasic MS SQL DATENBANK abfragen / schreiben

[RicoM]

Hallo,

zweites Thema heute:

Sicher ganz leicht, aber ich Raller es nicht.

Soll nur ne kleine Konsolenanwendung werden die einmal ausgeführt von einer MSSQL Datenbank was holt und es dann in eine andere MSSQL Datenbank reinschreibt
Hier mal das vollständige Script:

Module Program
	
	Sub Main()
		' KONFIGURATION
		

		Const DBSERVER As String = "SERVER
		Const DATABASE As String = "DB"
		Const DBUSERID As String = "ID" 
		Const DBPASSWD As String = "PASS"
   
    	Dim szADOConn = "Provider=SQLOLEDB;Network Library=DBMSSOCN;Persist Security Info=True;" & "Data Source=" &_
       DBSERVER & ";" & "DATABASE=" & DATABASE & ";" & "User ID=" & DBUSERID & ";Password=" & DBPASSWD & ";" 
	Dim SzSQLlc
	'' Zuerst Client_PK des HOSTs / GUESTs ermitteln
	Dim DBConn = CreateObject("ADODB.Connection")
	    DBConn.open (szADOConn)
	Dim szSqlQuery = "SELECT * FROM t_tests "
	DIm cmd = CreateObject("ADOdb.Command")
	    cmd.CommandType = &H0001  ''adCmdText
	    cmd.ActiveConnection = DBConn
	    cmd.CommandText = szSqlQuery
	Dim RecordSet = CreateObject("ADODB.Recordset")
		RecordSet = cmd.Execute(szSQLlc)

	

	Do While Not RecordSet.EOF
		Console.WriteLine(RecordSet("sName"))
		RecordSet.movenext
	Loop
	
		Console.ReadKey(True)
	End Sub
End Module

K.A. was falsch ist an andere Stelle (als normales WScriptingHost Script) funzt das so.

Ich habe auch schon ewig nach einen passendem Code gesucht, aber ich habe nichts gefunden. Es gab vielen ... nichts geht.

Danke für eure Hilfe!

RicoM

Ergänzung (17. Juni 2009)

Erledigt ... Closed.