Operacje SQL za pomocą plików .vbs
Poniżej prezentujemy skrypt do realizacji zapytań MSSQL za pomocą plików .vbs. Prezentowany skrypt umożlwia realizację polecenia SELECT. Nic nie stoi na przeszkodzie aby wykorzystać go w swoich zastosowaniach i dodać instrukcję SQL — INSERT albo UPDATE.
—–
Dim tabela
Set Conn = CreateObject("ADODB.Connection")
DSNtest="DRIVER={SQL Server};SERVER=RINGONET\INSERTGT;UID=sa;PWD=;DATABASE=BAZA"
Conn.open DSNtest
strquery_select = "select pole from tabela"
set rs = CreateObject("ADODB.Recordset")
rs.open strquery_select, conn
rs.MoveFirst
Do Until rs.EOF
msgbox rs("pole")
rs.MoveNext
Loop
Conn.Close
Set conn=Nothing
—–