VB操作FireBird

[vb] 
Private Sub Command1_Click() 
    connStr = "DRIVER=Firebird/interBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=C:\Documents and Settings\Administrator\桌面\Demo.ydb;" 
    Set objcon = New ADODB.Connection 
    objcon.ConnectionTimeout = 60 
    objcon.CommandTimeout = 60 
    objcon.CursorLocation = 3 
     objcon.Open connStr 
 
    Set rs = objcon.OpenSchema(20) 
    While Not rs.EOF 
        If rs("TABLE_TYPE") = "TABLE" Then Debug.Print rs("TABLE_NAME") 
        rs.MoveNext 
    Wend 
 
End Sub 
四、结果

测试通过。
jiaguoxinzhi，备查。2012-07-11，代父往阿东那购烫伤药粉。

参考：第2步：

Firebird中的ODBC设置

第一步、安装firebird2.0。

第二步、安装firebird ODBC驱动程序。

第三步、设置firebird ODBC Setup。

首先打开windows下的控制面板->管理工具。双击数据源 (ODBC)，选择系统DNS，如下图所示：

点击添加按钮，出现下面的对话框：

选中Firebird/InterBase(r) driver，然后点击完成按钮将出现下一个对话框：

 

对其进行设置

◆DSN是你想取的数据源名字（任意）

◆Driver是默认的不用选

◆描述字段可以不填

◆数据库是你用firebird来创建的任意数据库中的路径，例如：

C:\Program Files\Firebird\Firebird_1_5\security.fdb

◆客户字段是你安装firebird数据库中的bin文件夹下的client.dll文件，将其包含进去。

◆数据库账户和密码分别是：SYSDBA和masterkey

◆角色可以不填 www.2cto.com

◆其他的字段采用默认设置

然后点击ok按钮就行了
\

 

 

 

 

 

 

FB-Connecting.vbp

Private sub Command1_Click()
Dim cn As New ADODB.Connection
Dim rs As New Recordset
Dim sql As String

cn.ConnectionString = "Provider=ZStyle IBOLE Provider; Data Source =    
 "_&"c:\ProgramFiles\Firebird\Firebird_1_5\Samples\Httplogs.gdb;UID=sysdba;password= pwd"
       
cn.Open sql= "Select* From   States" 

Set rs =   cn.Execute(sql) 

DoWhile Not rs.EOF
  List1.AddItemrs(0) &  vbTab & rs(1) 
 rs.MoveNext 
Loop

rs.Close 
cn.Close 
End Sub