bordermax
Mar 05, 2009, updated at 10:28:11 (UTC)
view6013
view3
0
Goto Top

SQL-Abfage mit WSH

GermansolvedQuestionVB for ApplicationsDevelopment
Hi,

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

Markus
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 110608

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

Printed on: April 19, 2024 at 19:04 o'clock

3 Comments
Latest comment
Goto Top
Member: Logan000
Logan000 Mar 05, 2009 at 10:52:26 (UTC)
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.
Member: bordermax
bordermax Mar 05, 2009 at 11:54:40 (UTC)
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.
Member: Logan000
Logan000 Mar 05, 2009 at 15:18:36 (UTC)
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.
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 3 CommentsAlexWishaHow to set up and configure a Linux GRE tunnelAlexWisha - 3 CommentsjstrickerWIREGUARD VPN ON UDM PRO BEHIND FRITZBOX - HANDSHAKE DID NOT COMPLETEjstricker - 3 CommentsDaniEnd of Support dates for Office 2016, 2019 Apps und Productivity ServersDani - 1 Comment