tik_tak
شنبه 18 خرداد 1387, 17:56 عصر
<html>
<head>
<meta http-equiv="Content-Language" content="fa">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
dim co,co_str
set co=Server.CreateObject("ADODB.Connection")
co_str="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("ex_data_base\data2.mdb")
co.open(co_str)
dim rec,sql
set rec=Server.CreateObject("ADODB.Recordset")
sql="select * from jname"
rec.open sql,co
DO while NOT rec.EOF
response.write rec("fname")
response.write rec("lname")
response.write rec("id")
rec.movenext
loop
rec.Close
Set rec = Nothing
co.Close
Set co= Nothing
%>
</body>
</html>
فولدر ex_data_base
داخلش فایل اکسس data2.mdb
و جدول jname
ولی ارور میده :افسرده:
<head>
<meta http-equiv="Content-Language" content="fa">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
dim co,co_str
set co=Server.CreateObject("ADODB.Connection")
co_str="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("ex_data_base\data2.mdb")
co.open(co_str)
dim rec,sql
set rec=Server.CreateObject("ADODB.Recordset")
sql="select * from jname"
rec.open sql,co
DO while NOT rec.EOF
response.write rec("fname")
response.write rec("lname")
response.write rec("id")
rec.movenext
loop
rec.Close
Set rec = Nothing
co.Close
Set co= Nothing
%>
</body>
</html>
فولدر ex_data_base
داخلش فایل اکسس data2.mdb
و جدول jname
ولی ارور میده :افسرده: