مشكلة عند حفظ الفاتورة

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مشكلة عند حفظ الفاتورة
#21
سالة دى بتظهر عند اضافة اكتر من صنفين الى dataGriedview وحفظ هذه  الفاتورة تظهر الرسالة دى 
[img=800x600] [/URL][/img]ate Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PHP كود :
       If con.State ConnectionState.Open Then con.Close()
 
       Dim strInsert As String " Insert into tb1([Date],[SelMan],[total])values(@Date,@SelMan,@total)"

 
       cmd = New OleDb.OleDbCommand(strInsertcon)
 
       cmd.Parameters.Add(New OleDb.OleDbParameter("@Date"OleDb.OleDbType.VarChar)).Value TextBox1.Text
        cmd
.Parameters.Add(New OleDb.OleDbParameter("@SelMan"OleDb.OleDbType.VarChar)).Value SelMan.Text
        cmd
.Parameters.Add(New OleDb.OleDbParameter("@total"OleDb.OleDbType.VarChar)).Value SelMdataTextBox.Text

        con
.Open()

 
       cmd.ExecuteNonQuery()
 
       cmd = New OleDb.OleDbCommand("select max(id) from tb1"con)
 
       Dim dr As OleDb.OleDbDataReader cmd.ExecuteReader
        dr
.Read()
 
       'اضافة تفاصيل الفاتورة
        Dim ID_tb1 As Integer = dr(0)
        dr.Close()
        Dim code, quant As Integer

        Dim price, total As Double

        strInsert = "Insert into sell(code,ID_tb1,Name,quant,price,total)values(@code,@ID_tb1,@Name,@quant,@price,@total)"
        cmd = New OleDb.OleDbCommand(strInsert, con)

        For i As Integer = 0 To SellDataGridView.RowCount - 2
            code = SellDataGridView.Rows(i).Cells(0).Value
            Name = SellDataGridView.Rows(i).Cells(1).Value
            quant = SellDataGridView.Rows(i).Cells(2).Value
            price = SellDataGridView.Rows(i).Cells(3).Value
            total = SellDataGridView.Rows(i).Cells(4).Value
            cmd = New OleDbCommand(strInsert, con)
            cmd.Parameters.Add(New OleDb.OleDbParameter("@code", OleDb.OleDbType.Integer)).Value = code
            cmd.Parameters.Add(New OleDb.OleDbParameter("@ID_tb1", OleDb.OleDbType.Integer)).Value = ID_tb1
            cmd.Parameters.Add(New OleDb.OleDbParameter("@Name", OleDb.OleDbType.VarChar)).Value = Name
            cmd.Parameters.Add(New OleDb.OleDbParameter("@quant", OleDb.OleDbType.Integer)).Value = quant
            cmd.Parameters.Add(New OleDb.OleDbParameter("@price", OleDb.OleDbType.Currency)).Value = price
            cmd.Parameters.Add(New OleDb.OleDbParameter("@total", OleDb.OleDbType.Currency)).Value = total
            cmd.ExecuteNonQuery()
            SellDataGridView.Rows.RemoveAt(SellDataGridView.CurrentRow.Index)

        Next
        add_number()
        con.Close()
       
    End Sub 

[صورة مرفقة: he4c8u]
الرد
تم الشكر بواسطة:
#22
مفيش اى رد
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند تشغيل البرنامج salah mansour 19 170 منذ 3 ساعة مضت
آخر رد: salah mansour
Question [سؤال] حل مشكلة عند عرض الكثير من السطور في TextBox lanonymdz 3 38 منذ 9 ساعة مضت
آخر رد: elgokr
  [VB.NET] اضافة بيانات الفاتورة عبدالرحمن بشري عمر 6 75 18-08-18, 07:41 AM
آخر رد: ابراهيم ايبو
  مشكلة عند اعداد الملف الى setup mostafa hasanein 6 55 14-08-18, 07:06 PM
آخر رد: elgokr
Photo عندى مشكلة واريد حلها mostafa hasanein 9 149 11-08-18, 10:05 AM
آخر رد: mostafa hasanein
  مشكلة في تصدير بيانات جريد فيو الى ملف الاكسل Marwan9990 9 88 10-08-18, 10:51 PM
آخر رد: Marwan9990
Exclamation مشكلة في البرامج التي لها علاقة ل OpenFileDialog YousefOkasha 3 52 10-08-18, 07:52 PM
آخر رد: elgokr
  مشكلة في كريستال ريبورت اللورد محمود 3 56 10-08-18, 07:49 PM
آخر رد: elgokr
Exclamation مشكلة في ربط المشروع بقاعدة بيانات YousefOkasha 3 77 10-08-18, 07:10 PM
آخر رد: elgokr
  مشكلة في تعبئة TreeView ببيانات من ثلاث جداول SQL princelovelorn 3 49 10-08-18, 10:00 AM
آخر رد: elgokr

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


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