تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اسباب ظهور رسالة الخطأ
#1
السلام عليكم ورحة الله وبركاته

عند تعبئة كامل الحقول في البرنامج والظغط على زر حفظ تظهر رسالة الخطأ التالية :



[CODE][HTML]Sub getschoolName()
Dim showsql1 As String = "select * from info0 where schoolid = '" & Me.lblPass.Text & "' "
Dim counter1 As Integer = 1

connection.Open()
Dim cmd1 As New OleDbCommand(showsql1, connection)
Dim dtrlist11 As OleDbDataReader = cmd1.ExecuteReader

While dtrlist11.Read
Dim itemlist As New ListItem

If IsDBNull(dtrlist11.Item("schoolname")) Then 'اسم المدرسة'
Me.txt1.Text = ""
Else
itemlist.Text = dtrlist11.Item("schoolname")
Me.txt1.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("schooladdress")) Then 'عنوانها'
Me.txt2.Text = ""
Else
itemlist.Text = dtrlist11.Item("schooladdress")
Me.txt2.Text = itemlist.Text

End If
'*******************


If IsDBNull(dtrlist11.Item("schoolphone")) Then 'هاتف'
Me.txt3.Text = ""
Else
itemlist.Text = dtrlist11.Item("schoolphone")
Me.txt3.Text = itemlist.Text

End If
'*******************


If IsDBNull(dtrlist11.Item("schoolmobile")) Then 'جوال'
Me.txt4.Text = ""
Else
itemlist.Text = dtrlist11.Item("schoolmobile")
Me.txt4.Text = itemlist.Text

End If
'*******************
' المديرة'
If IsDBNull(dtrlist11.Item("managername")) Then 'جوال''
Me.txt5.Text = ""
Else
itemlist.Text = dtrlist11.Item("managername")
Me.txt5.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("managermobile")) Then 'جوال'
Me.txt6.Text = ""
Else
itemlist.Text = dtrlist11.Item("managermobile")
Me.txt6.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("assist1name")) Then 'الوكيلة1'
Me.txt7.Text = ""
Else
itemlist.Text = dtrlist11.Item("assist1name")
Me.txt7.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("assist1mobile")) Then 'جوال'
Me.txt8.Text = ""
Else
itemlist.Text = dtrlist11.Item("assist1mobile")
Me.txt8.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("noorpersonnelname")) Then 'مسئول نور'
Me.txt9.Text = ""
Else
itemlist.Text = dtrlist11.Item("noorpersonnelname")
Me.txt9.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("noorpersonnelmobile")) Then ' جوال'
Me.txt10.Text = ""
Else
itemlist.Text = dtrlist11.Item("noorpersonnelmobile")
Me.txt10.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("numberoflabs")) Then 'عدد معامل الحاسب'
Me.txt11.Text = ""
Else
itemlist.Text = dtrlist11.Item("numberoflabs")
Me.txt11.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("compteacher")) Then 'معلم حاسب'
Me.txt12.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteacher")
Me.txt12.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("compteachermobile")) Then 'جوال'
Me.txt13.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteachermobile")
Me.txt13.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("compteacher1")) Then '1معلم حاسب'
Me.txt14.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteacher1")
Me.txt14.Text = itemlist.Text

End If
'*******************


If IsDBNull(dtrlist11.Item("compteacher1mobile")) Then 'جوال'
Me.txt15.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteacher1mobile")
Me.txt15.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("compteacher2")) Then 'معلم حاسب'
Me.txt16.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteacher2")
Me.txt16.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("compteacher2mobile")) Then 'جوال'
Me.txt17.Text = ""
Else
itemlist.Text = dtrlist11.Item("compteacher2mobile")
Me.txt17.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("numberofresources")) Then 'غرف المصادر'
Me.txt18.Text = ""
Else
itemlist.Text = dtrlist11.Item("numberofresources")
Me.txt18.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("resourcesname")) Then 'مسئول المصادر'
Me.txt19.Text = ""
Else
itemlist.Text = dtrlist11.Item("resourcesname")
Me.txt19.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("resourcesmobile")) Then 'جوال'
Me.txt20.Text = ""
Else
itemlist.Text = dtrlist11.Item("resourcesmobile")
Me.txt20.Text = itemlist.Text

End If
'*******************

If IsDBNull(dtrlist11.Item("guard1name")) Then 'الحارس1'
Me.txt21.Text = ""
Else
itemlist.Text = dtrlist11.Item("guard1name")
Me.txt21.Text = itemlist.Text

End If
'*******************


