在asp中怎么连接Access数据库 DW里面html5怎么连接access数据库
asp\u600e\u4e48\u8fde\u63a5mysql\u6570\u636e\u5e93Set Conn=Server.CreateObject("ADODB.Connection")
servername="XINZHI-SERVER"
dbname="User_info"
StrConn="Driver={ mysql odbc 3.51 driver};Server=(localhost);DataBase=hr;Uid=root;Pwd=root"
Conn.open strConn
if err then
err.Clear
Set Conn = Nothing
Response.Write "\u6570\u636e\u5e93\u6b63\u5728\u8c03\u6574\u4e2d\uff0c\u8bf7\u7a0d\u5019\u518d\u8bd5\u3002"
Response.End
end if
asp\u8fde\u63a5mysql\u7684\u6838\u5fc3\u4ee3\u7801\u5982\u4e0b\uff1a
Set Conn=Server.CreateObject("ADODB.Connection") //\u91c7\u7528ADO\u65b9\u5f0f\u8fde\u63a5
servername="XINZHI-SERVER" //\u8fde\u63a5server\u540d
dbname="User_info" //\u8fde\u63a5\u6570\u636e\u5e93
StrConn="Driver={ mysql odbc 3.51 driver};Server=(localhost);DataBase=hr;Uid=root;Pwd=root" //\u914d\u7f6e\u9a71\u52a8
Conn.open strConn //\u6253\u5f00\u8fde\u63a5
if err then //\u5982\u679c\u8fde\u63a5\u51fa\u9519\u7684\u5904\u7406
err.Clear
Set Conn = Nothing
Response.Write "\u6570\u636e\u5e93\u6b63\u5728\u8c03\u6574\u4e2d\uff0c\u8bf7\u7a0d\u5019\u518d\u8bd5\u3002"
Response.End
end if
1、设置数据库连接方式：
set dbconnection=Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("customer.mdb")
dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
SET uplist=dbconnection.EXECUTE(SQL)
2、设置连接数据库
DBPath = Server.MapPath("customer.mdb")
set session("rs")=Server.CreateObject("ADODB.Recordset")
' rs=Server.CreateObject("ADODB.Recordset")
connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpath
SQL="select * from auth where id='" & user_id &"'"
session("rs").Open sql,connstr,1,3
3、建立odbc数据源
set conn=server.createobject("Adodb.connection")
conn.open "DSN=xxx;UID=;PWD=;Database=customer
4、附上一个经常用的sqlserver与access通用的连接数据库代码：
<%
Const DataBaseType=1
If DataBaseType=0 then
DBPath="/jb51/news.asp"
SqlNowString = "Now()"
ystr=true
nstr=false
suiji="rnd(id)"
Else
'如果是SQL数据库，请认真修改好以下数据库选项
DataServer = "wwwjb51net" '数据库服务器IP
DataUser = "jb51net" '访问数据库用户名
DataBaseName = "jb51net" '数据库名称
DataBasePsw = "密码" '访问数据库密码
SqlNowString = "getdate()"
ystr=1
nstr=0
suiji="newid()"
End if
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End
%>
<%
response.Charset="GB2312"
Dim ConnStr,DataType
Dim ServerName,UserName,PassWord,DatabaseName
ServerName = "127.0.0.1" '设置数据库服务器地址，当为Access数据库时忽略
UserName = "sa" '设置数据库服务器用户名，当为Access数据库时忽略
PassWord = "" '设置数据库服务器密码，当为Access数据库时忽略
DatabaseName = "dbname" '设置数据库服务器数据库名，当为Access数据库时设置路径及文件名
DataType="SqlServer" '设置数据库类型 (SqlServer,Mysql,Access)
if DataType="SqlServer" then
ConnStr = "Provider=Sqloledb;Data Source="&ServerName&";User ID="&UserName&";Password="&PassWord&";Initial Catalog="&DatabaseName&";"
elseif DataType="Mysql" then
Connstr="Driver={Mysql ODBC 3.51 Driver};Server="&ServerName&";UID="&UserName&";PassWord="&PassWord&";Database="&DatabaseName&";"
elseif DataType="Access" then
Connstr="DBQ="+Server.Mappath(""&DatabaseName&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(""&DatabaseName&"")
end if
On Error Resume Next
Set Conn = Server.CreateObject("Adodb.Connection")
Conn.Open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接错误，请稍后再试!"
Response.End
End If
%>
绛旓細鍦ˋSP.NET鏈変袱绉嶆柟娉曡繛鎺CCESS鏁版嵁搴撱鍏蜂綋鎿嶄綔濡備笅:绗竴绉嶆柟娉曟槸鐪熺殑鎷変竴涓帶浠讹紝姣斿GridView鍜孌ataList锛屽湪璁捐椤甸潰涓婏紝鐐瑰嚮鍙充笂瑙掔殑涓夎褰㈡柊寤轰竴涓暟鎹簮锛屽湪寮瑰嚭鐨勫璇濇涓夋嫨鏁版嵁搴擄紝鏂板缓涓涓繛鎺ワ紝鍦ㄦ坊鍔犺繛鎺ュ璇濇鐨勬洿鏀逛腑閫夋嫨Access鏁版嵁搴擄紝鐒跺悗鍦ㄦ祻瑙堜腑閫夋嫨浣犵殑鏁版嵁搴撱傚鏋滄祴璇曟垚鍔燂紝涓嬩竴姝...
绛旓細ASP杩炴帴ACCESS鏁版嵁搴 4绉嶆柟娉 1.set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")DBPath = Server.MapPath("customer.mdb")dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath SQL="select * from auth where id="" & user_id &"""SET uplist=dbconnection....
绛旓細鏂规硶1锛歋et conn = Server.CreateObject("ADODB.Connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")鏂规硶2锛歋et conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data....
绛旓細绗竴绉嶆柟娉曪紝灏辨槸鐪熸帴鍦ㄥ湪璁捐椤甸潰涓婃媺涓涓帶浠锛屼緥濡侴ridView銆丏ataList锛岀偣鍑诲彸涓婅閭ｄ釜涓夎绗︼紝鏂板缓鏁版嵁婧愶紝鍦ㄨ烦鍑虹殑瀵硅瘽妗嗛夋嫨鏁版嵁搴擄紝鏂板缓杩炴帴锛屽湪娣诲姞杩炴帴瀵硅瘽妗嗙殑鏇存敼閭ｉ噷閫夋嫨Access鏁版嵁搴擄紝涔嬪悗鍦ㄦ祻瑙堥偅閲岄夋嫨浣犵殑鏁版嵁搴擄紝娴嬭瘯鎴愬姛鐨勮瘽锛屾帴涓嬫潵鐨勶紝灏辨瘮杈冨鏄撲簡銆傜浜岀鏂规硶灏辨槸鍦ㄥ啓浠ｇ爜鏉ョ粦瀹氾細...
绛旓細asp杩炴帴access鏁版嵁搴撶殑鏂规硶锛1銆佽缃暟鎹簱杩炴帴鏂瑰紡锛歴et dbconnection=Server.CreateObject("ADODB.Connection")DBPath = Server.MapPath("customer.mdb")dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath SQL="select * from auth where id='" & user_id &"'"SET uplist...
绛旓細if error then '濡傛灉鏁版嵁搴撹繛鎺ュ嚭閿 error.clear '娓呴櫎鍑洪敊淇℃伅 response.write("鏁版嵁搴撹繛鎺ュ嚭閿欙紝璇锋鏌ユ暟鎹簱璺緞鏄惁姝ｇ‘锛")response.end()end if sub endconn() '瀹氫箟涓涓叧闂杩炴帴鐨杩囩▼ conn.close set conn=nothing end sub > 鍦ㄥ叾浠栦篃闈㈠氨鐩存帴鐢 <!--#include file "conn.asp"--> ...
绛旓細ASP杩炴帴Access鏁版嵁搴 < dim conn,mdbfile mdbfile=server.mappath("鏁版嵁搴撳悕绉.mdb")set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=鏁版嵁搴撳瘑鐮;dbq="&mdbfile > ASP涓嶴QL鏁版嵁搴撹繛鎺ワ細< dim conn set conn=server....
绛旓細鎴戜滑瑕佸仛鐨鏄缓绔嬩竴涓access鏁版嵁搴撹矾寰勭粦瀹氬拰鍒涘缓access鏁版嵁搴撶殑鎿嶄綔锛岄氬父鎯呭喌涓嬶紝鎴戜滑缃戠珯寮鍙戣呰閬靛惊涓绉嶄範鎯拰瑙勮寖锛屽嵆锛屽皢杩欎釜杩炴帴鏁版嵁搴撶殑绋嬪簭鏀惧湪鍗曠嫭鐨勪竴涓.asp鏂囦欢閲岋紝浠ヤ究鐢ㄤ簬浠婂悗鐨勫娆¤皟鐢紙鍥犱负鏁版嵁搴撳湪寰堝鎯呭喌涓嬬敤鍒帮紝杩欐牱鍋氭彁楂樻晥鐜囷級.銆婃楠や竴銆 涓嬮潰锛屾垜浠垱寤轰竴涓枃鏈枃妗ｏ紙.txt锛夛紝...
绛旓細绗笁琛岀▼搴忥細鍒╃敤杩炴帴瀵硅薄Conn鐨Open鏂规硶鎵撳紑涓涓寚瀹氱殑鏁版嵁搴撱傚洜涓烘垜浠鎵撳紑鐨勬槸Aess鏁版嵁搴擄紝鎵浠ヨ鎸囧畾ODBC椹卞姩绋嬪簭鍙傛暟锛岃〃绀鸿閫忚繃Aess鐨凮DBC椹卞姩绋嬪簭鏉ヨ闂暟鎹簱锛歞river={MicrosoftAessDriver(*.mdb)};銆傚彟涓涓弬鏁癲bq=&DbPath锛岃繍绠楀悗绛夋晥浜巇bq=Server.MapPath(鏁版嵁搴撳悕),鏄埄鐢ㄤ簡绗竴琛岀殑Server...
绛旓細1銆佹暟鎹簱杩炴帴锛堝锛歝onn.asp锛夛細< Set conn = Server.CreateObject("ADODB.Connection")conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\鏁版嵁搴撹矾寰刓鏁版嵁搴.mdb")> 2銆佹崋缁戞暟鎹簱锛氬湪姣忎釜椤甸潰缁戝畾conn.asp <!--#include file=conn.asp--> 2銆佽鍙栨暟鎹〃...
