الكناني.com
01-11-2005, 01:06 PM
انا عندي مشكلة في مادة برمجة انترنت متقدمة(برمجة 2) انا صممت جدول قاعدة بيانات على الأكسس بعدين صممت كودaspx وهذا الكود يقوم عند استعراض الصفحه بإستدعاء قاعدة البيانات ويعرض اول سجل فيها وحاولت اعدل في الكود عشان يعرض جميع السجلات الموجودة في القاعدة بس لم اتوصل إلى حل فأرجو منكم المساعده.... وشكراً
هذا الكود الذي صممت:
<body>
<%
dim conn as oledbconnection
dim SQL as string
dim R
dim txtcomm as oledbcommand
conn = new oledbconnection
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("mydb1.mdb")& ";"
conn.open
SQL="select table1.ename, table1.empno from table1;"
txtcomm= new oledbcommand (SQL,conn)
R= txtcomm.executereader
if R.read then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="50%">
<p align="center">الرقم</td>
<td width="50%">
<p align="center">الأسم</td>
</tr>
<tr>
<td width="50%">
<p align="center"><%=R("empno")%></td>
<td width="50%">
<p align="center"><span lang="en-us"><% =R("ename")%></span></td>
</tr>
</table>
<br>
<% else response.write("No Data")
R.close
conn.close
R=nothing
txtcomm=nothing
end if
%>
</body>
هذا الكود الذي صممت:
<body>
<%
dim conn as oledbconnection
dim SQL as string
dim R
dim txtcomm as oledbcommand
conn = new oledbconnection
conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("mydb1.mdb")& ";"
conn.open
SQL="select table1.ename, table1.empno from table1;"
txtcomm= new oledbcommand (SQL,conn)
R= txtcomm.executereader
if R.read then
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="50%">
<p align="center">الرقم</td>
<td width="50%">
<p align="center">الأسم</td>
</tr>
<tr>
<td width="50%">
<p align="center"><%=R("empno")%></td>
<td width="50%">
<p align="center"><span lang="en-us"><% =R("ename")%></span></td>
</tr>
</table>
<br>
<% else response.write("No Data")
R.close
conn.close
R=nothing
txtcomm=nothing
end if
%>
</body>