急！acess数据库连接问题

yumodev 郑州航院移动开发工程师 2008-12-04 06:28:47

我用Dreamweaver8 定义了一个数据源，现在要用要自定义连接字符串，
原自动生成的连接文件为：名称为dongtai.asp

<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_dongtai_STRING
MM_dongtai_STRING = "dsn=dongtai"
%>
我的数据库为my.mdb
现在我要重写一个数据库文件，但总是出错，希望高手指

...全文

55 点赞收藏 12

写回复

12 条回复

切换为时间正序

当前发帖距今超过3年，不再开放新的回复

发表回复

virgo2008 2008-12-04

rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_dongtai_STRING
rs.Source = "sql语句"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()

上面的调用后你就可以用rs.Fields.Item("字段名").Value取值了反正你是用DW的，我就给你弄的全是DW里面生成的，你看的习惯

回复赞

virgo2008 2008-12-04

为MM_dongtai_STRING = "dsn=为MM_dongtai_STRING;uid=***;pwd=****;"

回复赞

virgo2008 2008-12-04

这个你只要在DNS数据源里面去设置你的连接名为MM_dongtai_STRING就可以用了！

回复赞

Mapleleaf123 2008-12-04

Dim ConnStr,Conn

ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("你的数据库路径")

Set Conn=server.CreateObject("ADODB.CONNECTION")

Conn.open ConnStr

回复赞

Hobart 2008-12-04

不建议用dw生成的代码

回复赞

Yes1000 2008-12-04

貌似你这种方式，只能在控制面板中设置数据源，如果换到其他机器上运行的话，还是得设置数据源的。

这种方式开发的网站只适合本地运行，如果要发布到其他地方会很麻烦。

建议你改成我上面那种方式吧

回复赞

yumodev 2008-12-04

回复赞

yumodev 2008-12-04

我的源程序为：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_dongtai_STRING
Recordset1.Source = "SELECT id, biaoti, riqi FROM dongtai ORDER BY id DESC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
Dim MM_paramName
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

回复赞

Yes1000 2008-12-04

没有使用过DW的自动生成代码功能 - -!!

回复赞

yumodev 2008-12-04

您这样修改后，那用Dreamweaver8成成的代码都得改
Dim MM_dongtai_STRING
MM_dongtai_STRING = "dsn=dongtai"
能不能将上面两句修改一下，源程序不用改变
谢谢！

回复赞

Yes1000 2008-12-04

用DNS方式改了文件名要重新注册DNS

回复赞

Yes1000 2008-12-04





<%

	db="/data/data.mdb"

	Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(db)

	set conn=server.createobject("ADODB.CONNECTION")





%>

这样就可以改文件名了，改了改下这里就可以了

回复赞