请问ASP直接连接sql server数据库的语句怎么写，还有就是执行查询语句的写法(在线等待）

[randysweet]

请问ASP直接连接sql server数据库的语句怎么写，还有就是执行查询语句的写法，以Northwind中的employees表为例，谢谢了！

[may_meng]

还是用ODBC比较好
不会把密码明文写在文件里

[wangshuying]

Set cn = Server.CreateObject("ADODB.Connection")
cn.Provider = "sqloledb"
ProvStr = "Server=服务器名;Database=数据库名;UID=用户名;PWD=密码;"
set Info = Server.CreateObject("ADODB.Recordset")
//下面语句执行数据库搜索，其中id是要搜索的字段名；后面是判断条件
querystr = "SELECT * FROM sendmessage where id = '"_
+ Session("id") + "'"
//打开数据库
Info.Open querystr,cn,0,3
//执行相关操作
......
//关闭数据库
Info.Close

[steven007]

dim s
dim conn

set Conn = server.createobject("ADODB.Connection")
s = "Driver={SQL Server};Server=服务器(ip);Database=数据库名;UID=用户名;PWD=密码"

Public Function ConnectUseString(s)
strConn=Cstr(s)

on error resume next
conn.ConnectionTimeout=10
conn.open strConn

if err.number<>0 then
strErrorMessage="数据库连接失败。"
ConnectUseString = false
else
strErrorMessage="数据库连接成功。"
ConnectUseString = true
End if
End Function

[laobearing]

Set Con=Server.CreateObject("ADODB.Connection")
Set Cmd = Server.CreateObject("ADODB.COMMAND")
Con.Open "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=SA;Initial Catalog=NorthWind;Data Source=(LOCAL)"

set crn=con.execute("Select * From Products")
......
Con.Close
Set Con=nothing

[Reker熊]

set conn=server.CreateObject("ADODB.Connection")
1.conn.Open "Driver={SQL Server};Server=服务器(ip);Database=数据库名;UID=用户名;PWD=密码"

2.conn.Open"Provider=sqloledb.1;database=数据库名;uid=登录名;pwd=密码;data source=服务器名（ip）"

查询语句
set rs=server.CreateObject("ADODB.Recordset")
rs.source="select * from employees"
rs.open rs.source,conn,1,1
*****************************************
丛林深处一座破庙不为香客关注
一个和尚形单孤独 与世隔绝没人光顾
穿着打满补丁的僧服寒风吹透身上的破布
看家狗瘦的皮包着骨 一日三餐以吃草为主
庙里神仙破碎班驳 依然摆着POSE瞪着眼珠
神龛前的帘布 挂着硕大的黑蜘蛛
和尚虽然没人监督 照样念经颂佛
吃粮全靠自己耕锄 见了可作荤菜的猎物不敢捕
早起晚睡看起来很忙碌 兢兢业业从不知道辛苦
偶尔来了赶路的歇脚此地 斋饭恭候并指明下山的路
要是烧香的是位年轻的女施主 吓的和尚直念阿弥陀佛
年复一年和尚变的风烛残年
****************************************************

[fason]

Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open "driver={SQL Server};server=服器;uid=sa;password=密码;database=数据库名字"

[randysweet]

这种方法好象不行啊，是不是要配置ODBC数据源

[yuanbxr]

<%
set Conn = server.createobject("ADODB.Connection")
Conn.Open "driver={SQL server};server=SQLSERVERIP;uid=sa;pwd=;database=Northwind"
%>
将其放于一个文件中，如CONN.ASP

在需要调用时用<!--#include file=conn.asp-->

查询如下：
set rs=server.createobject("adodb.recordset")
sql="select * from employees"
rs.open sql,conn,3,1
rs.open

[ybjhyr]

不用odbc，一般有两种方法
dim strConn

strConn="Provider=sqloledb.1;Data Source=服务器名称;Initial
Catalog=Northwind;User Id=sa;Password=; "

'strConn = "DRIVER={SQL SERVER};SERVER=服务器名称
;UID=sa;PWD=;database=Northwind"

set conn="server.createobject("adodb.connection")

conn.open strConn




——————————————————————
好东西要大家分享

[longlongge]

用ado连接是最好的方式
不用配置odbc数据源
<% @language=vbscript%>
<%
option explicit
dim cnn,strcnn
set cnn=server.createobject("adodb.connection")
strcnn="provider=sqloledb;user id=xx;password=;initial catalog=pubs;data source=icbczjp"
cnn.open strcnn
response.write "数据库连接成功！"&cnn.state&"<br>"
cnn.close
set cnn=nothing
%>

[wwwfanmh]

我也遇到相同的问题，高手在哪里啊？

[wwwfanmh]

ybjhyr(小叶)的第二种方法可以也，再试试！

[randysweet]

那位大哥行行好阿
那段代码怎么弄就是不对
急死我了，我加分了

[baisun]

<%
on error resume next
myconn="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=server"
set conn=server.createobject("adodb.connection")
conn.open myconn
set rs=server.createobject("adodb.recordset")
sql="select * from employees"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
rs("id")
rs.movenext
loop
else
response.write "没有记录"
end if
%>

[Jade]

你的数据库放在哪里啊,要放在虚拟目录下的.

[randysweet]

我按照大家写的做了，但是还是不对，以下是我的连接代码包括查询，不知错在哪里：
Set Conn =Server.CreateObject("ADODB.Connection")
ConnStr ="Driver={SQL Server};server=shenrong;Database=bbsb;UID=sa;Pwd="
Conn.open Connstr

set rs=server.createobject("adodb.recordset")
SQLstr = "SELECT * FROM user where dwbm='"&Temp1& "'and password='"&Temp2&"'"
set rs = Conn.Execute(sqlstr)
报错信息：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)

[freelyl]

如果你有VB会用，那就很方便，用DATA控件来连，连上后COPY连接字符串一定可以。

[randysweet]

我的数据库是sql server的

[ERPPRO]

你把
SQLstr = "SELECT * FROM user where dwbm='"&Temp1& "'and password='"&Temp2&"'"
改成
SQLstr = "SELECT * FROM user"试试。

[naonaozhang]

检查一下你对数据库的操作权限。