منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - مشكلة في تعديل البيانات باستخدام جملة update

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

ياشباب عندي مشكلة بسيطة ولكن الأمور تعقدت بعض الشيء
يوجد عندي جدول وأريد أن أعدل عليه من خلال تكست بوكس وكلما أردت التعديل تظهر عبارة ( خطأ في بناء جملة 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 هو حقل رقم وليس نص
آسف على الاطالة

دمتم بود

تفضل أخي

PHP كود :

Dim cmdupdate As New OleDbCommand("update std_Tables set counter= @counter where id_Number = " & DataGridView1.Rows(0).Cells(1).Value, con)
        cmdupdate.Parameters.Add(New OleDbParameter("@counter", OleDbType.Integer)).Value = TextBox2.Text
        cmdupdate.ExecuteNonQuery()
        con.Close() 

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

آسف لإزعاجك
دمت بود

هذه جملة تعديل كبيرة جداً اتمنى تفيدك بشيء
بيها هواي تعديلات (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(str, con)
                    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 

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

جرّب أخي الكريم إضافة عبارة 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)(

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

جيولوجي مبتدئ

larbihamri

جيولوجي مبتدئ

علي بنيان

عبد العزيز البسكري