如何通过ODBC连接SQL SERVER2000数据库？？？急！！在线等

[finerain]

ODBC ：DNS：LOGIN
数据库名：NEW
用户名：SYS
密码：AAA
请帮忙写连接语句：谢谢

[xieyj]

set conn = server.createobject("adodb.connection")
conn.open "driver={sql server};database=new;server=(local);uid=sys;pwd=aaa"

附上常用六种数据库连接方式：

1.对在access数据库而言，数据库连接的asp程式码如下：set conn = server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq=数据库名称;uid=sa;pwd="
其中在dbq直接设定access数据库的真实路径名称。您可以使用server.mappath("数据库名称名称") 以取得数据库的真实地址如下：
conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.mappath("数据库名称") & ";uid=sa;pwd="

2.对在sql server数据库而言，数据库连接的asp程式码如下：
set conn = server.createobject("adodb.connection")
conn.open "driver={sql server};database=数据库名称;server=(local);uid=sa;pwd="

3.对在oracle数据库而言，数据库连接的asp程式码如下：
set conn = server.createobject("adodb.connection")
conn.open "driver={microsoft odbc for oracle};uid=xxx;pwd=yyy;server=sss"

4.对在excel而言，数据库连接的asp程式码如下：
set conn = server.createobject("adodb.connection")
conn.open "driver={microsoft excel driver (*.xls)};dbq=数据库名称"

5.对在dbase数据库而言，数据库连接的asp程式码如下：
set conn = server.createobject("adodb.connection")
conn.open "driver={microsoft dbase driver (*.dbf)};dbq=数据库名称"

6.对在text名称而言，数据库连接的asp程式码如下：
set conn = server.createobject("adodb.connection")
conn.open "driver= {microsoft text driver (*.txt; *.csv)};dbq=数据库名称"

[xzq686]

set conn=server.CreateObject"ADODB.Connection")
conn.Open "DSN=LOGIN;UID=SYS;PWD=AAA;DATABASE=NEW"
或
set conn=server.CreateObject"ADODB.Connection")
conn.Open "DSN=LOGIN;UID=sa;PWD=;DATABASE=NEW"

[be00]

"Driver={sql server};server=LOGIN;database=NEW ;uid=SYS;pwd=AAA;"

[xzq686]

ODBC的系统DSN连接方式：

set conn=server.CreateObject("ADODB.Connection")
conn.Open "DSN=LOGIN;UID=SYS;PWD=AAA;DATABASE=NEW"
或
set conn=server.CreateObject("ADODB.Connection")
conn.Open "DSN=LOGIN;UID=sa;PWD=;DATABASE=NEW"

ODBC的无DSN连接方式：

set conn=server.CreateObject("ADODB.Connection")
conn.Open "DRIVER＝{SQL Server};SERVER=LOGIN;UID=SYS;PWD=AAA;DATABASE=NEW"
或
set conn=server.CreateObject("ADODB.Connection")
conn.Open "DRIVER＝{SQL Server};SERVER=;UID=sa;PWD=;DATABASE=NEW"

[bxwu]

Dim Conn
Dim strConn
Set Conn = Server.CreateObject("ADODB.Connection")
strConn = "Provider=SQLOLEDB.1;Password=AAA;Persist Security Info=False;User ID=SYS;Initial Catalog=NEW;Data Source=127.0.0.1"
Conn.Open strConn

[loveweb]

set conn = server.createobject("adodb.connection")
conn.open "driver={microsoft odbc for oracle};uid=sys;pwd=AAA;server=login database=new"

[loveweb]

set conn = server.createobject("adodb.connection")
conn.open "driver={SQL Server};uid=sys;pwd=AAA;server=login database=new"

[fengqing7]

Set Conn = Server.CreateObject("ADODB.Connection")
dbconnection String="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initical Catalog=XLt;DataServer=(local)"
dbUser="sa"
dbPassword=""
Conn.Open dbconnection String,dsUser,dbPassword

下面可写SQ语句了
sql="select ........"
set rs=conn.execute(sql)

[nik_Amis]

up