bordermax
Goto Top

SQL-Abfage mit WSH

Hi,

kann mir jemand sagen wie ich mit WSH einen Zugriff und das Auslesen von einzelnen Tabellen auf eine SQL-Datenbank realisiere ?

Markus

Content-ID: 110608

Url: https://administrator.de/contentid/110608

Ausgedruckt am: 26.11.2024 um 16:11 Uhr

Logan000
Logan000 05.03.2009 um 11:52:26 Uhr
Goto Top
Moin Moin

Wist du Datensätze aus der Tabelle auslesen oder Tabelleninformationen (Felder, Indizes, usw.)?

Für Datensätze hier ein Beispiel für eine MS SQL DB:
Const adOpenStatic = 3
Const adLockOptimistic = 3
Const adUseClient = 3
Set objConnection = CreateObject("ADODB.Connection")  
Set objRecordset = CreateObject("ADODB.Recordset")  
objConnection.Open "Provider=SQLOLEDB;Data Source=MeinServer;Trusted_Connection=Yes;Initial Catalog=MeineDatenbank;User ID=MeinDBBenutzer;Password=MeinKennwort;"			   
objRecordset.CursorLocation = adUseClient
objRecordset.Open "SELECT Feld1, Feld2 FROM MeineTabelle" , objConnection, adOpenStatic, adLockOptimistic  
objRecordSet.movefirst
MeinWert = objRecordSet("Feld1")  

Gruß L.
bordermax
bordermax 05.03.2009 um 12:54:40 Uhr
Goto Top
Hallo,

Danke erstmal für die schnelle Antwort. Hat auf Anhieb geklappt !
Kannst Du mir noch sagen wie ich alle Datensätze aus einer Tabelle ermitteln kann ?

Gruß

M.
Logan000
Logan000 05.03.2009 um 16:18:36 Uhr
Goto Top
Moin

Zitat von @bordermax:
Kannst Du mir noch sagen wie ich alle Datensätze aus einer
Tabelle ermitteln kann ?
Das Recorset sollte schon alle Datensätze enthalten du must es nur duchlaufen.
Etwa so:
...
objRecordset.Open "SELECT Feld1, Feld2 FROM MeineTabelle" , objConnection, adOpenStatic, adLockOptimistic  
objRecordSet.movefirst 
For i = 0 to objRecordset.recordcount -1
      MeinWert = objRecordSet("Feld1")  
      objRecordset.movenext
next i
...

Gruß L.