我已搜索所有以往相关帖子仍无所获！用 OLD DB 与 MSSQL 连接！HELP！！因急而愈发郁闷！

[actor2222]

以前从未用过，HELP ME！！

用 OLD DB 与 MSSQL 连接，我已在本地装了 WINDOWS NT 的MSSQL，操作系统是
WIN2000的专业版，已建一数据库SHOP，内有表SHOPPING，服务器为DJ。
现在某一页面做连接相关程序如下：
dim connstr,conn,rs
set conn=Server.CreateObject("adodb.connection")
connstr= "Driver={SQL Server};SERVER=dj;UID=sa;PWD=;DATABASE=Shop;"
set rs=Server.CreateObject("adodb.recordset")
conn.open connstr ‘第十九行
报错如下：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
/admin/shop/show.asp, 第 19 行


何故？我已搜索所有以往相关帖子仍无所获！帮帮忙吧，急！

[actor2222]

我用的是是本地帐户模式登录，
现已知错误提示为：用户 'sa' 登录失败。原因: 未与信任 SQL Server 连接相关联。连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。
怎么办？？？？？？
谁明白？？？？？
支个招吧！！！！
万分感谢！！！！

[actor2222]

UP！

[stlwj]

你在安装SQL时是用混合模式的密码登录，还是用本地帐户模式登录的。这是有区别的

[actor2222]

WINDOWS默认的！

[ceocio]

默认的什么意思？你是不是用的信任连接？

[actor2222]

选择的是WINDOWS身份认证！应该是本地帐户模式登录

[virmper]

环境：
Win2k+mysql-3.23.32-win+myodbc-2.50.36-dll
(www.mysql.com 下载)

code:

＜% strConnection = "dsn=topsun;driver={myodbd
driver};server=localhost;uid=root;pwd=;database=topsun" Set
adoDataConn = Server.CreateObject("ADODB.Connection")
adoDataConn.Open strConnection strQuery = "SELECT * FROM
user" Set rs = adoDataConn.Execute(strQuery) %＞

你的错误原因是你的ODBC For MYSQL 配置安装不正确
如果不明白请留下联系方式！我是第一次发言。。。呵呵（来CSDN一年了）

[actor2222]

qq:102888507
[e-mail]

[actor2222]

我用的是MSSQL！没用ODBC连！
：（

[jeffrywang]

最好的 测试方法是在VB中用ADO控件来检测你的 connstr ，能够通过的话，应该不会有问题，也可以直接COPY ADO控件 中连接字符串

[actor2222]

帮帮忙呀！
进来的仁兄都帮忙UP一下吧！

[actor2222]

TO 半边海：
如何在VB中用ADO控件来检测通过？

[blueice2002]

asp与sql server 数据库的连接
<%
'连接数据库————————————————————————————
set conn=server.createobject("adodb.connection")
Connstr="Provider=SQLOLEDB;Data Source=127.0.0.1;UID=sa;PWD=sa;DataBase=web"
'打开数据库——————————————————————————————————
conn.open connstr
'写数据查询语句————————————————————————
set rs=conn.execute("select * from asp where id>2")
'输出查询结果——————————————————————————
do until rs.eof
response.write rs("id")&"<br>"
response.write rs("name")&"<br>"
rs.movenext
loop
%>
************************************
asp与access 数据库的连接
********************************
<% dim conn
dim connstr
on error resume next
connstr="DBQ="+server.mappath("login.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver

(*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
if err then
err.clear
end if
end if
set rs=conn.execute("select * from login_info where id>1")
do until rs.eof
response.write rs("id")&"<br>"
response.write rs("username")&"<br>"
response.write rs("password")&"<br>"
rs.Movenext
loop %>

*****************************************************
*****************************************************
<!--#include file="conn.asp"-->
<%
set rs=conn.execute("select * from login_info where id>2")
'set rs=server.createobject("adodb.recordset")
'sql="select * from login_info where id > ='1' "
'rs.open sql,conn,1,1
do until rs.eof
response.write rs("id")&"<br>"
response.write rs("username")&"<br>"
response.write rs("password")&"<br>"
rs.Movenext
loop
%>

**********************************************************
***********************************************************

连结其他数据库的方法(*.dbf,*.txt,excel,foxpro等) ----收藏
2002-10-30 18:41:05 浏览次数:145

'连结dbf文件
<%
' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Visual FoxPro Driver};"
SourceType = "SourceType=DBF;"
DBPath = "SourceDB=" & Server.MapPath( "Dbf" )

' 调用Open 方法连接数据库
conn.Open Driver & SourceType & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据源，参数二为Connection对象
rs.Open "Select * From sample", conn, 2, 2
%>
'连结foxpro文件
<%
' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Visual FoxPro Driver};"
SourceType = "SourceType=DBC;"
DBPath = "SourceDB=" & Server.MapPath( "Dbf/Sample.dbc" )

' 调用Open 方法连接数据库
conn.Open Driver & SourceType & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据源，参数二为Connection对象
rs.Open "Select * From sample", conn, 2, 2
%>

'连结excel文件
<%
' 建立Connection对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "Sample.xls" )

' 调用Open 方法连接数据库
conn.Open Driver & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据源，参数二为Connection对象
rs.Open "Select * From [成绩单$]", conn, 2, 2
%>

'连结txt文件
<%
' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Text Driver (*.txt; *.csv)};"
DBPath = "DBQ=" & Server.MapPath( "Text" )

' 调用Open 方法连接数据库
conn.Open Driver & DBPath

Set rs = Server.CreateObject("ADODB.Recordset")
' 打开数据源，参数二为Connection对象
rs.Open "Select * From sample.txt", conn, 2, 2
%>






SELECT语法：(基本)



*************************************************************
**********************************************************
SELECT [DISTINCT]
(column [{, column } ] )| *
FROM table [ { , table} ]
[ORDER BY column [ASC] | [DESC
[{ , column [ASC] | [DESC } ] ]
WHERE predicate [ { logical-connector predicate } ];
------------------------------------------------------

INSERT语法：

INSERT INTO table
[(column { ,column})]
VALUES
(columnvalue [{,columnvalue}]);
------------------------------------------------------

UPDATE语法：

UPDATE table
SET column = value [{, column = value}]
[ WHERE predicate [ { logical-connector predicate}]];
------------------------------------------------------

DELETE语法：

DELETE FROM table
[WHERE predicate [ { logical-connector predicate} ] ];
------------------------------------------------------
blueice2002 2003-03整理----hshlin.8u8.com qq:14605617
msn:[e-mail]

[actor2222]

现连接部分代码已改为：
dim connstr,conn,rs
set conn=Server.CreateObject("adodb.connection")
connstr= "Provider=SQLOLEDB;Data Source=dj;UID=sa;PWD=sa;DataBase=shop;"
set rs=Server.CreateObject("adodb.recordset")
strsql="select * from shopping where isdel=0 order by sid desc"
conn.open connstr ’第29行
rs.open strsql,conn,1,1
报错如下：
Microsoft OLE DB Provider for SQL Server (0x80004005)
/admin/shop/show.asp, 第 29 行

怎么办？？？？？真是一波未平一波又起！！！！
烦烦烦！