29-12-23, 04:32 PM
(آخر تعديل لهذه المشاركة : 29-12-23, 04:39 PM {2} بواسطة senussi_gtR.)
السلام عليكم
بعد مشاهدة دروس الأستاذ / خالد السعداني بارك الله فيه على شرح الواضح وتعلمة من الكثير
حولة بناء برنامج بنفس الفكر لكن الكود يحفظ بيانات في جدول فاتورة وتافصيلها يظهر تحويل نوع بيانات من
stringالىinteger حاولة فيها وعدلة كود ولم اصل الي حل هل ممكن احد يفيدني بالحل وشرحه
وعندي استفسار هل يمكن اضافة حلقة for بحيث تعدل بيانات الكمية في جدول مستودع
استحدم في vb.net 2019 للبرمجة و قاعدة بيانات Access
شكرا للجميع
شكرا للجميع
PHP كود :
Try
Dim strInsert As String = "Insert Into Invoiceout (Invoicen, det)
values (@Invoicen, @det)"
Dim cmd As New OleDb.OleDbCommand(strInsert, cn)
cmd.Parameters.Add(New OleDb.OleDbParameter("@Invoicen", OleDb.OleDbType.VarChar)).Value = TB0.Text
cmd.Parameters.Add(New OleDb.OleDbParameter("@det", OleDb.OleDbType.Date)).Value = DTiicker2.Value.Date
cmd.ExecuteNonQuery()
' رقم فاتور
cmd = New OleDb.OleDbCommand("select max(Invoiceb) from Invoiceout", cn)
Dim dr As OleDb.OleDbDataReader = cmd.ExecuteReader
dr.Read()
Dim ID_Order As Integer = dr(0)
dr.Close()
'Add Order Details
Dim Pro, rfn, com, typ, exp, xxx, nto As Integer
Dim Qty As Double
'تفصيل الفاتورة
strInsert = "insert into outgoing (invoicee,rfna,product,quantity,company,type,expired,uoxx,notes)
VALUES (@invoicee,@rfna,@product,@quantity,@company,@type,@expired,@uoxx,@notes)"
For i As Integer = 0 To DGV1.RowCount - 1
rfn = DGV1.Rows(i).Cells(1).Value
Pro = DGV1.Rows(i).Cells(2).Value
com = DGV1.Rows(i).Cells(3).Value
xxx = DGV1.Rows(i).Cells(4).Value
Qty = DGV1.Rows(i).Cells(5).Value
typ = DGV1.Rows(i).Cells(6).Value
exp = DGV1.Rows(i).Cells(7).Value
nto = DGV1.Rows(i).Cells(8).Value
cmd = New OleDb.OleDbCommand(strInsert, cn)
cmd.Parameters.Add(New OleDb.OleDbParameter("@invoicee", OleDb.OleDbType.Integer)).Value = ID_Order
cmd.Parameters.Add(New OleDb.OleDbParameter("@rfna", OleDb.OleDbType.Integer)).Value = rfn
cmd.Parameters.Add(New OleDb.OleDbParameter("@product", OleDb.OleDbType.Integer)).Value = Pro
cmd.Parameters.Add(New OleDb.OleDbParameter("@quantity", OleDb.OleDbType.Integer)).Value = Qty
cmd.Parameters.Add(New OleDb.OleDbParameter("@company", OleDb.OleDbType.VarChar)).Value = com
cmd.Parameters.Add(New OleDb.OleDbParameter("@expired", OleDb.OleDbType.Date)).Value = exp
cmd.Parameters.Add(New OleDb.OleDbParameter("@type", OleDb.OleDbType.Integer)).Value = typ
cmd.Parameters.Add(New OleDb.OleDbParameter("@uoxx", OleDb.OleDbType.Integer)).Value = xxx
cmd.Parameters.Add(New OleDb.OleDbParameter("@notes", OleDb.OleDbType.Integer)).Value = nto
cmd.ExecuteNonQuery()
Next
MsgBox("تمت الإضافة بنجاح", MsgBoxStyle.Information, "الإضاقة")
Catch ex As Exception
MsgBox("Error: " & ex.Message, MsgBoxStyle.Critical)
End Try