使用interbase做Asp的后台数据库
Bingo @ 2005-01-21 22:11
安装interbase的oledb驱动,下载eng_IBProviderFree.exe
创建data.ibp文件,作为连接参数信息文件,代码如下
Persist Security Info=0;
User ID=SYSDBA;
password=masterkey;
Data Source=data source=localhost:E:/Borland/InterBase/examples/employee.gdb;
Prompt=4;
OLE DB Services=-1;
ctype=;
role=;
garbage_collect=-1;
dialect=1;
auto_commit=0;
auto_commit_level=65536;
创建conn.asp,代码如下
<%
dim cn
Set cn=Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动,请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
'conn.Open connstr
cn.Provider = "LCPI.IBProvider.1"
'cn.Open "file name=E:/Borland/web/data.ibp"
cn.Open "data source=localhost:E:/Borland/InterBase/examples/Database/employee.gdb;ctype=win1251;" & _
"auto_commit=true;auto_commit_level=0x1000;" & _
"user id=SYSDBA;password=masterkey"
%>
ok了,还有另一个东东可以关注http://www.sibprovider.com/en_us/files/sibprovi.zip
http://bingolin.ycool.com/archive.p1.html
========================================================
http://www.ibprovider.com/eng/examples/example_01.html
Sub sample1()
Dim cn As New ADODB.Connection
'use connection string from file "employee.ibp ":
'data source=localhost:d:/database/employee.gdb;User ID=gamer;password=vermut;
'ctype=win1251;auto_commit=true;
cn.Open "file name=d:/database/employee.ibp "
cn.Close
'Standart connection methods
cn.Provider = "LCPI.IBProvider"
cn.Open "data source=localhost:d:/database/employee.gdb;ctype=win1251" , _
"gamer" , "vermut"
cn.Close
' Using user id
cn.Open "data source=localhost:d:/database/employee.gdb;ctype=win1251;" & _
"user id=gamer;password=vermut"
cn.Close
' Using user
cn.Open "data source=localhost:d:/database/employee.gdb;ctype=win1251;" & _
"user=gamer;password=vermut"
cn.Close
' Work in auto commit mode with read commited isolation level
cn.Open "data source=localhost:d:/database/employee.gdb;ctype=win1251;" & _
"auto_commit=true;auto_commit_level=0x1000;" & _
"user id=gamer;password=vermut"
cn.Close
' Switching connection to auto commit mode
cn.Open "data source=localhost:d:/database/employee.gdb;ctype=win1251;" & _
"user id=gamer;password=vermut"
cn.Properties("Session AutoCommit" ) = True 'enable auto commit
cn.Properties("Autocommit Isolation Levels" ) = 4096 'read commited=0x1000
End Sub 'sample1
可以下载 一个 driver