ASP中ACCESS数据库转成SQL SERVER的链接代码,求高手改代码

ASP中ACCESS数据库转成SQL SERVER的链接代码,请高手帮忙看看代码！~

<%
set Conn = server.createobject("adodb.connection")
'-------------使用DSN与数据库建立连接的三种方法 --------------
'第一种方式
'conn.open "数据源名称","sa",""
'第二种方式
'conn.connectionstring="DSN=数据源名称;UID=sa;PWD=;"
'conn.open
'第三种方式
'conn.open "dsn=数据源名称;uid=sa;pwd=;"

'------------使用OLE DB字符串与数据库建立连接--------------
Conn.open "Provider=SQLOLEDB.1;user ID=sa;Password=;Initial Catalog=数据库名称;Data Source=(local)"

'----------------使用ODBC字符串与数据库建立连接-----------------
'conn.open "Driver={SQL Server};Database=数据库名称;Server=(local);UID=sa;PWD=;"
%>




<%
dim conn
on error resume next
Set conn = Server.CreateObject("ADODB.Connection")
Conn.open "Provider=SQLOLEDB.1;user ID=sa;Password=;Initial Catalog=数据库名称;Data Source=(local)"
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Inc/Config.Asp里的数据库名称及路径是否正确。"
Response.End
End If

LaoYID=Request.Cookies("Yao")("ID")
LaoYName=Request.Cookies("Yao")("UserName")
LaoYPass=Request.Cookies("Yao")("UserPass")
If LaoYID"" and LaoYName"" and LaoYPass"" then
set rs4 = server.CreateObject ("adodb.recordset")
sql="select * from Yao_User where id="& LaoYRequest(LaoYID) &" and PassWord='"&CheckStr(LaoYPass)&"' and UserName='"&CheckStr(LaoYName)&"'"
on error resume next
rs4.open sql,conn,1,1
mymoney=rs4("UserMoney")
username=rs4("UserName")
dengjipic=rs4("dengjipic")
dengji=rs4("dengji")
UserPass=rs4("PassWord")
rs4.close
set rs4=nothing
If UserPassLaoYPass or usernameLaoYName Then
LaoYID=""
LaoYName=""
LaoYPass=""
Else
IsUser=1
End if
End if

Sub ShowAD(ID)
set rsad=conn.execute("select * from Yao_AD Where ID = "&ID&"")
If Not rsad.Eof Then
If rsad("yn")=1 then
Response.Write(laoy(rsad("Content")))
End if
End if
rsad.close
set rsad=nothing
End Sub

Sub Label(ID)
set rsLabel=conn.execute("select * from Yao_Label Where ID = "&ID&"")
If ID=2 then
Response.Write(" P"&"o"&"w"&"e"&"r"&"e"&"d"&" b"&"y "&"l"&"a"&"o"&"y"&"8"&"!"&" "&Version&""&rsLabel("Content")&"")
else
Response.Write(rsLabel("Content"))
End if
rsLabel.close
set rsLabel=nothing
End Sub
%>

Access是一种桌面数据库，只适合数据量少的应用，在处理少量数据和单机访问的数据库时是很好的，效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限，如果数据达到100M左右，很容易造成服务器iis假死，或者消耗掉服务器的内存导致服务器崩溃。

SQL Server是基于服务器端的中型的数据库，可以适合大容量数据的应用，在功能上管理上也要比Access要强得多。在处理海量数据的效率，后台开发的灵活性，可扩展性等方面强大。因为现在数据库都使用标准的SQL语言对数据库进行管理，所以如果是标准SQL语言，两者基本上都可以通用的。SQL Server还有更多的扩展，可以用存储过程，数据库大小无极限限制。

你好！
具体方法和代码如下：

set conn=server.createobject("adodb.connection")
变量名="driver=sql server;server=IP地址;database=数据库名;uid=用户名;pwd=密码"
conn.open 变量名

"conn"是你设置的对象名
"变量名" 为自定义
"IP地址" 你计算机的IP
"数据库名" 你数据库的名称
"用户名"和"密码" sql server安装时的设置，如果你安装时用的是windows身份验证，那么你就要新建一个用户， 新建用户在企业管理器里面。
如果安装时用的是sql server身份验证，那么它的默认用户名为"sa" 密码有空，就是没有密码的意思。
如果你不知道你安装时用的是 windows身份验证
还是 sql server身份验证 那么你可以打开查询分析器，在那里可以看见，

谢谢！希望我的回答对你有所帮助！

<%
DB_loca="127.0.0.1"
DB_uid="BBB"
DB_pwd="111"
DB_name="AAA"
set conn=server.CreateObject("adodb.connection")
conn.open"driver={sql server};server="&DB_loca&";uid="&DB_uid&";pwd="&DB_pwd&";database="&DB_name
%>

