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 驱动,注意选择正确的版本是2.6.15.2931版应用于ADO(而3.0 版是应用于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驱动. //********************************************************** 设计管理 FB 的工具本人推荐 ibexpert , 本站有最新版下载这里不做讨论. 其他: VB 或 ACCESS 或 ASP 都可以很稳定的操作 FB 数据库, 当然速度不如C++B 或 Delphi 快. 这是因为多层封装造成的速度损失,也与 ACCESS 或 ASP 的解释型语言有关(VB编译本地EXE除外,因为编译成本地EXE实际上就是通过C2的编译器完成的), 总体上本人实践后的感觉良好... |
|