-
ارتباط asp وaccess
با سلام.
در مثال زير چگونه ميتوانم ارتباط asp و access را برقرار كنم.
در اين مثال ار يك فايل فرم (html) , يك فايل الصاقي (asp) استفاده كرده ام.
فرم:
[HTML]
<html dir="rtl">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<title>New Page 2</title>
</head>
<body>
<table border="1" width="100%" id="table1">
<tr>
<td>
<form method="POST" action="aspacc.asp">
<table border="1" width="100%" id="table2">
<tr>
<td width="537">
<p align="left"><input type="text" name="T1" size="20"></td>
<td>
<p align="left"><span lang="en-us">:number</span></td>
</tr>
</table>
<table border="1" width="100%" id="table3">
<tr>
<td width="535">
<p align="left"><input type="text" name="T2" size="20"></td>
<td>
<p align="left"><span lang="en-us">:name</span></td>
</tr>
</table>
<table border="1" width="100%" id="table4">
<tr>
<td width="535">
<p align="left"><input type="text" name="T3" size="20"></td>
<td>
<p align="left"><span lang="en-us">:courses</span></td>
</tr>
<tr>
<td width="535">
<p align="left"><input type="text" name="T4" size="20"></td>
<td>
<p align="left"><span lang="en-us">:average</span></td>
</tr>
<tr>
<td width="535">
<p align="left"><input type="text" name="T5" size="20"></td>
<td>
<p align="left"><span lang="en-us">:units</span></td>
</tr>
</table>
<p align="center"> </p>
<p align="center"><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
<p align="center"> </p>
</form>
<p> </td>
</tr>
</table>
</body>
</html>
[/HTML]
وفايل الصاقي asp:
کد:
<%@ language=vbscript%>
<% imports system.data%>
<% imports system.data.oledb%>
<% dim ds as new dataset
dim strsql as string
dim strcon as string
dim da as oledbdataadapter
dim con as oledbconnection
dim newrow as datarow
dim cb as oledbcommandbuilder
strcon="provider=microsoft.jet.oledbconnection;data source="D:\saeid1\mesal\access\db1.mdb""
strsql="select * from table3"
con=new oledbconnection(strcon)
con.open()
da = new oledbdataadapter(strsql,con)
da.fill(ds,"table3")
newrow=ds.tables("table3").newrow()
newrow("sd")=val(t1.text)
newrow("name")=val(t2.text)
newrow("rt")=val(t3.text)
newrow("md")=val(t4.text)
newrow("tv")=val(t5.text)
ds.tables("table3").rows.add(newrow)
cb=mew oledbcommandbuilder(da)
da.insertcommand=cb.getinsertcommand()
da.update(ds,"table3")
con.close()
t1.text=""
t2.text""
t3.text""
t4.text""
t5.text""
%>
