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

طالب في احة لمساعدة

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

لدي مشكلة في هذا الكود ارجو منكم المساعدة 

<%



strconnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Trim(Server.MapPath ("airlinesdb")) & "db1.mdb;Persist Security Info=False"



Public sub InsertDb(SQLCommand)

      Set con = Server.CreateObject ("ADODB.connection")

  con.open strconnection

  con.Execute SQLCommand

  con.Close

  set con = nothing

end sub





if Request.Form("SAVEZ1")<>"" then SaveZ1



Public sub SaveZ1

  

  PERMITNR = "('" & Request.Form("t1")  & "',"

  NAMECOM = "'" & Request.Form("t1") & "',"

  MONTH2 = cint(Request.Form("t2")) & ","

  DAY2 = cint(Request.Form("t3")) & ","

  YEAR2 = cint(Request.Form("t4")) & ","

  TYPETHE = "'" & Request.Form("t5") & "',"

  REGAC = "'" & Request.Form("t6") & "',"

  

  RAIDCS = "'" & Request.Form("t7") & "',"

  ROUTING = "'" & Request.Form("t8") & "',"

  

  PURPOSEFLT = "'" & Request.Form("t9") & "',"

  

  ORDERTYPE = "'" & Request.Form("t11") & "',"

  

  ENTRYPOINT = cint(Request.Form("t12")) & ","

  ENTRYTIMING = "'" & Request.Form("t13") & "',"

  

  NOTES = "'" & Request.Form("t15") & "')"

  

    SQLCommand="INSERT INTO F1 ( PERMITNR, NAMECOM, MMONTH,DDAY,YYEAR, TYPETHE, REGAC, RAIDCS, ROUTING, PURPOSEFLT, ORDERTYPE, ENTRYPOINT, ENTRYTIMING, NOTES) VALUES "

    SQLCommand=SQLCommand & PERMITNR &  NAMECOM &  MONTH2 & DAY2 & YEAR2 &  TYPETHE & REGAC &  RAIDCS &  ROUTING & PURPOSEFLT & ORDERTYPE & ENTRYPOINT & ENTRYTIMING & NOTES

    InsertDb(SQLCommand)

    

  

  if Request.Form("R1")="V2" then

   SQLCommand="INSERT INTO F2 ( PERMITNR, ETA, ETD) VALUES "

   SQLCommand=SQLCommand & PERMITNR & ENTRYPOINT & ENTRYTIMING 

   InsertDb SQLCommand

  end if  

  

end sub



%>

هذا له علاقة بمشروع تخرج وارجو الرد في اقرب وقت مازال لدي 5 ايام

#2

أخي ياريت تكتب رسالة الخطأ علشان نساعدك باذن الله

You can fly while you can touch the sky

#3

بسم الله الرحمن الرحيم

أخي الكريم شكراً لك على اهتمامك . أما عن رسالة الخطأ المشكلة لم تظهر لي أي رسالة خطأ. باختصار عند الضغط على button savez1 من المفترض ان يتم تخزين القيم التي ادخلتها الى قاعدة البيانات لكن الذي يحدث هو عدم ظهور رسالة خطأ ولا يتم تخزين اي شئ في قاعدة البيانات.

#4

ما هي ال form method التي استخدمتها.... لانه في بعض الاحيان تكون get في حين انك تستخدم request.form مما يؤدي لضياع البيانات تماما

#5

طيب شوف .. اسنخدم هذه الطريقة لادخال بيانات لجدول :

 SQL="SELECT * FROM F1"

 Set rs=createObject("ADODB.RecordSet")

 rs.open SQL,connObj,3,3



 rs.AddNew

       PERMITNR=PERMITNR   ' request.Form("fieldName")

       .

       .

       .

  rs.Update

ان شاء الله راح تحل المشكلة معك .. طبعا هنا استخدمنا ال ADO بدل ال SQL لادخال البيانات ..

You can fly while you can touch the sky

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

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