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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  المجموع التراكمي في داتا جريد فيو السيد الجوهري 1 13 منذ 51 دقيقة مضت
آخر رد: amgad525
  [VB.NET] اضافة التاريخ في الطباعة في الريبورت فيور hglogtd 7 71 أمس, 11:49 PM
آخر رد: فاطمة غ
Wink سؤال في اضافة وسحب اصناف من المخزن khadija_seedi_ali 2 55 أمس, 07:15 PM
آخر رد: khadija_seedi_ali
Video [VB.NET] كيف يمكنني عند حدث اضافة تاب جديد نسخ جميع ما فى التاب بالاوامر elhon.tec 0 37 أمس, 03:12 PM
آخر رد: elhon.tec
  [سؤال] مطلوب كود ربط combo box بقاعدة بيانات (اكسيس) BLACKBROWN5 1 28 أمس, 02:14 PM
آخر رد: tryold
  [سؤال] حفظ تاريخ معين بقاعدة البيانات توفي العراقي 4 94 أمس, 01:11 AM
آخر رد: adel27
Sad [VB.NET] كيفية تصميم قاعدة بيانات SQL Server وربطها مع الVS 2010 Ayman97 0 30 06-12-16, 04:34 PM
آخر رد: Ayman97
  ما هو كود حفظ البيانات من الداتا جريد فيو إلى قاعدة البيانات kofa 0 33 05-12-16, 07:53 PM
آخر رد: kofa
  انشاء قاعدة بيانات بإمتداد خاص بك thevirus 5 125 05-12-16, 03:09 PM
آخر رد: thevirus
  [VB.NET] اريد كود للبرنامج التالي بطريقة general procedures a_abdullah 2 58 05-12-16, 02:18 PM
آخر رد: a_abdullah

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


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