各位兄弟帮一帮！(WIN2K + ASP + ADO + ODBC +InterBase)

tl007886 2001-08-01 03:59:49

我做一个web服务器，用interbase做其数据库(没办法，为了和其他系统兼容).
我在 odbc 管理器中，建立一个系统 DSN ,名称为 ssss
我用vbscript 编写 asp 程序通过 ado --> odbc --> 访问 interbase 数据库
但却不能打开数据库。

如果不是interbase 数据库都可以打开。(例如 access)
asp 程序如下：（各种情况都试了）

<html>
<head>
<TITLE>打开interbase数据库</TITLE>
</head>
<body>
<%
set my_conn=server.createobject("ADODB.connection")
my_conn.connectionstring="Provider=MSDASQL.1;DSN=ssss;username=sysdba;password=masterkey"

//my_conn.connectionstring="Provider=MSDASQL.1;DSN=ssss;UID=sysdba;PWD=masterkey"

//my_conn.connectionstring="Provider=MSDASQL.1;Data Source=ssss;User ID=sysdba;Password=masterkey"

my_conn.open
%>
</body>
</html>

在c++builder 和 delphi 上都可以连接并打开。
兄弟我初学乍练asp，有点降不住它，靠各位指点了！多谢

运行平台： window 2000
数据库服务器： intebase wi_v5.5.0.742
odbc中的interbase驱动: intersolv interbase odbc driver(*.gdb)
ado Provider :MSDASQL.1

...全文

95 7 打赏收藏转发到动态举报

写回复

用AI写文章

7 条回复

切换为时间正序

请发表友善的回复…

发表回复

playyuer 2001-08-06

打赏
举报

'ASP 代码:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<% dim adoConnection
dim adoRecordset
set adoConnection=Server.CreateObject("ADODB.Connection")
set adoRecordset=Server.CreateObject("ADODB.Recordset")
'adoConnection.Open "Provider=MSDASQL.1;Driver={MySQL};Server=yuer;DataBase=test;UID=monty;PWD=;"
adoConnection.Open "Provider=MSDASQL.1;Driver={Easysoft IB6 ODBC};database=D:\Borland\InterBase\examples\Database\employee.gdb;User ID=SYSDBA;Password=masterkey"
adoRecordset.Open "SELECT * FROM employee LEFT JOIN department ON employee.dept_no = department.dept_no", adoConnection
response.write "<TABLE border=1 width='100%'><TR><TD>" & adoRecordset.GetString(,10,"</td><td>", "</TD></TR><TR><TD>"," ") & "#</td><td colspan='" & adoRecordset.fields.count-1 & "'> </td></tr></TABLE>"
adoRecordset.close
set adoRecordset=nothing
adoConnection.close
set adoConnection=nothing
%>
</BODY>
</HTML>

playyuer 2001-08-06

打赏
举报

to tl007886():
关于 InterBase 6.0 ,Borland 自己没提供 ODBC Driver, Borland 最新 IB 6 的下载包里有 Easysoft IB6 ODBC!下载地址:
ftp://ftpd.inprise.com/download/interbase/ib6/IB601_windows_eval.zip
'下载安装完
'ConnectionString: "Provider=MSDASQL.1;Driver={Easysoft IB6 ODBC};database=D:\Borland\InterBase\examples\Database\employee.gdb;User ID=SYSDBA;Password=masterkey"
'ADO+VB6 连接 IB6 的代码:
Dim adoConnection As New adodb.Connection
adoConnection.Open "Provider=MSDASQL.1;Driver={Easysoft IB6 ODBC};database=D:\Borland\InterBase\examples\Database\employee.gdb;User ID=SYSDBA;Password=masterkey"
Dim adoRecordset As New adodb.Recordset
adoRecordset.Open "SELECT department.department AS FROM employee LEFT JOIN department ON employee.dept_no = department.dept_no", adoConnection
MsgBox adoRecordset.GetString

tl007886 2001-08-02