FireBird 数据库VB6连接与部署

FireBird数据库的前景不错，或许你下次就会用到它，我是用以下方式通过连接的）

1、已经自动装了FireBird。

2、我又装了“Firebird_ODBC_2.0.0-Win32.exe”，并设置。

3、firebird数据库中的bin文件夹下的fdclient.dll文件，改名复制到SYSTEM32 (64位：SysWOW64)系统文件夹下，更名为“GDS32.DLL”。

4、在VB 6.0中源码

[vb] 
Private Sub Command1_Click() 
connStr = "DRIVER=Firebird/interBase(r) driver;UID=SYSDBA;PWD=masterkey;DBNAME=C:\MyPrgoram\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 
四、结果

测试通过。

参考： 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

◆角色可以不填 

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

然后点击ok按钮就行了