0

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

3
Contributors
3
Replies
5
Views
5 Years
Discussion Span
Last Post by daniel955
1

Problems:

  1. No comments
  2. No description of any kind as to what you want to do
  3. Incomplete error message
  4. No posting of the value of sampque
Votes + Comments
Yup
0

Sir Sorry for bad descriptions... I didn't put any comments but I already solved my problem... because of the Wrong Spelling of Tablename in SQL Statement

anyway Thank you for replying

1

First Rule of Programming/Debugging ...
Use try catch statements ^_^

do it like this ...

Private Sub addakoordr_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles addakoordr.Click
    Try
        'Your very long code here
    Catch ex as Exception
        MsgBox("An unexpected error occured: " & ex.Message)
    End Try
End Sub
This question has already been answered. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.