If IsDBNull(dtrlist11.Item("guard1phone")) Then 'جوال'
Me.txt22.Text = ""
Else
itemlist.Text = dtrlist11.Item("guard1phone")
Me.txt22.Text = itemlist.Text
End If
'*******************
If IsDBNull(dtrlist11.Item("assist2name")) Then 'الوكيلة2'
Me.Txt23.Text = ""
Else
itemlist.Text = dtrlist11.Item("assist2name")
Me.Txt23.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("assist2mobile")) Then 'الجوال'
Me.Txt24.Text = ""
Else
itemlist.Text = dtrlist11.Item("assist2mobile")
Me.Txt24.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("Science labs")) Then 'عدد معامل العلوم'
Me.txt25.Text = ""
Else
itemlist.Text = dtrlist11.Item("Science labs")
Me.txt25.Text = itemlist.Text
End If

'*******************
If IsDBNull(dtrlist11.Item("lab1year")) Then 'سنة التركيب1'
Me.Txt26.Text = ""
Else
itemlist.Text = dtrlist11.Item("lab1year")
Me.Txt26.Text = itemlist.Text
End If
'*******************


If IsDBNull(dtrlist11.Item("lab1area")) Then ' مساحة1'
Me.Txt27.Text = ""
Else
itemlist.Text = dtrlist11.Item("lab1area")
Me.Txt27.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("Devices1num")) Then ' عدد الأجهزة1'
Me.Txt28.Text = ""
Else
itemlist.Text = dtrlist11.Item("Devices1num")
Me.Txt28.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("lab2year")) Then ' سنة التركيب2'
Me.Txt31.Text = ""
Else
itemlist.Text = dtrlist11.Item("lab2year")
Me.Txt31.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("lab2area")) Then 'مساحة2'
Me.Txt32.Text = ""
Else
itemlist.Text = dtrlist11.Item("lab2area")
Me.Txt32.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("Devices2num")) Then 'عدد الأجهزه2'
Me.Txt33.Text = ""
Else
itemlist.Text = dtrlist11.Item("Devices2num")
Me.Txt33.Text = itemlist.Text
End If
'*******************


If IsDBNull(dtrlist11.Item("guard2name")) Then 'الحارس2'
Me.Txt35.Text = ""
Else
itemlist.Text = dtrlist11.Item("guard2name")
Me.Txt35.Text = itemlist.Text
End If
'*******************

If IsDBNull(dtrlist11.Item("guard2phone")) Then 'جوال2'
Me.Txt36.Text = ""
Else
itemlist.Text = dtrlist11.Item("guard2phone")
Me.Txt36.Text = itemlist.Text
End If
'******************
If IsDBNull(dtrlist11.Item("building")) Then 'المبنى'
Me.Txt37.Text = ""
Else
itemlist.Text = dtrlist11.Item("building")
Me.Txt37.Text = itemlist.Text
End If
'******************
If IsDBNull(dtrlist11.Item("buildingtype")) Then 'نوع المبنى'
Me.Txt38.Text = ""
Else
itemlist.Text = dtrlist11.Item("buildingtype")
Me.Txt38.Text = itemlist.Text
End If
'******************
If IsDBNull(dtrlist11.Item("FloorsNum")) Then 'عدد الطوابق'
Me.Txt39.Text = ""
Else
itemlist.Text = dtrlist11.Item("FloorsNum")
Me.Txt39.Text = itemlist.Text
End If
'******************
If IsDBNull(dtrlist11.Item("Squares")) Then 'الساحات'
Me.Txt40.Text = ""
Else
itemlist.Text = dtrlist11.Item("Squares")
Me.Txt40.Text = itemlist.Text
End If
'******************
If IsDBNull(dtrlist11.Item("SquaresNum")) Then 'عددالساحات'
Me.Txt41.Text = ""
Else
itemlist.Text = dtrlist11.Item("SquaresNum")
Me.Txt41.Text = itemlist.Text
End If
'******************

If IsDBNull(dtrlist11.Item("Type1")) Then 'نوع الأجهزة 1'
Me.Txt42.Text = ""
Else
itemlist.Text = dtrlist11.Item("Type1")
Me.Txt42.Text = itemlist.Text
End If

'******************

If IsDBNull(dtrlist11.Item("Type2")) Then 'نوع الأجهزة 2'
Me.Txt43.Text = ""
Else
itemlist.Text = dtrlist11.Item("Type2")
Me.Txt43.Text = itemlist.Text
End If

'******************


End While
dtrlist11.Close()
connection.Close()
End Sub


