[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 فقام بالحفط والتعديل لكن الصنف مكرر لا يقوم بتعديل الكود فقط بل يضيف صنف جديد

[asemshahen5]

أريد أن أسألك هل يجوز تعديل كود الصنف الذي تبحث به في إستعلام التعديل Update t1 Set [code]=@code:

عدل استعلام ليكون كالتالي :

PHP كود :

strqury = "Update t1 Set [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" 


[atef_020]

(27-02-19, 04:37 PM)asemshahen5 كتب : أريد أن أسألك هل يجوز تعديل كود الصنف الذي تبحث به في إستعلام التعديل Update t1 Set [code]=@code:

عدل استعلام ليكون كالتالي :

PHP كود :

strqury = "Update t1 Set [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" 


طيب اخى الكريم اريد تعديل كود الصنف ماذا افعل
ارسلت لحضرتك رابط المشروع على هذا الرابط

[حريف برمجة]

كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

[asemshahen5]

كود الصنف يجب ان يكون كود مميز لا يجوز تعديله مثله كثل الباركود .

إذا أردت تعديله تعدله من نافذة أصناف أما إذا أردت تعديل الصنف في نافذة الفواتير عليك أولا وضع كود بحث لتثبت الصنف الجديد في الجدول أو في صناديق النص ثم تقوم بعملية الحفظ بدلالة رقم الفاتورة .

---

(27-02-19, 05:11 PM)حريف برمجة كتب : كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

أنظر كود استعلام التعديل ستفهم ما أريد قوله يعدل كود الصنف أول الاستعلام 

PHP كود :

Update t1 Set [code]=@code 


و يبحث عنه في نهاية الاستعلام :

PHP كود :

where [code]=@code 


[atef_020]

(27-02-19, 05:11 PM)حريف برمجة كتب : كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

(27-02-19, 05:13 PM)asemshahen5 كتب : كود الصنف يجب ان يكون كود مميز لا يجوز تعديله مثله كثل الباركود .

إذا أردت تعديله تعدله من نافذة أصناف أما إذا أردت تعديل الصنف في نافذة الفواتير عليك أولا وضع كود بحث لتثبت الصنف الجديد في الجدول أو في صناديق النص ثم تقوم بعملية الحفظ بدلالة رقم الفاتورة .

---

(27-02-19, 05:11 PM)حريف برمجة كتب : كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

أنظر كود استعلام التعديل ستفهم ما أريد قوله يعدل كود الصنف أول الاستعلام 

PHP كود :

Update t1 Set [code]=@code 


و يبحث عنه في نهاية الاستعلام :

PHP كود :

where [code]=@code 


يوجد اصناف بكود معين ممكن الشركة تقوم بتغيير كود الصنف الى كود مختلف فى هذه الحالة كيف اغير هذا الكود الى الكود الجديد

---

(27-02-19, 05:22 PM)atef_020 كتب :

(27-02-19, 05:11 PM)حريف برمجة كتب : كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

(27-02-19, 05:13 PM)asemshahen5 كتب : كود الصنف يجب ان يكون كود مميز لا يجوز تعديله مثله كثل الباركود .

إذا أردت تعديله تعدله من نافذة أصناف أما إذا أردت تعديل الصنف في نافذة الفواتير عليك أولا وضع كود بحث لتثبت الصنف الجديد في الجدول أو في صناديق النص ثم تقوم بعملية الحفظ بدلالة رقم الفاتورة .

---

(27-02-19, 05:11 PM)حريف برمجة كتب : كود الصنف لا يتم تعديله لأنه هو الشرط اذا وجده يعدل باقي السجلات بموجب كود الصنف

وإذا لم يجده يضيف كود الصنف مع باقي السجلات .

أنظر كود استعلام التعديل ستفهم ما أريد قوله يعدل كود الصنف أول الاستعلام 

PHP كود :

Update t1 Set [code]=@code 


و يبحث عنه في نهاية الاستعلام :

PHP كود :

where [code]=@code 


يوجد اصناف بكود معين ممكن الشركة تقوم بتغيير كود الصنف الى كود مختلف فى هذه الحالة كيف اغير هذا الكود الى الكود الجديد

هل الاستعلام كدة صح ولا غلط 

PHP كود :

"select * from T1 where CODE='" & Me.T1.Text & "'" 


ولا دة 

PHP كود :

"select * from T1 where CODE='" & Me.T4.Text & "'" 


   

[حريف برمجة]

صحيح كود الصنف لا يحفظ يدوي بل تلقائي ،، ايضاً لا يتم تعديله في حالة التعديل ،،

ولكن الأخ في تطبيقه يدخله يدوي بمعنى غير تلقائي .

اذا اردت تعديل كود الصنف يجب إضافة حقل وليكن باسم (ItemID) يكون ترقيم تلقائي .

وفي عملية تعديل كود الصنف في جملة التعديل يكون كالتالي :

كود :

update t1 set...…………… where ItemID = @ItemID

[atef_020]

(27-02-19, 06:02 PM)حريف برمجة كتب : صحيح كود الصنف لا يحفظ يدوي بل تلقائي ،، ايضاً لا يتم تعديله في حالة التعديل ،،

ولكن الأخ في تطبيقه يدخله يدوي بمعنى غير تلقائي .

اذا اردت تعديل كود الصنف يجب إضافة حقل وليكن باسم (ItemID) يكون ترقيم تلقائي .

وفي عملية تعديل كود الصنف في جملة التعديل يكون كالتالي :

كود :

update t1 set...…………… where ItemID = @ItemID

يتم تعديل كل شى بطريقة صحيحة الا الكود اذا قمت بتغيير الكود يضيف صنف جديد بنفس بيانات الصنف القديم

[ابراهيم ايبو]

السلام عليكم اخوتي الكرام

اتوجه بجزيل الشكر والامتنان الى اخواي : حريف برمجة - عاصم شاهين ماشاء الله بالكم طويل وصبركم ليس له حدود

اخوتي اريد لفت انتباهكم الى ان بعض الاخوة يحبون وجود مثال لتترسخ المعلومة لديهم لذلك استأذنكم واستميحكم 

عذرا باني عملت مثال ارفقه لعله يفي بالغرض دمتم جميعا بكل خير 

أخي عاطف يجب ان يكون لديك حقل id

[atef_020]

اشكر كل السادة الافاضل وكل من ساعدنى لتوضيح الفكرة واشكرك على سعة صدركم الاساتذة

princelovelorn , asemshahen5 , حريف برمجة,  ابراهيم ايبو ,  khodor1985  , [b]boudyonline[/b]