Hi I want to Clarify what is the Problem of this code?
if you feel free to answer Thanks alot...
Private Sub addakoordr_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles addakoordr.Click
Dim tr As String = tID.Text
Dim qo As String = tquanOrder.Text
Dim arw As String = cdateselec.Text
cname.Enabled = False
cdateselec.Enabled = False
tpronem.Enabled = True
tproclas.Enabled = True
tprice.Enabled = True
txtcateg.Enabled = True
tquanOrder.Enabled = True
tstock.Enabled = False
tamount.Enabled = True
If cname.Text = "" Then
addakoordr.Enabled = False
cname.Focus()
End If
If Val(tquanOrder.Text) > Val(tstock.Text) Then
MsgBox("Ang nilagay ninyo po ay sobra hindi siya nagtugma", MsgBoxStyle.Information)
tquanOrder.Text = ""
tquanOrder.Focus()
ElseIf Val(tquanOrder.Text) = 0 Then
MsgBox("Invalid Input", MsgBoxStyle.Exclamation)
tquanOrder.Text = ""
tquanOrder.Focus()
ElseIf Val(tstock.Text) = 0 Then
MsgBox("Stock is not Available Please choose other Item", MsgBoxStyle.Information)
tquanOrder.Text = ""
tquanOrder.Focus()
Else
Dim utosako As OleDbCommand = New OleDbCommand
Dim sampque As String
Dim puno As OleDbDataAdapter = New OleDbDataAdapter
dbcon.ConnectionString = db
dbcon.Open()
sampque = "INSERT INTO orders ([transactionumber],Quantityordr,orderdate,amtordr) VALUES ('" & tr & "', '" & qo & "', '" & arw & "','" & tamount.Text & "' )"
utosako.Connection = dbcon
utosako.CommandText = sampque
puno.SelectCommand = utosako
puno.Fill(ds, "orders") '<--- I have an error here and the title is the description
ds.AcceptChanges()
Dim dared As OleDbDataReader
dared = utosako.ExecuteReader
dared.Read()
survill()
End If
dbcon.Close()
dbcon.Open()
Dim i As Integer
i = DataGridView1.CurrentRow.Index
dbcon.ConnectionString = db
Dim bawas As Integer
bawas = Val(tstock.Text) - Val(tquanOrder.Text)
tstock.Text = bawas.ToString
ds.Tables("orders").Rows(i).Item(2) = bawas
da.Update(ds, "orders")
MsgBox("ordered added")
dbcon.Close()
dbcon.Close()
End Sub
I look the other article about this but none is similar from my error
Cheers all Programmers