!!!!急!在线等待!!连接数据库问题!!

heejun521 2004-04-08 12:32:30
我再本机设置数据源BCA 为什么提交数据出错
set conn=server.createobject("adodb.connection")
conn.Open Application("dsn")
strSQL = "insert into BCAWeb_Question(name,CompanyName,linkWay,Tilte,memo) values ('" &strName & "','" &strCompany& "','" &strlink& "','" &strTitle& "','" &strQuestion& "')"
conn.Execute strSQL
conn.close
set conn = nothing
换成下面也不好使:
<%

Dim strName,strCompany,strlink,strTitle,strQuestion

strTitle = Request.Form("textfield4")
strTitle = Trim(strTitle)
strTitle = replace(strTitle,"'","''")

strTitle = server.HTMLEncode(strTitle)


strQuestion = Request.Form("textfield4")
strQuestion = replace(strQuestion,"'","''")


strQuestion = replace(strQuestion,"<","<")
strQuestion = replace(strQuestion,">",">")


strName = Request.Form("textfield")
strCompany = Request.Form("textfield2")
strlink = Request.Form("textfield3")




set conn=server.createobject("adodb.connection")
Connstr="Provider=SQLOLEDB;Data Source=hf;UID=sa;PWD=sa;DataBase=BCAWeb"
conn.open connstr


set rec=server.createobject("adodb.recordset")
rec.open "select * from BCAWeb_Question where id is null",connstr,1,3
rec.AddNew
rec("name") = strname
rec("Companyname") = strCompany
rec("LinkWay") = strLink
rec("Title") = strTitle
rec("memo") = strQuestion
rec.Update

rec.Close

set rec = nothing
conn.Close
set conn = nothing

response.redirect "level3.htm"
%>
各位大侠帮忙!!小弟很急!!就10分了 ,都给了!!谢谢了
...全文
25 点赞 收藏 14
写回复
14 条回复
切换为时间正序
请发表友善的回复…
发表回复
heejun521 2004-04-08
错误:Microsoft OLE DB Provider for ODBC Drivers怎么回事呀 ??55555555
回复
HeavenBen 2004-04-08
连接数据库的五种方法:

第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

第二种-这种方法用在SQL SERVER中多
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;" _
&"UID=LoginID;Password=;DATABASE=Database_Name"
set conn = server.createobject("adodb.connection")
conn.open strconn

第三种
strconn="Driver={Microsoft Access Driver(*.mdb)};" _
&"DBQ=F:\Inetpub\wwwroot\somedir\db1.mdb;DefaultDir=" _
&"f:\Inetpub\wwwroot\somedir;uid=LoginID;" _
&"pwd=Password;DriverId=25;FIL=MSAccess;"
set conn = server.createobject("adodb.connection")
conn.open strconn



第四种运用系统数据源
The following uses a Data Source Name: Example
set conn = server.createobject("adodb.connection")
conn.open "Example"



第五种运用ODBC数据源,前提是你必须在控制面板的ODBC中设置数据源
set rs = server.createobject("adodb.recordset")
rs.open "tblname", "DSNName", 3, 3 第一种 - 这种方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn
回复
FlashK 2004-04-08
不要设数据源,这样试试。
Access:
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db1.mdb")

SQL Server
Set conn = Server.CreateObject("ADODB.Connection")
conn.ConnectionString = "driver={SQL Server};server=ip地址;uid=sa;pwd=;database=database"
conn.Open
回复
vvfish119 2004-04-08
报错了吗?什么错误?把你的sql语句放到查询分析器里执行一下看看对不对,然后检察你的连接串写的是否正确
回复
ratnight 2004-04-08
错误提示是什么?
sql先在查询分析器中执行看能不能通过
回复
shuye216 2004-04-08
具体什么错误提示,我看你的代码是正确的,是不是你连接数据库错误,你用Access试试看!
回复
Cuilian521 2004-04-08
有人帮我把代码 改改马????还是不行
回复
Cuilian521 2004-04-08
UP!
回复
heejun521 2004-04-08
set rec=server.createobject("adodb.recordset") 加了!!怎么办??
回复
andy1andy2 2004-04-08
有加这句吗?
set rs=server.createobject("adodb.recordset")
回复
heejun521 2004-04-08
和我写的一样呀 !!为什么我得不好使!!!555
回复
jhlgxyxl 2004-04-08
可以参考一下:
http://www.tongyi.net/article/20040303/200403033940.shtml
回复
heejun521 2004-04-08
????
回复
heejun521 2004-04-08
有人在吗???我要哭了◎◎555555
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告