[atef_020]

(27-02-19, 03:57 PM)حريف برمجة كتب : اخي الواضح من سؤالك تريد زر الحفظ يعمل فحص اذا السجل موجود يقوم بالتعديل عليه وإذا لم يجد السجل يقوم بحفظه ،،

الحل انسخ الكود وجربه :

كود :

Dim cmd As OleDbCommand
       cmd.Connection = con

       Dim ret As Integer = (New OleDb.OleDbDataAdapter("SELECT code FROM t1 WHERE code='" & T4.Text & "'", con).Fill(New DataTable))

       Dim strqury As String

       If ret > 0 Then
           ' هنا يتم التعديل
           strqury = "Update t1 Set [code]=@code,[name]=@name,[cost]=@cost,[price]=@price,[supl]=@supl,[unit]=@unit,[Tax]=@Tax,[Ds]=@Ds,[Exper]=@Exper,[DateItem]=@DateItem,[DeprtNUM]=@DeprtNUM,[priceFtax]=@priceFtax,[Stock_ORD]=@Stock_ORD,[costFtax]=@costFtax,[Q_RAITAL]=@Q_RAITAL,[BOX]=@BOX,[COST_R]=@COST_R where [code]=@code"
       Else
           ' هنا يتم الحفظ
           strqury = "Insert into t1 ([code],[name],[cost],[price],[supl],[unit],[Tax],[Ds],[Exper],[DateItem],[DeprtNUM],[priceFtax],[Stock_ORD],[costFtax],[Q_RAITAL],[BOX],[COST_R])values(@code,@name,@cost,@price,@supl,@unit,@Tax,@Ds,@Exper,@DateItem,@DeprtNUM,@Stock_ORD,@priceFtax,@costFtax,@Q_RAITAL,@BOX,@COST_R)"
       End If

       cmd = New OleDb.OleDbCommand(strqury, con)
       cmd.Parameters.AddWithValue("@code", T4.Text)
       cmd.Parameters.AddWithValue("@name", T6.Text)
       cmd.Parameters.AddWithValue("@cost", T7.Text)
       cmd.Parameters.AddWithValue("@price", T8.Text)
       cmd.Parameters.AddWithValue("@supl", TextBox7.Text)
       cmd.Parameters.AddWithValue("@unit", ComboBox1.Text)
       cmd.Parameters.AddWithValue("@Tax", T16.Text)
       cmd.Parameters.AddWithValue("@Ds", T15.Text)
       cmd.Parameters.AddWithValue("@Exper", d2.Value.Date)
       cmd.Parameters.AddWithValue("@DateItem", t23.Value.Date)
       cmd.Parameters.AddWithValue("@DeprtNUM", TextBox15.Text)
       cmd.Parameters.AddWithValue("@Stock_ORD", T12.Text)
       cmd.Parameters.AddWithValue("@priceFtax", T20.Text)
       cmd.Parameters.AddWithValue("@costFtax", t19.Text)
       cmd.Parameters.AddWithValue("@Q_RAITAL", T9.Text)
       cmd.Parameters.AddWithValue("@BOX", T10.Text)
       cmd.Parameters.AddWithValue("@COST_R", T11.Text)
       cmd.Parameters.AddWithValue("@QTY", 0)
       con.Open()
       cmd.ExecuteNonQuery()
       MsgBox("تمت العملية بنجاح ", MsgBoxStyle.Information, "الاضافة")
       clear()
       con.Close()

[/code]
[/code]
[/code]

اشكرك اخى الكريم حريف برمجة على الرد ولكن يوجد مشكلة 
   
قمت بتعديل الى Dim cmd As new  OleDbCommand فقام بالحفط والتعديل لكن الصنف مكرر لا يقوم بتعديل الكود فقط بل يضيف صنف جديد