17-04-18, 12:17 AM
17-04-18, 01:55 AM
الصورة لا تظهر يرجى الرفع من جديد
17-04-18, 01:56 AM
أين id_tbl1 في جملة For ؟
17-04-18, 02:30 AM
17-04-18, 03:02 AM
للاسف لم تظهر عندي الصورة
17-04-18, 12:51 PM
[img=800x600]![[صورة مرفقة: 264334007.png]](http://www8.0zz0.com/2018/04/17/11/264334007.png)
[/img][img=800x600]![[صورة مرفقة: 398447164.png]](http://www6.0zz0.com/2018/04/17/11/398447164.png)
[/img]
[/img][img=800x600][/img]17-04-18, 05:50 PM
ممكن اى حد من الاستاذة يساعدنى
17-04-18, 05:54 PM
اخي ضع نص رسالة الخطأ لو سمحت ف الصور لم تظهر
أو أرفق المشروع
أو أرفق المشروع
17-04-18, 06:01 PM
دا نص الرسالة
No value given for one or more required parameters.
ودا الكود
مفيش اى اجابة
No value given for one or more required parameters.
ودا الكود
PHP كود :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
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(strInsert, con)
cmd.Parameters.Add(New OleDb.OleDbParameter("Date", OleDb.OleDbType.Date)).Value = SelMdate.Value.Date
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 - 1
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.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.Integer)).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 = New OleDbCommand(strInsert, con)
cmd.ExecuteNonQuery()
con.Close()
Next
مفيش اى اجابة
17-04-18, 07:59 PM
يا جماعة حد يجاونى