Protected Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim UpdStudentState1 As String = "update info0 set schoolname=@schoolname, schooladdress=@schooladdress, schoolphone=@schoolphone, schoolmobile=@schoolmobile, building=@building,buildingtype=@buildingtype,FloorsNum=@FloorsNum, Squares=@Squares, SquaresNum=@SquaresNum, managername=@managername, managermobile=@managermobile, assistname=@assistname, assistmobile=@assistmobile, noorpersonnelname=@noorpersonnelname, noorpersonnelmobile=@noorpersonnelmobile, numberoflabs=@numberoflabs,lab1year=@lab1year, lab1area=@lab1area, Devices1num=@Devices1num, Type1=@Type1, lab2year=@lab2year, lab2area=@lab2area,Devices2num=@Devices2num, Type2=@Type2, compteacher1=@compteacher1, compteacher1mobile=@compteacher1mobile, compteacher2=@compteacher2, compteacher2mobile=@compteacher2mobile, compteacher3=@compteacher3, compteacher3mobile=@compteacher3mobile, numberofresources=@numberofresources, resourcespersonnel=@resourcespersonnel, resourcesmobile=@resourcesmobile, guardname=@guardname, guardphone=@guardphone where schoolid= '" & Me.lblPass.Text & "'"
Dim cmdUpdStdStat1 As New OleDbCommand(UpdStudentState1, connection)


'المدرسة'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolname", Me.txt1.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schooladdress", Me.txt2.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolphone", Me.txt3.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolmobile", Me.txt4.Text))
'المبنى'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@building", Me.Txt37.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@buildingtype", Me.Txt38.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@FloorsNum", Me.Txt39.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Squares", Me.Txt40.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@SquaresNum", Me.Txt41.Text))

'المديرة'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@managername", Me.txt5.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@managermobile", Me.txt6.Text))
'الوكيلة'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist1name", Me.txt7.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist1mobile", Me.txt8.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist2name", Me.Txt23.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist2mobile", Me.Txt24.Text))
'مسئول نور'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@noorpersonnelname", Me.txt9.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@noorpersonnelmobile", Me.txt10.Text))

'معامل'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@sciencelabs", Me.txt25.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@numberoflabs", Me.txt11.Text))

cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab1year", Me.Txt26.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab1area", Me.Txt27.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Devices1num", Me.Txt28.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Type1", Me.Txt42.Text))


cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab2year", Me.Txt31.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab2area", Me.Txt32.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Devices2num", Me.Txt33.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Type2", Me.Txt33.Text))
'معلم الحاسب'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher", Me.txt12.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteachermobile", Me.txt13.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher1", Me.txt14.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher1mobile", Me.txt15.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher2", Me.txt16.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher2mobile", Me.txt17.Text))
'المصادر'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@numberofresources", Me.txt18.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@resourcesname", Me.txt19.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@resourcesmobile", Me.txt20.Text))
'الحارس'
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard1name", Me.txt21.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard1phone", Me.txt22.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard2name", Me.Txt35.Text))
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard2phone", Me.Txt36.Text))




connection.Open()
cmdUpdStdStat1.ExecuteNonQuery()
connection.Close()


Me.lblResult.Text = "لقد تم حفظ البيانات بنجاح "
Me.lblResult.Visible = True

Catch ex As OleDbException
' Utilities.CreateMessageAlert(Me, "يوجد خطأ: اتصل بمسؤول البرنامج", "strkey")'
MsgBox(ex.Message)
connection.Close()
Exit Sub
End Try
End Sub[/HTML][/CODE
]

[/align] أرجو تفسير سبب حدوث هذا الخطأ بالرغم من تعريف جميع الحقول في كتابة الكود
الرد }}}}
تم الشكر بواسطة:
#2
صديقي عليك التأكد من عدد الحقول في قاعدة البيانات و عدد البراميترز المدخلة و عدد القيم المراد ادخالها الى فاعدة البيانات
Everyone is a genius. It's just that some people are too stupidto realize it
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم

بعد التأكد من عدد الحقول والباراميترات ظهرت
رسالة الخطأ ( خطأ في عبارة جملة updat )

فأرجو الإطلاع على الكود واكتشاف الخطأ حيث عجزت عن اكتشافة


