| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 613 人关注过本帖
标题:[求助]初学者求援~~~~~
只看楼主 加入收藏
善良的狗
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-11-1
收藏
 问题点数:0 回复次数:5 
[求助]初学者求援~~~~~
我写了个打开数据库的函数,请高手看一下有错误没有
sub opendb(varsql)
set conn = server.CreateObject ("adodb.connection")
conn.provider="microsoft.jet.oledb.5.0;data source=my15.mdb;"
conn.open vardb
end sub
搜索更多相关主题的帖子: 数据库 求援 conn sub 
2005-11-22 15:13
islet
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:89
帖 子:6548
专家分:0
注 册:2005-1-28
收藏
得分:0 
对错先放一边 你这个没有用处 你的conn是局部变量
2005-11-22 15:18
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5810
专家分:118
注 册:2005-4-7
收藏
得分:0 
ASP是可以INCLUDE 的
在用的时候INCLUDE那个文件不就可以直接引用了?
那样说来和全局变量没有区别了

2005-11-22 15:20
善良的狗
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-11-1
收藏
得分:0 

我的本意就设置成局部变量,全文是这样的
<body>
<%
'声明变量
dim

vardb,varmydomain,vardate,varmessage,varusername,varusername2,varuserid,maruser2id,varlogof

f,varstyle,varcolour,varswearstatus,varpmrand,conn,rs,varsql,vartime,varrooms,varidletime,v

aridle,varlastpost,i

vardb = server.mappath("../myroom/my15.mdb")
'初始化时间变量,记录当前时间
vardate = now()

'错误提示函数
function traperror
response.Write "错误产生!"
end function

'打开数据库函数
sub opendb(varsql)
set conn = server.CreateObject ("adodb.connection")
conn.provider="microsoft.jet.oledb.5.0;data source=my15.mdb;"
conn.open vardb
end sub

'关闭数据库
sub closedb(varsql)
rs.close
conn.close
set rs = nothing
end sub

'执行SQL语句
sub writedb(varsql)
set conn=server.createobject("adodb.connection")
conn.provider="microsoft.jet.loedb.4.0;jet oledb:database password=natterchat"
conn.open vardb
conn.execute(varsql)
conn.close
set conn = nothing
end sub

'打开数据库
call opendb(varsql)
varsql = "select * from users;"
rs.open varsql, conn ,1,3
if rs.eof then
'打开setup表,如果为空,则提示错误
else
varidletime = rs("idletime")
varkickouttime = rs("kickouttime")
end if
call closedb(varsql)
%>
你看这样写,成吗?

2005-11-22 15:23
善良的狗
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-11-1
收藏
得分:0 

我一直搞不通这个程序,老是提示
错误类型:
ADODB.Connection (0x800A0E7A)
未找到提供程序。该程序可能未正确安装。
/myroom/config.asp, 第 25 行

2005-11-22 15:26
善良的狗
Rank: 1
等 级:新手上路
帖 子:19
专家分:0
注 册:2005-11-1
收藏
得分:0 
就在打开数据库函数里面
2005-11-22 15:27
快速回复:[求助]初学者求援~~~~~
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.041058 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved