تقييم الموضوع :
  • 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
تم حل المشكلة بفضل الله شكرا لكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف الاتصال بقاعدة بيانات SQLite أحمد إبراهيم سعد 2 49 19-09-17, 09:18 PM
آخر رد: أحمد إبراهيم سعد
  [VB.NET] التعديل على الكود ليتناسق ما اريده 0theghost0 4 110 17-09-17, 03:35 PM
آخر رد: 0theghost0
  [سؤال] عند اضافة حالة جديدة naden 1 51 16-09-17, 09:20 PM
آخر رد: أبو نوره
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 112 16-09-17, 01:01 AM
آخر رد: mohammed alnour
  اضافة عدد الايام + التاريخ الاول = التاريخ الثانى nabil.1710 3 95 15-09-17, 05:10 AM
آخر رد: طـلال
  [VB.NET] مشكلة طباعه بيانات من DataGridview رومنس الشوق 4 648 14-09-17, 06:24 PM
آخر رد: محمود صالح
  اريد كود لتحقق ان كان الفورم مفتوح ام لا The Light Fire 2 82 11-09-17, 06:57 PM
آخر رد: The Light Fire
  [VB.NET] لدي مشكلة مع كود التعديل 0theghost0 13 178 09-09-17, 05:24 PM
آخر رد: ola
  [سؤال] أريد قاعدة بيانات بها تفسير القرآن الكريم tarek 0 53 09-09-17, 02:44 PM
آخر رد: tarek
  [VB.NET] طلب مساعدة في جلب بيانات dubai.eig 1 107 06-09-17, 02:03 AM
آخر رد: سعود

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


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