Input string was not in correct format.

[kjewell23]

Hi. I need help. I am getting this error saying input string was not in a correct format. couldn't store <> in price column. expect type is decimal.

Here is my code below

 
        Dim connectionString = "DRIVER=Client Access ODBC Driver (32-bit);UID=ODBC;PWD=xxxxxxxxxxxxxxxx;System=XXX.XXX.XXX.XXX"
        Dim Order As Integer
        Order = CInt(txtOrderNumber.Text)
        Dim sql As String
        Dim myconnection As OdbcConnection
        Dim myCommand As OdbcDataAdapter
        myconnection = New OdbcConnection(connectionString)
        myCommand = New OdbcDataAdapter(sql, myconnection)
        sql = "select  line#, ordno, quano, quana, quans, c2rdt, unitm, prdno, actsp  from rmsfiles2.obcop200 where ordno = " & Order.ToString()
 
        Dim newtable As New DataTable()
        newtable.Columns.Add("Line#", GetType(Integer))
        newtable.Columns.Add("Quano", GetType(Decimal))
        newtable.Columns.Add("Actsp", GetType(Decimal))
        newtable.Columns.Add("Prdno", GetType(Integer))
 
 
        newtable.Columns("Line#").AutoIncrement = True
        For i As Integer = 1 To 10
            Dim newrow As DataRow = newtable.NewRow()
            'newrow("Quano") = ""
            newrow("ACTSP") = ""
            newrow("Ordno") = ""
            newtable.Rows.Add(newrow)
        Next
        gridview1.DataSource = newtable
        gridview1.DataBind()
 

[Plater]

Well for starters:
newrow("ACTSP") = ""
newrow("Ordno") = ""

ACTSPis defined as being a decimal, you're trying to add a string. Try using:
newrow("ACTSP") = 0.0

You never added a column called "Ordno" to your datatable, so that could be something.

You also don't appear to be doing anything with your database on that datatable? Did you leave that part of the code out?

Hi. I need help. I am getting this error saying input string was not in a correct format. couldn't store <> in price column. expect type is decimal.

Here is my code below

 
        Dim connectionString = "DRIVER=Client Access ODBC Driver (32-bit);UID=ODBC;xxxxxxxxxxxxxxxxxxxxxxxxxxxx"
        Dim Order As Integer
        Order = CInt(txtOrderNumber.Text)
        Dim sql As String
        Dim myconnection As OdbcConnection
        Dim myCommand As OdbcDataAdapter
        myconnection = New OdbcConnection(connectionString)
        myCommand = New OdbcDataAdapter(sql, myconnection)
        sql = "select  line#, ordno, quano, quana, quans, c2rdt, unitm, prdno, actsp  from rmsfiles2.obcop200 where ordno = " & Order.ToString()
 
        Dim newtable As New DataTable()
        newtable.Columns.Add("Line#", GetType(Integer))
        newtable.Columns.Add("Quano", GetType(Decimal))
        newtable.Columns.Add("Actsp", GetType(Decimal))
        newtable.Columns.Add("Prdno", GetType(Integer))
 
 
        newtable.Columns("Line#").AutoIncrement = True
        For i As Integer = 1 To 10
            Dim newrow As DataRow = newtable.NewRow()
            'newrow("Quano") = ""
            newrow("ACTSP") = ""
            newrow("Ordno") = ""
            newtable.Rows.Add(newrow)
        Next
        gridview1.DataSource = newtable
        gridview1.DataBind()
 

[kjewell23]

well, the ordno is a column field of my database in as400, Here is rest of my code

'the button to submit
 
  Dim connectionString = "DRIVER=Client Access ODBC Driver (32-bit);UID=ODBC;PWD=xxxxxxxx;System=xxx.xxx.xxx.xxx"
        Dim Order As Integer
        Order = CInt(txtOrderNumber.Text)
        Dim sql As String
        Dim myconnection As OdbcConnection
        Dim myCommand As OdbcDataAdapter
        myconnection = New OdbcConnection(connectionString)
        myCommand = New OdbcDataAdapter(sql, myconnection)
        sql = "select  line#, ordno, quano, quana, quans, c2rdt, unitm, prdno, actsp  from rmsfiles2.obcop200 where ordno = " & Order.ToString()
 
        Dim newtable As New DataTable()
        newtable.Columns.Add("Line#", GetType(Integer))
        newtable.Columns.Add("Quano", GetType(Decimal))
        newtable.Columns.Add("Actsp", GetType(Decimal))
        newtable.Columns.Add("Prdno", GetType(Integer))
 
 
        newtable.Columns("Line#").AutoIncrement = True
        For i As Integer = 1 To 10
            Dim newrow As DataRow = newtable.NewRow()
            'newrow("Quano") = ""
            newrow("ACTSP") = 0.0
            newrow("Factory Number") = ""
            newtable.Rows.Add(newrow)
        Next
        gridview1.DataSource = newtable
        gridview1.DataBind()
 
    End Sub
    Function GetData(ByVal myOrderNumber As Integer) As Data.DataView
        Dim connectionString = "DRIVER=Client Access ODBC Driver (32-bit);UID=ODBC;PWD=xxxxxxxx;System=xxx.xxx.xxx.xxx"
        Dim Order As Integer
        Order = CInt(txtOrderNumber.Text)
        Dim sql As String
        Dim myconnection As OdbcConnection
        Dim myCommand As OdbcDataAdapter
        myconnection = New OdbcConnection(connectionString)
        myCommand = New OdbcDataAdapter(sql, myconnection)
        sql = "select  line#, ordno, quano, quana, quans, c2rdt, unitm, prdno, actsp  from rmsfiles2.obcop200 where ordno = " & Order.ToString()
        Dim dr As Data.DataRow
        Dim dt As New Data.DataTable 'the table that will hold the card holders
 
        dt.Columns.Add(New Data.DataColumn("Line #", GetType(Integer)))
        dt.Columns.Add(New Data.DataColumn("Quantity", GetType(Decimal)))
 
        dr = dt.NewRow
        dr("Line #") = "first row, line # "
        dr("Quantity") = "first row, quantity"
 
        dt.Rows.Add(dr)
 
        dr = dt.NewRow
        dr("Line #") = "second row, line # "
        dr("Quantity") = "second row, quantity"
 
        dt.Rows.Add(dr)
 
        Dim dv As New Data.DataView(dt)
        Return dv
    End Function
 
 

