ASP+ACCESS转换成ASP+SQL问题,请高手来帮忙!! 30
<%dimConn,ConnStrSqlDatabaseName="db_agency"'数据库名SqlUsername="sa"'用户名SqlPassword="sa"...
<%
dim Conn,ConnStr
SqlDatabaseName = "db_agency" '数据库名
SqlUsername = "sa" '用户名
SqlPassword = "sa" '用户密码
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
Conn.Open ConnStr
%>
技术信息(用于支持人员)
错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/k/index.asp, 第 31 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页:
GET /k/index.asp
时间:
2009年6月2日, 9:36:02
详细信息:
Microsoft 支持
请高手帮我改一下。到底是怎么回事? 怎么改才能正常显示首页。 展开
dim Conn,ConnStr
SqlDatabaseName = "db_agency" '数据库名
SqlUsername = "sa" '用户名
SqlPassword = "sa" '用户密码
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
Conn.Open ConnStr
%>
技术信息(用于支持人员)
错误类型:
Microsoft VBScript 运行时错误 (0x800A01A8)
缺少对象: ''
/k/index.asp, 第 31 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页:
GET /k/index.asp
时间:
2009年6月2日, 9:36:02
详细信息:
Microsoft 支持
请高手帮我改一下。到底是怎么回事? 怎么改才能正常显示首页。 展开
5个回答
展开全部
还有个Data Source你都没定义 也就是SQL服务器地址
另外ACC转SQL 不是简单改个数据库源就行的 程序中相应的代码甚至数据库中相应的字段都要做出合适的调整 这个就要具体情况具体分析了
你把
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
这句改成
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = (local);"
如果还不行 就要具体情况具体分析来改程序以及数据库了
另外ACC转SQL 不是简单改个数据库源就行的 程序中相应的代码甚至数据库中相应的字段都要做出合适的调整 这个就要具体情况具体分析了
你把
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
这句改成
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = (local);"
如果还不行 就要具体情况具体分析来改程序以及数据库了
展开全部
今天整理下以前连接过的库语句,分别如下:
ASP连接Excel语句
Dim Conn,Connstr
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="& Server.MapPath("db/goods.xls")
Set Conn = Server.CreateObject("ADODB.CONNECTION")
Conn.Open Connstr
ASP连接Access语句
dim conn,connstr
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("database/# data.asp")
conn.open connstr
ASP连接Sql server语句
SQLServerName = "192.168.16.4" '服务器名称或地址,本机用(local)
SQLDBUserName = "sa" '数据库帐号
SQLDBPassword = "sa" '数据库密码
SQLDBName = "data" '数据库名称
'数据库连接
'On Error Resume Next '容错声明
response.buffer=true
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open"driver={SQL Server};server="&SQLServerName&";uid="&SQLDBUserName&";pwd="&SQLDBPassword&";database="&SQLDBName&""
ASP连接Excel语句
Dim Conn,Connstr
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="& Server.MapPath("db/goods.xls")
Set Conn = Server.CreateObject("ADODB.CONNECTION")
Conn.Open Connstr
ASP连接Access语句
dim conn,connstr
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("database/# data.asp")
conn.open connstr
ASP连接Sql server语句
SQLServerName = "192.168.16.4" '服务器名称或地址,本机用(local)
SQLDBUserName = "sa" '数据库帐号
SQLDBPassword = "sa" '数据库密码
SQLDBName = "data" '数据库名称
'数据库连接
'On Error Resume Next '容错声明
response.buffer=true
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open"driver={SQL Server};server="&SQLServerName&";uid="&SQLDBUserName&";pwd="&SQLDBPassword&";database="&SQLDBName&""
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
dim Conn,ConnStr
重复定义了
重复定义了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
连接字符串ConnStr不对
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
哪个是31行啊。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询