تقييم الموضوع :
  • 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)(

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [كود] كتابه نص وحفظه & كود تعديل كلمه السر محمد مسافر 6 123 منذ 3 ساعة مضت
آخر رد: محمد مسافر
  مشكلة في التعريفات بسام محمدغانم 5 79 منذ 7 ساعة مضت
آخر رد: kiki
  [VB.NET] مشكلة فى إضافة حقول جديدة فى جدول موجود freehego 11 194 منذ 7 ساعة مضت
آخر رد: asemshahen5
  مشكلة بعد نقل مكان المشروع بسام محمدغانم 1 43 , 01:41 PM
آخر رد: Jounior_P
  ماهي طريقة سحب الصورة من الكاميرا مباشرة إلى قاعدة البيانات جيولوجي مبتدئ 0 34 16-02-20, 11:29 AM
آخر رد: جيولوجي مبتدئ
  مشكلة في الداتا جريد bassant 4 129 12-02-20, 03:15 PM
آخر رد: alsalamoni
  [VB.NET] تقنية MVC باستخدام لغة vb.net abu ammar 0 58 11-02-20, 05:07 PM
آخر رد: abu ammar
  [VB.NET] تعديل بسيط في الطباعة المباشرة فقط ReportViewer sniperjawadino 21 5,581 10-02-20, 09:14 PM
آخر رد: إغتراب
  حفظ صورة علي الجهاز متخزنة في قاعدة البيانات BIT (تم حل المشكلة) محمدالزند 1 93 07-02-20, 04:01 AM
آخر رد: محمدالزند
  مشكلة عند عمل run لل project bassant 0 70 04-02-20, 12:44 PM
آخر رد: bassant

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


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