楼上的基本没问题,补充下:
根据实际经验,sever地方建议用localhost,或计算机名.让系统自己去解析地址,可以避免很多奇怪的问题.

---

惠来县19777909453： 跪求高手解答在ASP中如何把ACCESS数据库转成SQL数据库~~ - ？
童鲁金力： SQL的管理器就能实现ACCESS导入成SQL格式呀! 导入成SQL格式后,源程序只需要修改数据库连接连接对象Connection的连接属性就可以了!经常这样做的!没有问题! 不过ACCESS导入成SQL后,原来在ACCESS中定义的主键消失了;ACCESS中创建的视图也变成表了!希望你注意!并做相应的手工完善!

惠来县19777909453： 新手来看:Access转SQL Server要注意些什么? - ？
童鲁金力： 把ACCESS转成SQL数据库很多朋友想用SQL2000数据库的编程方法,但是却又苦于自己是学ACCESS的,对SQL只是一点点的了解而已,这里我给大家提供以下参考---将ACCESS转化成SQ...

惠来县19777909453： 如何通过ASP实现将ACCESS数据库导成EXCEL?？
童鲁金力： 很简单.你把ACCESS用ASP按你的要求读出来.放在表格里面.排好. 不要引用CSS文件.就跟写普通的网页一样. 完成了以后,最后在ASP文件的一开始写上这一段 <% Response.ContentType = \＂application/msexcel\＂ Response.AddHeader \＂Content-Disposition\＂, \＂attachment; fileName=文件名.xls\＂ %>

惠来县19777909453： ASP+ACCESS转成ASP+SQL程序应如何修改？
童鲁金力： 需要注意这么几个地方,不知道能不能说全. 第一个,将access数据库导入到sql后,各个表的主键需要重新设置一下,因为导入的时候,主键会掉.然后,主键需要设置为自动加一. 第二个,将连接字符串换成sql数据库的连接方法,本人习惯使用...

惠来县19777909453： 怎么把asp.net中的access数据库变为SQL数据库 - ？
童鲁金力： 可以用vs提供的替换功能,选择替换范围为“整个项目”,然后:1.把OleDb替换成Sql;2.把System.Data.Sql替换成System.Data.SqlClinet;3.把原来数据库的连接字符串,改成连接SQL Server的连接字符串.依次按上述操作,基本就行了,前提是sql语句是通用的.

惠来县19777909453： 谁知道怎么asp代码中怎么把access数据库改成mssql链接呀？
童鲁金力： <% Set conn = Server.CreateObject(＂ADODB.Connection＂) connstr=＂Provider=SQLOLEDB;Data Source=(local);Initial Catalog=test; User ID=sa;Password=＂ conn.Open connstr %>

惠来县19777909453： 将access数据库的网站转换成sql数据库网站的方法 - ？
童鲁金力： 在sql里建一个数据库,右键导入数据,把access倒进去. 将access的连接字符串改为sql的,一般在conn.asp中 1 sqlserver conntol = ＂driver={SQL Server};server=数据库ip;uid=用户名;pwd=密码;database=数据库名＂ set conn=server....

惠来县19777909453： ASP+ACCESS改为SQL2000的连接方法？
童鲁金力： set conn=server.CreateObject (＂adodb.connection＂) conn.open ＂DRIVER={SQL Server};SERVER=(local);UID=sa;PWD=ynbbs;DATABASE=ynbbs＂ok了 后面都一样

惠来县19777909453： ACCESS数据库的ASP程序改SQL - ？
童鲁金力： 很多朋友想用SQL2000数据库的编程方法,但是却又苦于自己是学ACCESS的,对SQL只是一点点的了解而已,这里我给大家提供以下参考---将ACCESS转化成SQL2000的方法和注意事项 一,首先,我说的是在ACCESS2000,SQL2000之间转...

惠来县19777909453： asp+acces改成asp+mssql - ？
童鲁金力： 你好.一、如果你是通过工具把ACCESS数据库转成了mssql,数据库一些字段需要调整.比如:1、自动编号转成mssql后,会变成Int类型,需要自己设置“种子”和“递增量”为“1”.2、access数据库中所有的默认值都丢失了.主要是数字类型和日期类型 3、所有now(),time(),date()要改成getdate() .二、程序方面需要注意的: 1、所有datediff(d', time1, time2)要改成datediff(day, time1, time2) ,如果不存在时间判断,可以忽略这个.2、其他可能有一些查询语句需要改动一下.这个需要看具体情况,需要测试,如果程序运行没问题就ok.