VBScript: пример подключения к БД Firebird

2007-04-24T07:15:50Z

Потребуется ODBC драйвер для базы данных Firebird, Firebird_ODBC_2.0.0-Win32.exe (можно легко найти в инете в свободном доступе).
http://www.ibphoenix.com/main.nfs?a=ibp … _int_comps

Set objConn = CreateObject("ADODB.Connection")
objConn.ConnectionString = "Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey;DbName=C:\temp\mybase.fdb;"
objConn.ConnectionTimeOut = 15
objConn.CommandTimeout = 30
objConn.Open
Set objRecordset = objConn.Execute("SELECT * FROM mytable")
'Перебираем результаты запроса
While Not objRecordset.EOF
    strRes = vbNullString
    For i=0 To objRecordset.Fields.Count-1
        strRes = strRes & CStr(objRecordset.Fields(i).Value) & vbTab
    Next
    WScript.Echo Trim(strRes)
    objRecordset.MoveNext
Wend
objConn.Close

Серый форум — VBScript: пример подключения к БД Firebird

VBScript: пример подключения к БД Firebird