當前位置:首頁 » 數據倉庫 » 網頁與access資料庫連接
擴展閱讀
硬碟通電壽命 2022-07-02 00:32:20
固態硬碟4k對齊工具 2022-07-02 00:31:11

網頁與access資料庫連接

發布時間: 2022-05-24 13:18:30

❶ 網頁如何連接到ACCESS 資料庫

有五種方法:
第一種 - 這種方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

第二種-這種方法用在sql SERVER中多
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;" _
&"UID=LoginID;Password=;DATABASE=Database_Name"
set conn = server.createobject("adodb.connection")
conn.open strconn

第三種
strconn="Driver={Microsoft Access Driver(*.mdb)};" _
&"DBQ=F:\Inetpub\wwwroot\somedir\db1.mdb;DefaultDir=" _
&"f:\Inetpub\wwwroot\somedir;uid=LoginID;" _
&"pwd=Password;DriverId=25;FIL=MSAccess;"
set conn = server.createobject("adodb.connection")
conn.open strconn

第四種運用系統數據源
The following uses a Data Source Name: Example
set conn = server.createobject("adodb.connection")
conn.open "Example"

第五種運用ODBC數據源,前提是你必須在控制面板的ODBC中設置數據源
set rs = server.createobject("adodb.recordset")
rs.open "tblname", "DSNName", 3, 3 第一種 - 這種方法用在ACCESS中最多
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("aspfree.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

自己試試吧!!!

❷ 網頁與ACCESS資料庫如何實現數據交互

您好,我是玵羽薇 。希望能幫到您。其實就是ASP與資料庫的連接,在資料庫中讀取、添加、刪除數據。 1.與Access資料庫建立連接: <% Dim conn Set conn=Server.CreateObject("ADODB.Connection") conn.ConnectionString="Driver={MicroSoft Access Driver (*.mdb) };Dbq="&Server.MapPath("Name.mdb") conn.Open %> 其中"&Server.MapPath("Name.mdb")為資料庫絕對路徑,&Server.MapPath()即返回當前伺服器的絕對地址,Name.mdb就是資料庫的名稱。 到這里,我們已經建立的與資料庫的連接了,意思說,我們已經取得了與資料庫的聯系,下一步,我們就用指令來—— 2.從資料庫中讀取數據記錄: <% Dim rs Set rs=conn.Execute("Select * From Name") //讀取 Response.Write rs("Lable") //輸出,默認為rs("Lable")欄位的第一個記錄。 %> 其中rs("Lable")便是代表當前記錄的Lable欄位值,也就是當前記錄的編號。 這樣可以遍歷資料庫輸出: <% Dim rs Set rs=conn.Execute("Select * From Name") Do while not rs.eof Response.Write rs("Lable1") Response.Write rs("Lable2") ... rs.MoveNext //調用記錄集rs對象的MoveNext方法,可以將記錄指針向下移動一條記錄 Loop %> 關閉資料庫以釋放內存: <% conn.Close Set conn=Nothing %> 3.寫入資料庫: <% Dim sql //這里時關鍵語句了,插入數據為什麼值全靠這個SQL語句 sql="Insert Into Name(Lable1,Lable2,...) Values("&Data1&","&Data2&",...)" //插入新的記錄 conn.Execute(sql) %> 其中Insert Into Name(Lable1,Lable2,...) Values("&Data1&","&Data2&",...)就是將記錄Data1、Data2等插入到Lable1、Lable2等欄位中。 以上內容參考了: http://thefeeling.rknw.com/blogview.asp?logID=57&cateID=1 謝謝採納

❸ 網頁鏈接ACCESS資料庫方法

給你一段代碼,連接一個Access資料庫,添加、查詢、修改、刪除,在一個頁面都搞定。

<%

'作用:
Sub Aerlt_Redirect(msg,url)
Dim t
t = "<script>"
t = t & "alert('" & msg & "');"
t = t & "location.href='" & url & "';"
t = t & "</script>"
Response.write t
End Sub

'作用:
Dim sql,conn,rs,connstr,dbpath
Set conn=Server.CreateObject("adodb.connection")
Set rs=Server.CreateObject("adodb.recordset")
dbpath="./adoAll.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mapPath(dbpath)
conn.connectionstring=connstr

%>

<html>
<head>
<title>ado全功能測試</title>
<script type="text/javascript">
<!--
function checkForm()
{
var u_name=document.f.u_name.value;
var u_pass1=document.f.u_pass1.value;
var u_pass2=document.f.u_pass2.value;
var u_email=document.f.u_email.value;
var u_birth=document.f.u_birth.value;
if (u_name.length<3)
{
alert("用戶名不得少於3個字母!");
document.f.u_name.focus();
return false;
}
//...
return true;
}
function myDo(f,act)
{
var frm=eval("document." + f);
frm.act.value=act;
frm.submit();
}
//-->
</script>
</head>
<body>
<%
Dim act
act=Trim(request.Form("act"))
Select Case act

Case "new"
u_name=Trim(Request.Form("u_name"))
u_pass1=Trim(Request.Form("u_pass1"))
u_pass2=Trim(Request.Form("u_pass2"))
u_email=Trim(Request.Form("u_email"))
u_birth=Trim(Request.Form("u_birth"))
u_sex=Trim(Request.Form("u_sex"))
'作用:
If Len(u_name)<3 Then
Response.write "用戶名不得少於3個字母!"
Response.End
End If
'....
'作用:
'sql="insert into [member](u_name,u_pass,...) values('" & u_name & "','" & u_pass & "','..."
'conn.open
'conn.execute sql

sql="select top 1 * from [member]"
conn.open
rs.open sql,conn,1,3
rs.Addnew
rs("u_name")=u_name
rs("u_pass")=u_pass1
rs("u_email")=u_email
rs("u_birth")=u_birth
rs("u_sex")=u_sex
rs.update
rs.close
conn.close
Call Aerlt_Redirect("添加成功!","adoAll.asp")

Case "mdf"
u_id=Trim(Request.Form("u_id"))
u_name=Trim(Request.Form("u_name"))
u_pass=Trim(Request.Form("u_pass"))
u_email=Trim(Request.Form("u_email"))
u_birth=Trim(Request.Form("u_birth"))
u_sex=Trim(Request.Form("u_sex"))
'作用:
If Len(u_name)<3 Then
Response.write "用戶名不得少於3個字母!"
Response.End
End If
If Not IsNumeric(u_id) Then
Response.write "u_id格式錯誤"
Response.End
End If
'....
'作用:
sql="select top 1 * from [member] where u_id=" & u_id
conn.open
rs.open sql,conn,1,3
'If Not rs.eof Then rs.delete
rs("u_name")=u_name
rs("u_pass")=u_pass
rs("u_email")=u_email
rs("u_birth")=u_birth
rs("u_sex")=u_sex
rs.update
rs.close
conn.close
Call Aerlt_Redirect("修改成功!","adoAll.asp")

'作用:
Case "del"
u_id=Trim(Request.Form("u_id"))
sql="delete * from [member] where u_id=?"
conn.open
Set c=Server.CreateObject("adodb.command")
with c
Set .ActiveConnection=conn
.CommandText=sql
.CommandType=1
.Parameters.Append .CreateParameter("u_id",3,1,4,u_id)
.Execute
Set .ActiveConnection=Nothing
End with
conn.close
Call Aerlt_Redirect("刪除成功!","adoAll.asp")

'作用:
Case "search"
u_name=Trim(Request.Form("u_name"))
u_sex=Trim(Request.Form("u_sex"))
'...
If u_name<>"" Then
ext=" and [u_name]='" & u_name & "'"
End If
If u_sex<>"" Then
ext=ext & " and [u_sex]=" & u_sex
End If
sql="select * from [member] where 1=1 " & ext
sql=sql & " order by u_id "
session("sql")=sql

Case Else
If session("sql")="" Then
sql="select * from [member] order by u_id "
session("sql")=sql
End If

End Select

%>

<form name="f" method="post" action="?" onsubmit="return checkForm()">
<input type="hidden" name="act" value="new">
<table>
<tr>
<td>注冊用戶名:</td>
<td><input type="text" name="u_name" /></td>
</tr>
<tr>
<td>密碼:</td>
<td><input type="password" name="u_pass1" /></td>
</tr>
<tr>
<td>確認密碼:</td>
<td><input type="password" name="u_pass2" /></td>
</tr>
<tr>
<td>郵箱:</td>
<td><input type="text" name="u_email" /></td>
</tr>
<tr>
<td>性別:</td>
<td><input type="radio" name="u_sex" value="1" checked />男
<input type="radio" name="u_sex" value="0" />女</td>
</tr>
<tr>
<td>生日:</td>
<td><input type="text" name="u_birth" /></td>
</tr>
<tr>
<td colspan="2"><input type="submit" value="注冊" /></td>
</tr>
</table>
</form>

<form method="post" action="?">
<input type="hidden" name="act" value="search">
<table>
<tr>
<td>用戶名:<input type="text" name="u_name" size="10" /></td>
<td>性別:<select name="u_sex">
<option value="" selected="selected">選擇性別</option>
<option value="0">女</option>
<option value="1">男</option>
</select></td>
<td><input type="submit" value="查詢" /></td>
</tr>
</table>
</form>

<%
If session("sql")="" Then Response.End
conn.open
rs.open session("sql"),conn,1,1
If Not rs.eof Then
%>
<table>
<tr>
<td>ID</td>
<td>用戶名</td>
<td>密碼</td>
<td>郵箱</td>
<td>性別</td>
<td>出生日期</td>
<td>修改</td>
<td>刪除</td>
</tr>
<%
Dim iCnt
Do While Not rs.Eof
iCnt=iCnt+1
%>
<form method="post" action="?" name="f<%=iCnt%>">
<input type="hidden" name="act" value="">
<input type="hidden" name="u_id" value="<%=rs("u_id")%>">
<tr>
<td><%=rs("u_id")%></td>
<td><input type="text" name="u_name" value="<%=rs("u_name")%>" /></td>
<td><input type="text" name="u_pass" value="<%=rs("u_pass")%>" /></td>
<td><input type="text" name="u_email" value="<%=rs("u_email")%>" /></td>
<td><select name="u_sex">
<option value="0" <%If rs("u_sex")="0" Then Response.write " selected"%>>女</option>
<option value="1" <%If rs("u_sex")="1" Then Response.write " selected"%>>男</option>
</td>
<td><input type="text" name="u_birth" value="<%=rs("u_birth")%>" /></td>
<td><input type="button" value="修改" onclick="myDo('f<%=iCnt%>','mdf')" /></td>
<td><input type="button" value="刪除" onclick="myDo('f<%=iCnt%>','del')" /></td>
</tr>
</form>
<%
rs.MoveNext
Loop
%>
</table>
<%
End If
rs.close : conn.close
%>
</body>
</html>

❹ 怎麼將access資料庫嵌入網頁裡面

不能把資料庫嵌入網頁,只能通過連接資料庫,對資料庫進行操作。 如果用ASP,連接的代碼如下: <% set adocon=Server.Createobject("adodb.connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("資料庫文件的相對路徑及文件名") adocon.open connstr %> 然後使用這個連接對象就行了。 看你說的都是外行話,建議你仔細查查相關資料吧,別人即使把源碼給你,給你講解,你沒有基礎也是不行,也未必完全符合你的要求,你還要修改。

❺ 網頁與資料庫ACCESS怎麼連接

<%
'================================================================================================================
dim conn
dim connstr
dim db
db="admin/#data/%98data.mdb" '資料庫文件位置

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.commandtimeout=20
conn.open ConnStr
'If Err Then
'err.Clear
'Set Conn = Nothing
'Response.Write "<br><br><br><br><br><br><br><div align='center'>資料庫連接出錯!請檢查連接資料庫的參數及字元串設置是否正確!</div>"
'Response.End
'End If
'-----------------------------------------------------------------------------------------------------
'-----------------------------------------------------------------------------------------------------

'為了系統的安全,直接在有資料庫連接的地方都加上SQL注入的免疫
'自定義需要過濾的字串,用 "|" 分隔
Fy_In = "'| ; | and | or | exec | insert | select | delete | update | count | * | % |chr(| char(| mid | master | truncate | declare "
'----------------------------------
Fy_Inf = split(Fy_In,"|")
If Request.QueryString<>"" Then
For Each Fy_Get In Request.QueryString
For Fy_Xh=0 To Ubound(Fy_Inf)
If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then
'--------寫入資料庫----------頭-----
conn.Execute("insert into web_errlog(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','GET','"&Fy_Get&"','"&replace(Request.QueryString(Fy_Get),"'","''")&"')")
'--------寫入資料庫----------尾-----
response.redirect("/Error.html")
response.end
End If
Next
Next
End If

❻ 動態網頁連資料庫access的詳細過程

常用資料庫語句

1.SELECT 語句:命令資料庫引擎從資料庫里返回信息,作為一組記錄。
2.INSERT INTO 語句:添加一個或多個記錄至一個表。
3.UPDATE 語句:創建更新查詢來改變基於特定準則的指定表中的欄位值。
4.DELETE 語句:創建一個刪除查詢把記錄從 FROM 子句列出並符合 WHERE 子句的一個或更多的表中清除。
5.EXECUTE 語句:用於激活 PROCEDURE(過程)

用 ASP 來做一個自己的通訊錄練練手吧……

一、建立資料庫:

用 Microsoft Access 建立一個名為 data.mdb 的空資料庫,使用設計器創建一個新表。輸入以下幾個欄位:

欄位名稱數據類型說明其它
ID自動編號數據標識欄位大小:長整型新值:遞增索引:有(無重復)
username文本姓名預設值
usermail文本E-mail預設值
view數字查看次數欄位大小:長整型默認值:0索引:無
indate時間日期加入時間預設值

保存為 data.mdb 文件,為了便於說明,只是做了一個比較簡單的庫。

二、連接資料庫

方法1:
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

方法2:
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")

注意:一個頁面中,只要連接一次就可以了,資料庫使用完後要及時關閉連接。
conn.Close
Set conn = Nothing

三、添加新記錄到資料庫

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

username = "風雲突變"
usermail = "[email protected]"
indate = Now()

sql = "insert into data (username,usermail,indata) values('"&username&"','"&usermail&"','"&indate&"')"
conn.Execute(sql)

conn.Close
Set conn = Nothing

說明:建立資料庫連接;通過表單獲取姓名、E-mail 字元串,Now()獲取當前時間日期;使用 insert into 語句添加新記錄;conn.Execute 來執行;最後關閉。

四、選擇資料庫里的記錄

1.選擇所有記錄的欄位(按記錄倒序排序):sql = "select * from data order by ID desc"
2.選擇所有記錄的姓名和E-mail欄位(不排序):sql = "select username,usermail from data"
3.選擇姓名為「風雲突變」的所有記錄:sql = "select * from data where username='"風雲突變"'"
4.選擇使用 163 信箱的所有記錄(按查看次數排序):sql = "select * from data where usermail like '%"@163.com"%' order by view desc"
5.選擇最新的10個記錄:sql = "select top 10 * from data order by ID desc"

SQL 語句已經知道了,不過在Web應用時,還得創建一個 RecordSet 對象得到記錄集,才能把從資料庫里取出的值應用在網頁上,如果現在將所有的記錄顯示在網頁上就這樣:

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

sql = "select * from data"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

Do While Not rs.Eof
Response.Write "<p>姓名:"& rs("username") &"E-mail:"& rs("usermail") &"查看:"& rs("view") &"次"& rs("indate") &"加入</p>"
rs.MoveNext
Loop

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing

說明:建立資料庫連接;創建 rs 得到記錄集;循環顯示記錄,rs.Eof 表示記錄末,rs.MoveNext 表示移到下一個記錄;最後關閉。

五、修改(更新)資料庫記錄

修改記錄的E-mail:

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

ID = 1
usermail = "[email protected]"

sql = "update data set usermail='"&usermail&"' where ID="&CInt(ID)
conn.Execute(sql)

conn.Close
Set conn = Nothing

說明:建立資料庫連接;獲取記錄ID、新 E-mail 字元串;使用 update 語句修改記錄;conn.Execute 來執行;最後關閉。
如果使記錄的查看值加1,則:sql = "update data set view=view+1 where ID="&CInt(ID)

六、刪除資料庫記錄

刪除某一條記錄:

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")

ID = 1

sql = "delete from data where ID="&CInt(ID)
conn.Execute(sql)

conn.Close
Set conn = Nothing

說明:建立資料庫連接;獲取記錄ID;使用 delete 語句刪除記錄;conn.Execute 來執行;最後關閉。
刪除多條記錄為:sql = "delete from data where ID in (ID1,ID2,ID3)"
刪除所有記錄為:sql = "delete from data"

❼ 怎樣將Acess資料庫與網頁連接起來,用代碼怎麼寫

資料庫的連接方法:
1.
Access資料庫
的DSN-less連接方法:
set
adocon=Server.Createobject("adodb.
connection
")
adoconn.Open"Driver={Microsoft
Access
Driver(*.mdb)};DBQ="&
_
Server.MapPath("資料庫所在路徑")
2.Access
OLE
DB連接方法:
set
adocon=Server.Createobject("adodb.connection")
adocon.open"Provider=Microsoft.Jet.OLEDB.4.0;"&
_
"Data
Source="
&
Server.MapPath("資料庫所在路徑")
3.SQL
server連接方法:
set
adocon=server.createobject("adodb.recordset")
adocon.Open"Driver={SQL
Server};Server=(Local);UID=***;PWD=***;"&
_
"database=資料庫名;"
4.SQL
server
OLE
DB連接方法:
set
adocon=Server.Createobject("adodb.connection")
adocon.open"provider=SQLOLEDB.1;Data
Source=RITANT4;"&
_
"user
ID=***;Password=***;"&
_
"inital
Catalog=資料庫名"

❽ 網頁里怎麼連接ACCESSS資料庫、

是ACCESS資料庫的話,默認的資料庫尾綴是.mdb
格式的
就在程序裡面。
找到程序裡面的conn.asp文件來編輯,連接資料庫的路徑就可以了!

❾ html頁面中如何連接access資料庫

你必須在DW裡面把網頁存為ASP或者PHP才可以採用動態資料庫更新數據 要把站點修改一下 然後
在dreamwave用代碼或者在面板裡面的資料庫創建連接
ASP代碼是<%%
dim conn
dim db
db="admin/database/Enterprise.mdb" //你的文件路徑下面的資料庫,具體你自己替換
set conn=Server.CreateObject("adodb.connection")
conn.provider="Microsoft.jet.oledb.4.0;Data source=" & Server.MapPath(db)
conn.open

sub CloseConn()
conn.close
set conn=nothing
end sub
%>%>
創建好連接後創建記錄集和SQL COMMAND對象就可以連接上了
<%
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from wo where 表格裡面的欄位='"&indexAD_ID&"' "//我是你的資料庫里德表格名稱 自己在資料庫裡面建好
rs.open sql,conn,1,1
%>
然後你只要在那個位置輸入<%indexAD_id%>就可以了 只要連接資料庫成功之後 其他就很方便 不過這要有點ADO基礎 你好好找找資料試驗下吧

❿ 網站與ACCESS資料庫如何連接

做一個「conn.asp」文件,每次連接資料庫時候都調用這個文件即可
<%
response.buffer=true '啟用緩沖處理
dim conn,db
dim connstr
db="%%%%%%%%%%%%.mdb"'資料庫鏈接路徑
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "資料庫連接出錯,請檢查資料庫連接文件中的資料庫參數設置。"
Response.End
End If
sub Chkhttp()
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 or server_v1="" or server_v1="" then
response.Charset="utf-8"
response.write("<script>alert('錯誤:禁止從站點外部提交數據!.')</script>")
response.end
end if
end sub
%>