ورود

View Full Version : اتصال به Access با استفاده ASP


fateme_shourabi
سه شنبه 12 دی 1385, 23:51 عصر
با سلام وعرض ادب
من می خوام که توی front page از ASP استفاده کنم برای اتصال به بانک Access
من این کدها رونوشتم ولی هیچ کاری نمی کنه
ممنون میشم کمکم کنید

<%
optino explicit
dim strconnect
%>
<!-- #incoude file ="datastor.asp" -->
<html dir="rtl">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ADO Recordset Object</title>
</head>

<body>
<%
const adopenforwardonly=0
const adlockreadonly=1
const adcmdtable=2
dim objconn,objrs,strconn
strconn=driver="{microsoft access driver(*.mdb)};
dbq=D:\Documents and Settings\Fateme\Desktop\fmehr\database\db1.mdb"
dim adopen forwardonly,adlockreadonly,adcmdtabel
set objconn=server.createobject("adodb.connection")
objconn.open strconn
set objrs = server.createobject("adodb.recordset")
objrs.open "ozv",objconn
while not objrs.eof
response.write objrs.fields("name")&","
objrs.movenext
wend
objrs.close
objconn.close
set objrs=nothing
%>

</body>

</html>
shahroozj
چهارشنبه 13 دی 1385, 08:36 صبح
ایا در جدول ozv رکوردی وجود دارد ؟
ایا error میدهد ؟ یا هیچی نشان نمی دهد؟
چک کنید ببینید اصلا داخل حلقه می شود
fateme_shourabi
چهارشنبه 13 دی 1385, 16:20 عصر
بله داخل جدول رکورد دارم واطلاعات هم وجود دارد
نه Error نمی دهد و هیچی نیز نشان نمی دهد
راستش من تازه کارم نمی دونم که چطور باید چک کنم؟؟
ممنونم کمکم کنید
M-Gheibi
چهارشنبه 13 دی 1385, 22:37 عصر
کد شما بیشتر از آنکه ایراد فنی داشته باشد ، اشتباهات املایی دارد . در زیر ایرادات رو به ترتیب ذکر می کنم و در انتها کد اصلاح شده رو قرار می‌دهم‌ :
1. منظور از

optino explicitعبارت

option explicitاست که برنامه‌نویس را ملزم به اعلان نمودن متغیرها پیش از استفاده از آنها می‌کند .

2. در ابتدای کد ، عبارت

dim strconnectنوشته شده در حالیکه در ادامه برنامه از متغیر strconn استفاده شده است . البته از آنجایی که در ادامه برنامه در قطعه کد زیر مجدداً به تعریف متغیر فوق اقدام کرده‌اید ، این خط کد را حذف می‌کنیم .

dim objconn,objrs,strconn3. برای برقراری ارتباط با بانک‌اطلاعاتی کد زیر نوشته شده است :

strconn=driver="{microsoft access driver(*.mdb)};
dbq=D:\Documents and Settings\Fateme\Desktop\fmehr\database\db1.mdb"که صحیح آن به این شکل است :

strconn="driver={microsoft access driver (*.mdb)};dbq=D:\Documents and Settings\Fateme\Desktop\fmehr\database\db1.mdb;"4. در ابتدای کد شما ثابت‌ها ( constants ) ی adopenforwardonly ، adlockreadonly و adcmdtable مقداردهی شده‌اند . اگرچه می‌توان برای ارتباط با بانک‌های اطلاعاتی از این ثابت‌ها بهره برد ولی همانطور که مشاهده می‌کنید در هیچ بخشی از کد برنامه ، از آنها استفاده نشده است . لذا نیازی به وجود سه خط کد زیر نخواهد بود :

const adopenforwardonly=0
const adlockreadonly=1
const adcmdtable=2
5. حتی اگر قطعه کد شماره 4 نیز حذف نشده بود ، نیازی به اعلان ( declare ) مجدد متغیرها نبود . لذا کد زیر نیز باید حذف شود ( یک فاصله اضافی نیز در این خط وجود داشت ! ) :

dim adopenforwardonly,adlockreadonly,adcmdtabelنها تاً کد اصلاح شده به این شکل خواهد بود :

<%
option explicit

%>
<!-- #incoude file ="datastor.asp" -->
<html dir="rtl">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>ADO Recordset Object</title>
</head>

<body>
<%
dim objconn,objrs,strconn
strconn="driver={microsoft access driver (*.mdb)};dbq=D:\Documents and Settings\Fateme\Desktop\fmehr\database\db1.mdb;"

set objconn=server.createobject("adodb.connection")
objconn.open strconn
set objrs = server.createobject("adodb.recordset")
objrs.open "ozv",objconn
while not objrs.eof
response.write objrs.fields("name")&","
objrs.movenext
wend
objrs.close
objconn.close
set objrs=nothing
%>

</body>

</html>البته در این پست صرفاً به تصحیح کد نوشته شده پرداختم و از توضیح در مورد خطاهای احتمالی به علت وجود فایل include شده در ابتدای کد و همچنین بحث در مورد نحوه ارتباط به بانک صرف نظر کردم .

موفق باشید
fateme_shourabi
چهارشنبه 13 دی 1385, 23:02 عصر
با سلام
خیلی ممنون از توجه ولطف شما بزرگوار
راستش اگه برام توضیح بدین ممنون میشم
من کدهای اصلاح شده ی شما رو نوشتم ولی بازم هیچی نشون نمی ده
نمی دونم چرا؟؟؟
خیلی ممنون میشم بازم کمکم کنید
M-Gheibi
چهارشنبه 13 دی 1385, 23:18 عصر
توضیح بخش‌های نادرست رو که در بالا دادم ، اینکه می‌فرمایید کار نمیکند جای تعجب داره ! من نمونه برنامه رو پیوست کردم ، این رو هم تست کنید و ببینید کار میکند یا نه .