Command Parameters

[Paul]

Can someone tell me why the following code does not work ?

It does not crash or cause errors and it creates a new row in the table
"tblusers" but the fields are NULL.

Sub doInsert()
'Create Insert string
Dim MySQL As String = "Insert into tblusers (USERTEXT) values (@Pnotes)"
'Set up connection to mysql database
Dim myConn As OdbcConnection = New
OdbcConnection("driver={MySql};uid=root;pwd=;serve r=127.0.0.1;database=dbnrg
plc;OPTION=17923")
Dim Cmd As New OdbcCommand(MySQL, myConn)
Cmd.Parameters.Add(New OdbcParameter("@Pnotes", Me.txtNotes.Text))
myConn.Open()
Cmd.ExecuteNonQuery()
myConn.Close()
End Sub

Thanks in Advance

[S. Justin Gengo]

Paul,

Run the debugger and see if the text box actually has a value in it.

My guess is that your code is clearing the text box on post back.

Sincerely,

--
S. Justin Gengo, MCP
Web Developer

Free code library at:
[url]www.aboutfortunate.com[/url]

"Out of chaos comes order."
Nietzche
"Paul" <paul@themedialounge.com> wrote in message
news:udxTRUCXDHA.888@TK2MSFTNGP10.phx.gbl...

> Can someone tell me why the following code does not work ?
>
> It does not crash or cause errors and it creates a new row in the table
> "tblusers" but the fields are NULL.
>
> Sub doInsert()
> 'Create Insert string
> Dim MySQL As String = "Insert into tblusers (USERTEXT) values

(@Pnotes)"

> 'Set up connection to mysql database
> Dim myConn As OdbcConnection = New
>

OdbcConnection("driver={MySql};uid=root;pwd=;serve r=127.0.0.1;database=dbnrg

> plc;OPTION=17923")
> Dim Cmd As New OdbcCommand(MySQL, myConn)
> Cmd.Parameters.Add(New OdbcParameter("@Pnotes", Me.txtNotes.Text))
> myConn.Open()
> Cmd.ExecuteNonQuery()
> myConn.Close()
> End Sub
>
> Thanks in Advance
>
>