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

رسالة خطأ حيرتني !! ( asp )

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

أعزائي ..

أنا أعمل في مشروع صغير .. وواجهتني العديد من المشاكل والأخطاء واستطعت تجاوزها بسلام ..

انقطعت فترة ثم عدت لمشروع آخر ..

وأثناء عملي .. ظهرت هذه الرسالى التي تُفيد بوجود خطأ !!

وبصراحة احترت في أمر هذه الرسالة .. لأني متأكد من سلامة الكود ..

كما أني لم استطع فهم هذا الخطأ !!

لا أخفيكم .. ضاع الكثير من وقتي .. وأنا أنتظر الحل ..

فهل من صديق ؟!

أتمنى

______________

الرسالة :

eror type :

Microsft JET Database Engin (0x80004005)

يجب أن تستخدم العملية استعلام قابل للتحديث

........

والخطأ في كود إضافة بيانات للقاعدة عن طريق نموذج ..

انتظر المساعدة . . .

#2

ممكن تحط كود الربط مع قاعدة البيانات

#3

<%@ Language=VBScript CodePage = "1256"%>

<%

add_dat = now()

subj = request.form ("subj")

body = request.form ("body")

pic = request.form ("pic")

If subj="" or body="" then

response.write "

" & "لم تقم بإدخال جميع الحقول المطلوبة.. من فضلك اضغط زر عودة في متصفحتك وقم بإدخال جميع الحقول"

Else

addSQL= " insert into base2 (add_dat,subj,bodyl,pic) values ('"&add_dat&"','"&subj&"','"&body&"','"&pic&"') "

ADO.execute(addSQL)

response.redirect "news.asp"

End if

ADO.close

Set ADO=Nothing

%>

#4

اقصد كود الربط الموجود في connection.txt

#5

<%

Dim ConnectionString

Dim ADO

ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("col.mdb")

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

ADO.ConnectionString =ConnectionString

ADO.Open

%>

#6

مرحبا ضع بدل من الجملة( add_dat =( now هذه الجملة ( add_dat =( dat

وإن لم تكن هذه هي المشكلة أرجوا أن تقوم بإرفاق الصفحة لكي أرى ما هو سبب الخطأ.

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

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