VB Script ile veri tabanına bağlantı

Aşağıdaki kodu notepad a yapıştırın. Connection string i ulaşmak istediğiniz veri tabanına göre düzenleyin. Uzantısını "vbs" olarak kaydedin.

'VB Script ile veri tabanına bağlantı

On Error Resume Next

dim rst, conn, strConn, sqlStr

Set conn = Wscript.CreateObject("ADODB.Connection")
strConn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=STOK;Data Source=home"
conn.Open strConn

sqlStr = "SELECT * FROM TABLO"

Set rst = conn.Execute(sqlStr)
msgbox rst("field").value

conn.Close