连接数据库的简单问题

[poemGao]

<%
dim sql,rs,conn
'on error resume next
sub openDB_DSN()
set conn=server.createobject("ADODB.Connection")
conn.open"DSN=learnasp; UID=sa; PWD="
set rs=server.createobject("ADODB.Recordset")
end sub

sub openDB()
set conn=server.createobject("ADODB.Connection")
//*conn.open "Driver={SQLServer};Server=localhost;Database=learnasp;Uid=sa;Pwd="
set rs=server.createobject("ADODB.Recordset")
end sub

sub closeDB()
If IsObject(conn) Then
if not(conn is nothing) then
set rs=nothing
conn.close
set conn=nothing
end if
End If
end sub
%>
//*处报错

[xiaojing7]

conn.open

[dfhsaa]

上海互通网络5.1盛大促销！
所有用户（包括代理）！购买1G空间联系客服免费赠送1个CN国际域名！
最终解释权归上海互通网络科技有限公司所有！
详情请访问：www.515dns.com
QQ：287895593

[紫气东来_999]

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


推荐连接大全网站：www.connectionstrings.com

[hookee]

{SQL Server}少个空格

<% 
dim sql,rs,conn 
'on error resume next 
sub openDB_DSN() 
  set conn = server.createobject("ADODB.Connection") 
  conn.open "DSN=learnasp; UID=sa; PWD=" 
  set rs = server.createobject("ADODB.Recordset") 
end sub 

sub openDB() 
  set conn = server.createobject("ADODB.Connection")  
  conn.open "Driver={SQL Server};Server=localhost;Database=learnasp;Uid=sa;Pwd=" 
  set rs = server.createobject("ADODB.Recordset") 
end sub 

sub closeDB()
  If IsObject(conn) Then 
     if not(conn is nothing) then 
         set rs = nothing 
         conn.close 
         set conn=nothing 
     end if 
   End If
end sub 
%>

[明珠佩佩]

<% 
dim sql,rs,conn, strConn 
'on error resume next 
sub openDB_DSN() 
set conn=server.createobject("ADODB.Connection") 
conn.open"DSN=learnasp; UID=sa; PWD=" 
set rs=server.createobject("ADODB.Recordset") 
end sub 

sub openDB() 
set conn=server.createobject("ADODB.Connection")
strConn="DRIVER={SQL Server};SERVER=;UID=sa;PWD=;DATABASE="
Conn.ConnectionString = strConn
conn.open  
set rs=server.createobject("ADODB.Recordset") 
end sub 

sub closeDB() 
If IsObject(conn) Then 
if not(conn is nothing) then 
set rs=nothing 
conn.close 
set conn=nothing 
end if 
End If 
end sub 
%>

使用以上代码应可以满足

但你这样的数据库连接方法是有问题的

如果你页面上需要同时用到多个记录集

你会发现很头疼的！！

[jonkiky]

学习

[luckyllp]

回帖是一种美德！每天回帖即可获得 10 分可用分！

[wlzx21]

conn.open "Driver={SQL Server};Server=localhost;Database=learnasp;Uid=sa;Pwd="

[poemGao]

//*conn.open "Driver={SQLServer};Server=localhost;Database=learnasp;Uid=sa;Pwd="
中SQLServer是分开的，SQL Server
是输入的事

[J8F4_]

收获中

[rokerker]

conn.open "DRIVER={SQL SERVER};SERVER=(local);uid=sa;pwd=;DATABASE=learnasp"
或者你把数据库加上密码试试
conn.open "DRIVER={SQL SERVER};SERVER=(local);uid=sa;pwd=pass;DATABASE=learnasp"

[l595281488]

杂不参考动网的呢

[lingyun410]

在什么情况下报的错呢？你应该列出你执行页面的代码。