الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

خطأ في كود ASP

مغلق
بدأه SoSo_s في 25 مارس 2003 · 5 رد · 773 مشاهدة · في منتدى تصميم صفحات الويب
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله

لدي سؤال وهو عبارة عن مشكلة في تنفيذ الكود التالي : 

<%

	Dim OConn1

	Dim ORS5



	Set OConn1=Server.CreateObject("ADODB.Connection")

	Set ORS5=Server.CreateObject("ADODB.Recordset")





	strSource="Provider=Microsoft.Jet.OLEDB.3.51"

	strSource= strSource & "; Data Source=C:InetpubwwwrootAdvertisementAdRotator.mdb"

	OConn1.connectionString= strSource

	OConn1.Open

	ORS5.Open "banners;", OConn1

	ORS5.MoveFirst





	Do While NOT ORS5.EOF

  Response.Write ORS5("bName")

  Response.Write "<BR>"

  ORS5.MoveNext

	Loop





	ORS5.Close

	Set ORS5=nothing  



	OConn1.Close

	Set OConn1=nothing

%>

أردت في هذا الكود استخدام الـ provider بدلاً من الـ driver لعمل connection لقاعدة البيانات .. لكن الخطأ التالي كان يظهر :

Error Type:

Microsoft JET Database Engine (0x80004005)

The Microsoft Jet database engine cannot open the file 'C:InetpubwwwrootAdvertisementAdRotator.mdb'. It is already opened exclusively by another user, or you need permission to view its data.

/Advertisment/ConnectionObjectDSN-Less.asp, line 22

عدلت في تصريحات الملف ولكن بلا جدوى فما التعديلات المطلوبة بالتحديد ؟

نظام التشغيل لدي Win XP و أستخدم Access 2002 .. فربما المشكلة متعلقة بهما ؟ لأني لا أستطيع أيضاً عمل UpDate من اضافة وحذف وتعديل بيانات لقاعدة البيانات بواسطة ASP & ADO

سأكون شاكرة جداً لمن يساعدني في حل هذه المشكلة التي تعبت في البحث عن حلٍ لها في الكثير من المواقع الإنجليزية ولكن بدون نتيجة .. وأتمنى أن أجدها في موقعكم :)

#2

لا مجيب ؟

#4

شكراً لك على المساعدة :)

لكن لم تكن قاعدة البيانات مفتوحة أبداً

#5

جربى هذه الطريقة بدلا من طريقتك ربما تعمل

   Set cn = CreateObject("ADODB.Connection")

          cn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" & _

          Server.MapPath("database.mdb"))

          sql="Select * from students_table " 

   Set rs=CreateObject("ADODB.recordset")

          rs.open sql, cn, 3 , 3

تمناتى بالتوفيق

Prince of egypt Home page
#6

مع تغيير اسم قاعدة

البيانات والجداول

حسب ما عندك

Prince of egypt Home page

هذا الموضوع مغلق.

مواضيع مشابهة