PHP كود :
Dim UpdStudentState1 As String UpdStudentState1 "Update info0 set schoolname=@schoolname, schooladdress=@schooladdress, schoolphone=@schoolphone, schoolmobile=@schoolmobile, building=@building, buildingtype=@buildingtype, FloorsNum=@FloorsNum, Squares=@Squares, SquaresNum=@SquaresNum, managername=@managername, managermobile=@managermobile, assist1name=@assist1name, assist1mobile=@assist1mobile, assist2name=@assist2name, noorpersonnelname=@noorpersonnelname, noorpersonnelmobile=@noorpersonnelmobile, Science labs=@Science labs, numberoflabs=@numberoflabs, lab1year=@lab1year, lab1area=@lab1area, Devices1num=@Devices1num, Type1=@Type1, lab2year=@lab2year, lab2area=@lab2area, Devices2num=@Devices2num, Type2=@Type2, compteacher=@compteacher, compteachermobile=@compteachermobile, compteacher1=@compteacher1, compteacher1mobile=@compteacher1mobile, compteacher2=@compteacher2, compteacher2mobile=@compteacher2mobile, numberofresources=@numberofresources, resourcesname=@resourcesname, resourcesmobile=@resourcesmobile, guardname=@guardname, guardphone=@guardphone, guard1name=@guard1name, guard1phone=@guard1phone where schoolid= '" Me.lblPass.Text "'"
            
Dim cmdUpdStdStat1 As New OleDbCommand(UpdStudentState1connection)


            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolname"Me.txt1.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schooladdress"Me.txt2.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolphone"Me.txt3.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@schoolmobile"Me.txt4.Text))
           
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@building"Me.Txt37.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@buildingtype"Me.Txt38.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@FloorsNum"Me.Txt39.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Squares"Me.Txt40.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@SquaresNum"Me.Txt41.Text))

            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@managername"Me.txt5.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@managermobile"Me.txt6.Text))
          
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist1name"Me.txt7.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist1mobile"Me.txt8.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist2name"Me.Txt23.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@assist2mobile"Me.Txt24.Text))
            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@noorpersonnelname"Me.txt9.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@noorpersonnelmobile"Me.txt10.Text))

          
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Science labs"Me.txt25.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@numberoflabs"Me.txt11.Text))

            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab1year"Me.Txt26.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab1area"Me.Txt27.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Devices1num"Me.Txt28.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Type1"Me.Txt42.Text))


            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab2year"Me.Txt31.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@lab2area"Me.Txt32.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Devices2num"Me.Txt33.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@Type2"Me.Txt43.Text))
            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher"Me.txt12.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteachermobile"Me.txt13.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher1"Me.txt14.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher1mobile"Me.txt15.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher2"Me.txt16.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@compteacher2mobile"Me.txt17.Text))
            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@numberofresources"Me.txt18.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@resourcesname"Me.txt19.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@resourcesmobile"Me.txt20.Text))
            
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guardname"Me.txt21.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guardphone"Me.txt22.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard1name"Me.Txt35.Text))
            
cmdUpdStdStat1.Parameters.Add(New OleDbParameter("@guard1phone"Me.Txt36.Text))




            
connection.Open()
            
cmdUpdStdStat1.ExecuteNonQuery()

            
Me.lblResult.Text "لقد تم حفظ البيانات بنجاح "
            
Me.lblResult.Visible True
            connection
.Close()
        Catch 
ex As OleDbException
            
' Utilities.CreateMessageAlert(Me, "يوجد خطأ: اتصل بمسؤول البرنامج", "strkey")'
            
MsgBox(ex.Message)
          
connection.Close() 

بارك الله فيكم
الرد }}}}
تم الشكر بواسطة:
#4
اخي في المثال الذي بعثته لك من فترة على الخاص هناك موجودة عملية Update صحيحة .. يرجى الاطلاع عليها وشوف ايش الخطأ عندك
Everyone is a genius. It's just that some people are too stupidto realize it
الرد }}}}
تم الشكر بواسطة:
#5
المشكلة أنه تم تغيير على قاعدة البيانات حيث أنه أستخدمنا جدول واحد جمعنا فيه جميع الحقول المطلوبة وعند استخدامي لجملة update التي بعثتها لجدول واحد كما هو في الكود ايضا يظهر نفس المسج .
الرد }}}}
تم الشكر بواسطة:
#6
ارفق المثال
Everyone is a genius. It's just that some people are too stupidto realize it
الرد }}}}
تم الشكر بواسطة:
#7
تم رفع ملف المشروع على الخاص
الرد }}}}
تم الشكر بواسطة:
#8
الله يكون بعونكم ...بما انه تم التغيير بمصدر البيانات لما لا تنشيء جملة استعلام من الصفر ؟ قد يكون متعب لكن افضل.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  رسالة جوال+سيرفر+asp.net = تقرير لصاحب العمل أبو عمر 8 174 25-09-16, 02:03 PM
آخر رد: أبو عمر
  مشكلة رسالة loding في التقارير فانتسي ارت 11 827 09-10-14, 01:08 AM
آخر رد: فانتسي ارت
  رسالة خطأ عند تجربة الموقع على الاستضافة m.program 1 423 21-06-13, 07:17 PM
آخر رد: سعود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم