Download Vbsedit to get sample database


' Select data from an SQLite database
' using 3rd Party ODBC Driver: http://www.ch-werner.de/sqliteodbc

Set cn = CreateObject( "ADODB.Connection" )

Set shell = CreateObject( "WScript.Shell" )
folder=shell.ExpandEnvironmentStrings("%LOCALAPPDATA%") & "\Vbsedit\Resources\"

cn.Open "Driver={SQLite3 ODBC Driver};Database=" & folder & "test.db;"

Set rs= cn.Execute("select * from user")

DoWhileNot(rs.EOF)
  WScript.Echo rs("email").Value
  rs.MoveNext
Loop

rs.Close
cn.Close
search for scripts

VbsEdit contains all these sample scripts!


Download Now!



Download   Home   Scripts

Copyright © 2001-2024 adersοft