sub db_open()
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider = LCPI.IBProvider;data source=localhost:c:\test.fdb;ctype=win1251;user id=sysdba;password=masterkey;auto_commit=true"
cn.Open
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "select * from abc"
.Open
End With
end sub
上述代碼但需要安裝 IBProvider_trial_32-64_3.0.0.7866_i.2.exe 之 OLE 驅(qū)動(dòng),注意選擇正確的版本是2.6.15.2931版應(yīng)用于ADO(而3.0 版是應(yīng)用于ADO.NET這里不做介紹)
---------------------------------------------------------------------------------------------------
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub db_open()
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.ConnectionString = "DRIVER=Firebird/InterBase(r) driver; UID=sysdba; PWD=masterkey;DBNAME=localhost:c:\test.fdb;"
conn.Open
With rs
.ActiveConnection = conn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "select * from abc"
.Open
End With
end sub
以上代碼 必須安裝 Firebird_ODBC_2.0.0-Win32.exe 的 ODBC驅(qū)動(dòng).
//**********************************************************
設(shè)計(jì)管理 FB 的工具本人推薦 ibexpert , 本站有最新版下載這里不做討論.
其他:
VB 或 ACCESS 或 ASP 都可以很穩(wěn)定的操作 FB 數(shù)據(jù)庫, 當(dāng)然速度不如C++B 或 Delphi 快. 這是因?yàn)槎鄬臃庋b造成的速度損失,也與 ACCESS 或 ASP 的解釋型語言有關(guān)(VB編譯本地EXE除外,因?yàn)榫幾g成本地EXE實(shí)際上就是通過C2的編譯器完成的), 總體上本人實(shí)踐后的感覺良好...
本站僅提供存儲服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請
點(diǎn)擊舉報(bào)。