inserting a record into a datagrid?????what is wrong in my code??? -- vb.net

vb.net : inserting a record into a datagrid?????what is wrong in my code???

Michael C#
3/15/2005 3:51:44 PM

What's the error message? Just off the top of my head, you're trying to use
named parameters in an OleDb command. Try this:

dc.CommandText = "insert into tblVast ( soort, kosten,datum,soortid) values
" & _
"( ?, ?, ?, ?);SELECT soort,kosten,datumfrom tblVast " & _
"WHERE (soortid=?)"
dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("soortid",
System.Data.OleDb.OleDbType.BigInt, 64, "Soortid"))
dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("soort",
System.Data.OleDb.OleDbType.VarChar, 50, "Soort"))
dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("kosten",
System.Data.OleDb.OleDbType.Single, 16, "Kosten"))
dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("datum",
System.Data.OleDb.OleDbType.Date, 12, "Datum"))
dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("soortid2",
System.Data.OleDb.OleDbType.BigInt, 64, "Soortid"))

[quoted text, click to view]

Hyphessobrycon
3/15/2005 7:46:24 PM

Private Sub btnrubriekbij_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnrubriekbij.Click

'insert hier

Dim cn As New OleDb.OleDbConnection(constr)

Dim dc As New OleDb.OleDbCommand

dc.Connection = cn

dc.CommandText = "insert into tblVast ( soort, kosten,datum,soortid) values
( @soort,@kosten,@datum,@soortid)" ';SELECT soort,kosten,datumfrom tblVast
WHERE (soortid=?)"

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("soortid",
System.Data.OleDb.OleDbType.BigInt, 64, "Soortid"))

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("soort",
System.Data.OleDb.OleDbType.VarChar, 50, "Soort"))

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("kosten",
System.Data.OleDb.OleDbType.Single, 16, "Kosten"))

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("datum",
System.Data.OleDb.OleDbType.Date, 12, "Datum"))

daVastBewerkenJ.UpdateCommand = dc

Try

daVastBewerkenJ.Update(dsVastBewerkenJ, "tblVast")

Catch ex As Exception

MsgBox(ex.Message)

End Try

dc.Connection.Open()

dc.ExecuteNonQuery()

Catch ex As Exception

MsgBox(ex.Message)

End Try

dc.Connection.Close()

End Sub

Thanks for helping me out

Hyphessobrycon, the new fish in the vbOcean

Hyphessobrycon
3/16/2005 9:32:56 AM

[quoted text, click to view]
What is still wrong?? Error message = Signs are found after the insert
instruction

Private Sub btnrubriekbij_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnrubriekbij.Click

'insert hier

Dim cn As New OleDb.OleDbConnection(constr)

Dim dc As New OleDb.OleDbCommand

dc.Connection = cn

dc.CommandText = "insert into tblVast ( soort, kosten,datum,soortid) values
( ?,?,?,?) ;SELECT soort,kosten,datum,soortid from tblVast WHERE
(soortid=?)"

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("soortid",
System.Data.OleDb.OleDbType.BigInt, 64, "Soortid"))

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("soort",
System.Data.OleDb.OleDbType.VarChar, 50, "Soort"))

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("kosten",
System.Data.OleDb.OleDbType.Single, 16, "Kosten"))

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("datum",
System.Data.OleDb.OleDbType.Date, 12, "Datum"))

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("soortid2",
System.Data.OleDb.OleDbType.BigInt, 64, "Soortid"))

daVastBewerkenJ.InsertCommand = dc

Try

daVastBewerkenJ.Update(dsVastBewerkenJ, "tblVast")

Catch ex As Exception

MsgBox(ex.Message)

End Try

refreshen_vast()

End Sub

I thank everyone helping that new fish in the vbOcean

Hyphessobrycon

Michael C#
3/16/2005 11:38:06 AM

Hmmm. It's apparently picking up the = sign in the WHERE clause. Just for
the heck of it, try dropping the WHERE clause and the last parameter and see
what happens:

dc.CommandText = "insert into tblVast ( soort, kosten,datum,soortid) " & _
"VALUES ( ?,?,?,?) ;" & _
"SELECT soort,kosten,datum,soortid " & _
"FROM tblVast"

[quoted text, click to view]

Hyphessobrycon
3/16/2005 10:13:50 PM

Hallo Michael,

thank you for helping. I appreciate it greatly.
And I found the solution to my problem .
Since soortid is autonumbering(correct in English?), i had to leave these
parameters out. And also leave that select sentence away. What is it for
anyway??

dc.CommandText = "insert into tblVast ( soort, kosten,datum)
[quoted text, click to view]

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("soort",
System.Data.OleDb.OleDbType.VarChar, 50, "Soort"))

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("kosten",
System.Data.OleDb.OleDbType.Single, 16, "Kosten"))

dc.Parameters.Add(New System.Data.OleDb.OleDbParameter("datum",
System.Data.OleDb.OleDbType.Date, 12, "Datum"))

daVastBewerkenJ.InsertCommand = dc

Hyphessobrycon thanks you very much

"Michael C#" <xyz@yomomma.com> schreef in bericht
news:emw7iZkKFHA.132@TK2MSFTNGP10.phx.gbl...
[quoted text, click to view]

Got something to say? Click here to post a reply to this thread.

Don't see what you're looking for? Try a search.

View other messages about vb.net

View Other Months
June 2003
July 2003
August 2003
September 2003
October 2003
November 2003
December 2003
January 2004
February 2004
March 2004
April 2004
May 2004
June 2004
July 2004
August 2004
September 2004
October 2004
November 2004
December 2004
January 2005
February 2005
March 2005
April 2005
May 2005
June 2005
July 2005
August 2005
September 2005
October 2005
November 2005
December 2005
January 2006
February 2006
March 2006
April 2006
May 2006
June 2006
July 2006
August 2006
September 2006
October 2006
November 2006
December 2006
January 2007
February 2007
March 2007
April 2007
May 2007
June 2007
July 2007
August 2007
September 2007
October 2007
November 2007
December 2007
January 2008
February 2008

home · blog · groups

Questions? Comments? Contact the dn