تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] اريد التعديل على كود اضافة عنصر للداتا جريد مربوطة بقاعدة بيانات
#1
السلام عليكم

لدى زر اسمه اضافة صنف جديد

فلو سمحتم اريد تعديل هذا الكود

ويكون كود الحفظ لوحده وكود الاضافة لوحده

وشكرا لكم

PHP كود :
Private Sub SaveRecord()
        Try
            
con.Open()
            
sqlstr "Select * From tblInventory Where ItmID=@ItmID"
            
cmd = New OleDbCommand(sqlstrcon)
            
cmd.Parameters.Add("@ItmID"OleDbType.Integer).Value IIf(txtID.Text.Trim.Length 0System.DBNull.ValuetxtID.Text)

            If 
cmd.ExecuteScalar 0 Then
                sqlstr 
"Update tblInventory Set ItmName=@ItmName,ItmPrice=@ItmPrice,ItmIN=@ItmIN,ItmTotal=@ItmTotal,ItmOut=@ItmOut, " _
                         
"ItmRemain=@ItmRemain Where ItmID=@ItmID"
                
cmd = New OleDbCommand(sqlstrcon)
                
Dim Total As Integer Val(txtOut.Text) + Val(txtToOut.Text)
                
With cmd.Parameters
                    
.Add("@ItmName"OleDbType.VarWChar).Value IIf(txtItem.Text.Trim.Length 0System.DBNull.ValuetxtItem.Text)
                    .
Add("@ItmPrice"OleDbType.Integer).Value IIf(txtPrice.Text.Trim.Length 0System.DBNull.ValuetxtPrice.Text)
                    .
Add("@ItmIN"OleDbType.Integer).Value IIf(txtIN.Text.Trim.Length 0System.DBNull.ValuetxtIN.Text)
                    .
Add("@ItmTotal"OleDbType.Integer).Value IIf(txtTotal.Text.Trim.Length 0System.DBNull.ValuetxtTotal.Text)
                    .
Add("@ItmOut"OleDbType.Integer).Value IIf(Len(Total) = 0System.DBNull.ValueTotal)
                    .
Add("@ItmRemain"OleDbType.Integer).Value IIf(txtRemain.Text.Trim.Length 0System.DBNull.ValuetxtRemain.Text)
                    .
Add("@ItmID"OleDbType.Integer).Value IIf(txtID.Text.Trim.Length 0System.DBNull.ValuetxtID.Text)
                
End With
                cmd
.ExecuteNonQuery()
                
MsgBox("تمت عملية التحديث بنجاح"MsgBoxStyle.MsgBoxRight MsgBoxStyle.Information"إنتباه")
            Else
                
sqlstr "INSERT INTO tblInventory(ItmName,ItmPrice,ItmIN,ItmTotal,ItmOut,ItmRemain) " _
                    
"Values(@ItmName,@ItmPrice,@ItmIN,@ItmTotal,@ItmOut,@ItmRemain)"

                
cmd = New OleDbCommand(sqlstrcon)

                
With cmd.Parameters
                    
.Add("@ItmName"OleDbType.VarWChar).Value IIf(txtItem.Text.Trim.Length 0System.DBNull.ValuetxtItem.Text)
                    .
Add("@ItmPrice"OleDbType.Integer).Value IIf(txtPrice.Text.Trim.Length 0System.DBNull.ValuetxtPrice.Text)
                    .
Add("@ItmIN"OleDbType.Integer).Value IIf(txtIN.Text.Trim.Length 0System.DBNull.ValuetxtIN.Text)
                    .
Add("@ItmTotal"OleDbType.Integer).Value IIf(txtTotal.Text.Trim.Length 0System.DBNull.ValuetxtTotal.Text)
                    .
Add("@ItmOut"OleDbType.Integer).Value IIf(txtToOut.Text.Trim.Length 0System.DBNull.ValuetxtToOut.Text)
                    .
Add("@ItmRemain"OleDbType.Integer).Value IIf(txtRemain.Text.Trim.Length 0System.DBNull.ValuetxtRemain.Text)

                    
cmd.ExecuteNonQuery()
                    
MsgBox("تمت عملية الإضافة بنجاح"MsgBoxStyle.MsgBoxRight MsgBoxStyle.Information"إنتباه")

                
End With
            End 
If

            
con.Close()
            
LoaddgvInventory()
        Catch 
ex As Exception
            
If con.State ConnectionState.Open Then con.Close()
            
MsgBox(ex.Message)
        
End Try
    
End Sub 
الرد }}}}
تم الشكر بواسطة:
#2
فين الشباب؟
الرد }}}}
تم الشكر بواسطة:
#3
تم حل المشكلة بفضل الله شكرا لكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع صغير لبيانات الموظفين ارجو التعديل علية a.baomar 5 134 منذ 11 ساعة مضت
آخر رد: a.baomar
  ارسال بيانات عن طريق الإنترنت أسامة السالمي 7 95 أمس, 04:43 PM
آخر رد: Amir_alzubidy
  اضافة استعلامات جديدة rabeh.ram 10 168 أمس, 03:59 AM
آخر رد: rabeh.ram
  البحث في قاعدة بيانات اكسس hatem555 6 97 أمس, 02:53 AM
آخر رد: hatem555
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 93 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  سؤال فى الداتا جريد salah mansour 1 85 21-05-17, 12:09 AM
آخر رد: boudyonline
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 45 19-05-17, 04:09 PM
آخر رد: e-coder
  [VB.NET] كود التعديل في sql sal5033 1 43 19-05-17, 04:05 PM
آخر رد: alma2
  [سؤال] ممكن مسساعدة في تصدير مشروع بقاعدة بيانات MySql & vb.net2013 فراس الغزي 1 55 19-05-17, 12:45 PM
آخر رد: Adrees
  تخزين مباشر بالداتا جريد alma_fandi 2 58 18-05-17, 03:03 AM
آخر رد: alma_fandi

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


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