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


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










Dim cmdupdate As New OleDbCommand






cmdupdate.Connection = con






If DataGridView1.Rows.Count > 0 Then




con.Open()




cmdupdate.CommandText = "update std_Tables set counter = '" & TextBox2.Text & "' where id_Number = '" & DataGridView1.Rows(0).Cells(1).Value & "'"






cmdupdate.ExecuteNonQuery

con.close

()


علماً أن الحقل counter هو حقل رقم وليس نص
آسف على الاطالة

دمتم بود
الرد }}}
تم الشكر بواسطة:
#2
تفضل أخي

PHP كود :
Dim cmdupdate As New OleDbCommand("update std_Tables set counter= @counter where id_Number = " DataGridView1.Rows(0).Cells(1).Valuecon)
 
       cmdupdate.Parameters.Add(New OleDbParameter("@counter"OleDbType.Integer)).Value TextBox2.Text
        cmdupdate
.ExecuteNonQuery()
 
       con.Close() 
الرد }}}
#3
السلام عليكم ورحمة الله وبركاته
أخي ألف شكر لك أخي larbihamri ولكن تظهر لي جملة عدم تطابق في المعايير ولا أدري ماهو السبب

آسف لإزعاجك
دمت بود
الرد }}}
تم الشكر بواسطة:
#4
هذه جملة تعديل كبيرة جداً اتمنى تفيدك بشيء
بيها هواي تعديلات (TextBox,CheckBox) وغيرها
PHP كود :
Dim str As String
                    str 
"update Section1 set [SaftyCheckName] ='" TxtSaftyCheckName.Text "',
                                  [SaftyCheckDate] ='" 
TxtSaftyCheckDate.Text "',
                                  [SaftyCheckDateLSA] =" 
ChkSaftyCheckDateLSA.Checked ",
                                  [SaftyCheckOpen] ='" 
TxtSaftyCheckOpen.Text "',
                                  [SaftyCheckQuality] =" 
ChkSaftyCheckQuality.Checked ",
                                  [ReasonREMOVALTAGFITTED] =" 
ChkReasonREMOVALTAGFITTED.Checked ",
                                  [ReasonREF] ='" 
TxtReasonREF.Text "',
                                  [ReasonFAILEDTOOPEN] =" 
ChkReasonFAILEDTOOPEN.Checked ",
                                  [ReasonFAILEDTOCLOSE] =" 
ChkReasonFAILEDTOCLOSE.Checked ",
                                  [ReasonTHROUGH] =" 
ChkReasonTHROUGH.Checked ",
                                  [ReasonEXTERNALLEAKAGE] =" 
ChkReasonEXTERNALLEAKAGE.Checked ",
                                  [ReasonDIFFICULTTOOPERATION] =" 
ChkReasonDIFFICULTTOOPERATION.Checked ",
                                  [ReasonEXTERNALCORROSION] =" 
ChkReasonEXTERNALCORROSION.Checked ",
                                  [ReasonLine] =" 
ChkReasonLine.Checked ",
                                  [ReasonValveSpec] =" 
ChkReasonValveSpec.Checked ",
                                  [ReasonNOTSPECIFIED] =" 
ChkReasonNOTSPECIFIED.Checked ",
                                  [ReasonOTHER] =" 
ChkReasonOTHER.Checked ",
                                  [ValveStatusNew] =" 
ChkValveStatusNew.Checked ",
                                  [ValveStatusUsedClean] =" 
ChkValveStatusUsedClean.Checked ",
                                  [ValveStatusUsedDirty] =" 
ChkValveStatusUsedDirty.Checked ",
                                  [ValveStatusPRESTRIPPED] =" 
ChkValveStatusPRESTRIPPED.Checked ",
                                  [ValveStatusREFURBISHED] =" 
ChkValveStatusREFURBISHED.Checked ",
                                  [ValveDetailsBALL] =" 
ChkValveDetailsBALL.Checked ",
                                  [ValveDetailsGATE] =" 
ChkValveDetailsGATE.Checked ",
                                  [ValveDetailsGLOBE] =" 
ChkValveDetailsGLOBE.Checked ",
                                  [ValveDetailsBUTTERFLY] =" 
ChkValveDetailsBUTTERFLY.Checked ",
                                  [ValveDetailsDOUBLEBB] =" 
ChkValveDetailsDOUBLEBB.Checked ",
                                  [ValveDetailsPLUG] =" 
ChkValveDetailsPLUG.Checked ",
                                  [ValveDetailsCHECK] =" 
ChkValveDetailsCHECK.Checked ",
                                  [ValveDetailsNEEDLE] =" 
ChkValveDetailsNEEDLE.Checked ",
                                  [ValveDetailsOTHER] ='" 
TxtValveDetailsOTHER.Text "',
                                  [ValveDetailsMANUFACTURER] ='" 
TxtValveDetailsMANUFACTURER.Text "',
                                  [ValveDetailsMANUFACTURERSTAG] =" 
ChkValveDetailsMANUFACTURERSTAG.Checked ",
                                  [ValveDetailsFIRESAFE] =" 
ChkValveDetailsFIRESAFE.Checked ",
                                  [ValveDetailsSIZE] ='" 
TxtValveDetailsSIZE.Text "',
                                  [ValveDetailsFB] =" 
ChkValveDetailsFB.Checked ",
                                  [ValveDetailsRB] =" 
ChkValveDetailsRB.Checked ",
                                  [ValveDetailsCLASS] ='" 
