hi,
i have problem when save data at ms access database (save multiple data)
hire my code :
VB.NET Code:
Dim prodid As String
Dim charga As Double = 0
Dim iqty As Double = 0
Dim idisc As Double = 0
'simpan detail
For i As Integer = 0 To dg.Rows.Count - 1
If dg.Item(0, i).ToString.Trim <> "" And _
dg.Item(1, i).ToString.Trim <> "" Then
prodid = dg.Item(0, i).ToString
charga = IFValNull(dg.Item(3, i).Value)
iqty = IFValNull(dg.Item(4, i).Value)
idisc = IFValNull(dg.Item(5, i).Value)
Dim scmd2 As New OleDb.OleDbCommand
scmd2.CommandText = "insert into inv_t_po_details(orderno,prod_id,orderprice,orderqty,discount)values" & _
"(@orderno,@prod_id,@orderprice,@orderqty,@discount)"
scmd2.Parameters.AddWithValue("@orderno", nopo)
scmd2.Parameters.AddWithValue("@prod_id", prodid.ToString)
scmd2.Parameters.AddWithValue("@orderprice", 0)
scmd2.Parameters.AddWithValue("@orderqty", 0)
scmd2.Parameters.AddWithValue("@discount", 0)
scmd2.Connection = GetConnection()
scmd2.ExecuteNonQuery()
End If
Next
error :
Code:
The field is too small to accept the amount of data you attempted to add. Try inserting or pasting less data