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

(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]

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

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

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

(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" 


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

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

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

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

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

---

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

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

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


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

(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 


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

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

ولا دة 

[attachment=21002]

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

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

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

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

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

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

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

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

كود :

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

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