Operacje SQL za pomocą plików .vbs

Operacje SQL za pomocą plików .vbs

Poniżej prezen­tu­je­my skrypt do real­iza­cji zapy­tań MSSQL za pomocą plików .vbs. Prezentowany skrypt umożl­wia real­iza­cję polece­nia SELECT. Nic nie stoi na przeszkodzie aby wyko­rzys­tać go w swoich zas­tosowa­ni­ach 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
msg­box rs("pole")
rs.MoveNext
Loop

Conn.Close
Set conn=Nothing

—–

Tags: , ,

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany. Wymagane pola są oznaczone *

Zadzwoń teraz!