Well for starters:
newrow("ACTSP") = ""
newrow("Ordno") = ""

ACTSPis defined as being a decimal, you're trying to add a string. Try using:
newrow("ACTSP") = 0.0

You never added a column called "Ordno" to your datatable, so that could be something.

You also don't appear to be doing anything with your database on that datatable? Did you leave that part of the code out?

[Plater]

well, the ordno is a column field of my database in as400,

I had gathered that, but at no time do you appear to DO anything with your database. You set up a connection and set up a command, but never execute the command or populate your datatable from it.

Are you still getting errors though?

[kjewell23]

Ok . I thought I was, so how do I do that? I'm getting pass till the Ordno part so I change it to factory order and now it says that column factory number doesn't belong to the table. what does that mean? I know that its not recogniziting but it should. I think

I had gathered that, but at no time do you appear to DO anything with your database. You set up a connection and set up a command, but never execute the command or populate your datatable from it.

Are you still getting errors though?

[Plater]

You want a DataTable(or DataSet) containing the values from your SQLCommand yes?

I moved things around because your order of operations was wrong

Dim connectionString = "DRIVER=Client Access ODBC Driver (32-bit);UID=ODBC;PWD=xxxxxxxx;System=xxx.xxx.xxx.xxx"
Dim Order As Integer
Dim sql As String
Dim myconnection As OdbcConnection
Dim myCommand As OdbcDataAdapter
 
Order = CInt(txtOrderNumber.Text)
sql = "select line#, ordno, quano, quana, quans, c2rdt, unitm, prdno, actsp from rmsfiles2.obcop200 where ordno = " & Order.ToString()
myconnection = New OdbcConnection(connectionString)
myCommand = New OdbcDataAdapter(sql, myconnection)
 
Dim newtable As New DataTable()
 
myCommand.Fill(newtable)
 
gridview1.DataSource = newtable
gridview1.DataBind()
 
 

This assumes that you have a valid table at "rmsfiles2.obcop200" with all the columns named as you specified.

[kjewell23]

It is a valid table. However I change the code just like you changes it in the submit button but it don't display anything. What could be wrong

You want a DataTable(or DataSet) containing the values from your SQLCommand yes?

I moved things around because your order of operations was wrong

Dim connectionString = "DRIVER=Client Access ODBC Driver (32-bit);UID=ODBC;PWD=xxxxxxxx;System=xxx.xxx.xxx.xxx"
Dim Order As Integer
Dim sql As String
Dim myconnection As OdbcConnection
Dim myCommand As OdbcDataAdapter
 
Order = CInt(txtOrderNumber.Text)
sql = "select line#, ordno, quano, quana, quans, c2rdt, unitm, prdno, actsp from rmsfiles2.obcop200 where ordno = " & Order.ToString()
myconnection = New OdbcConnection(connectionString)
myCommand = New OdbcDataAdapter(sql, myconnection)
 
Dim newtable As New DataTable()
 
myCommand.Fill(newtable)
 
gridview1.DataSource = newtable
gridview1.DataBind()
 
 

This assumes that you have a valid table at "rmsfiles2.obcop200" with all the columns named as you specified.

[Plater]

It is a valid table. However I change the code just like you changes it in the submit button but it don't display anything. What could be wrong

That code should probably be in the form_load or somwhere where it will get executed in time to display on the webpage

[kjewell23]

The thing is that the customer won't type in a order number till the page load completes in a textbox then they hit submit then the data comes up

That code should probably be in the form_load or somwhere where it will get executed in time to display on the webpage

[Plater]

Well you still need to have access to it at time of page_load

Check for the isPostBack variable to determine if the page is being reloaded to an event (like button clicking)
Then you can decide if the value is valid and get the dataset to populate the gridview

[Dharmaraju]

Don't specify the column type when you adding the column to the datatable .the Column automatically take the datatype when you update the column.

[kjewell23]

How do I do that. I look and I kinda understand but not for sure how to do the code

Well you still need to have access to it at time of page_load

Check for the isPostBack variable to determine if the page is being reloaded to an event (like button clicking)
Then you can decide if the value is valid and get the dataset to populate the gridview

[NeoPa]

kjewell23,

Please review the posts you've made in this thread already and notice that Frinavale has had to edit many of them for you to protect the privacy of your firm.
Posting IP address and password on a public web site is a very dangerous thing to do (I assume it was a publicly available IP address) and could cause your company to lose a great deal that is valuable (possibly money but certainly information).
In my experience, if you were found out posting that information on a public web site, you would lose your job. This is quite a serious matter.
I notice that you don't seem to have heeded Frinavale's warning to you on this very issue in a previous thread (Data in dataset but not displaying in gridview).

Please treat this as a friendly, though probably last, warning on the matter.

MODERATOR.

[Dharmaraju]

Please don't mention the type of the column
dt.Columns.Add(New Data.DataColumn("Line #", GetType(Integer)))

You should mention like this
dt.Columns.Add(New Data.DataColumn("Quantity"))

then it will accep the value .Please do