TxtValveDetailsCLASS.Text "',
                                  [ValveDetailsTYPEFIG] ='" 
TxtValveDetailsTYPEFIG.Text "',
                                  [ValveDetailsSERIALNO] ='" 
TxtValveDetailsSERIALNO.Text "',
                                  [ValveDetailsTAGNO] ='" 
TxtValveDetailsTAGNO.Text "',
                                  [ValveDetailsMODELNO] ='" 
TxtValveDetailsMODELNO.Text "',
                                  [ValveDetailsSERVICEFLUID] ='" 
TxtValveDetailsSERVICEFLUID.Text "',
                                  [ValveDetailsCETAGFITTED] =" 
ChkValveDetailsCETAGFITTED.Checked ",
                                  [ValveDetailsRAISEDFACE] =" 
ChkValveDetailsRAISEDFACE.Checked ",
                                  [ValveDetailsRINGGROOVE] =" 
ChkValveDetailsRINGGROOVE.Checked ",
                                  [ValveDetailsGRAYLOC] =" 
ChkValveDetailsGRAYLOC.Checked ",
                                  [ValveDetailsSCREWED] =" 
ChkValveDetailsSCREWED.Checked ",
                                  [ValveDetailsBUTT] =" 
ChkValveDetailsBUTT.Checked ",
                                  [ValveDetailsSOCKET] =" 
ChkValveDetailsSOCKET.Checked ",
                                  [ValveDetailsWECO] =" 
ChkValveDetailsWECO.Checked ",
                                  [ValveDetailsENDOTHER] ='" 
TxtValveDetailsENDOTHER.Text "',
                                  [ValveDetailsFLANGEALIGNMENT] ='" 
TxtValveDetailsFLANGEALIGNMENT.Text "',
                                  [ValveDetailsBODY] ='" 
TxtValveDetailsBODY.Text "',
                                  [ValveDetailsBONNET] ='" 
TxtValveDetailsBONNET.Text "',
                                  [ValveDetailsADAPTOR] ='" 
TxtValveDetailsADAPTOR.Text "',
                                  [ValveDetailsOBTURATOR] ='" 
TxtValveDetailsOBTURATOR.Text "',
                                  [ValveDetailsSEAT] ='" 
TxtValveDetailsSEAT.Text "',
                                  [ValveDetailsSTEM] ='" 
TxtValveDetailsSTEM.Text "',
                                  [ValveDetailsMeterOTHER] ='" 
TxtValveDetailsMeterOTHER.Text "',
                                  [ValveOperaterFITTED] =" 
ChkValveOperaterFITTED.Checked ",
                                  [ValveOperaterNOTFITTED] =" 
ChkValveOperaterNOTFITTED.Checked ",
                                  [ValveOperaterHANDLEVER] =" 
ChkValveOperaterHANDLEVER.Checked ",
                                  [ValveOperaterHANDWHEEL] =" 
ChkValveOperaterHANDWHEEL.Checked ",
                                  [ValveOperaterGEARBOX] =" 
ChkValveOperaterGEARBOX.Checked ",
                                  [ValveOperaterACTUATOR] =" 
ChkValveOperaterACTUATOR.Checked ",
                                  [ValveOperaterFAILOPEN] =" 
ChkValveOperaterFAILOPEN.Checked ",
                                  [ValveOperaterFAILCLOSE] =" 
ChkValveOperaterFAILCLOSE.Checked ",
                                  [ValveOperaterLOCKINGDEVICE] =" 
ChkValveOperaterLOCKINGDEVICE.Checked ",
                                  [ValveOperaterISASEPARATE] =" 
ChkValveOperaterISASEPARATE.Checked ",
                                  [ANYOTHERVALVEOPINFO] ='" 
TxtANYOTHERVALVEOPINFO.Text "',
                                  [ValveOperaterPREVIOUSUNIQUE] =" 
ChkValveOperaterPREVIOUSUNIQUE.Checked ",
                                  [ValveOperaterPRESTRIPDOWN] ='" 
TxtValveOperaterPRESTRIPDOWN.Text "',
                                  [VALVEOPERATINGCONDITIONS] ='" 
TxtVALVEOPERATINGCONDITIONS.Text "'
                                  where [ID] = " 
CInt(TxtID.Text)




 
                   Dim cmd As OleDbCommand = New OleDbCommand(strcon)
 
                   MsgBox("Update Success")

 
                   Try

                        Validate
()
 
                       DataAdapter.Update(DataSet1.Tables(0))
 
                       DataSet1.AcceptChanges()
 
                       cmd.ExecuteNonQuery()
 
                       cmd.Dispose()
 
                       DataAdapter.Fill(DataSet1"Section1")
 
                       Me.BindingContext(DataSet1"Section1").Position CInt(TxtID.Text)
 
                       ' count()

                        con.Close()
                    Catch ex As Exception
                        con.Close()
                        MsgBox(ex.Message)
                    End Try 

هذه الصورة توضيحية


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#5
جرّب أخي الكريم إضافة عبارة Val للتاكست رقم 2 بهذا السطر
كود :
     (cmdupdate.Parameters.Add(New OleDbParameter("@counter", OleDbType.Integer)).Value = Val(TextBox2.Text
أو بهذا الشكل مثلا ..
كود :
     cmdupdate.Parameters.Add(New OleDbParameter("@counter", OleDbType.Integer)).Value = Convert.ToInt32(TextBox2.Text)(

قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: علي بنيان



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


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