[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