Re: Error using MySqlParameter

[M Varghese]

Thankx Chris , It worked.


Public Function AddUser(ByVal fullName As String, ByVal email As String, ByVal password As String) As Integer

' Create Instance of Connection and Command Object
Dim myConnection As New MySqlConnection(ConfigurationSettings.AppSettings("connectionString"))
Dim sqlText As String
sqlText = "INSERT INTO portal_users ( Name , Password , Email ) VALUES ( ?Name , ?Password , ?Email );select LAST_INSERT_ID() as UserID;"
Dim myCommand As New MySqlCommand(sqlText, myConnection)

' Add Parameters to SPROC
Dim parameterFullName As New MySqlParameter("@Name", MySqlDbType.VarChar, 51, "Name")
parameterFullName.Value = fullName
myCommand.Parameters.Add(parameterFullName)

Dim parameterPassword As New MySqlParameter("@Password", MySqlDbType.VarChar, 50, "Password")
parameterPassword.Value = password
myCommand.Parameters.Add(parameterPassword)

Dim parameterEmail As New MySqlParameter("@Email", MySqlDbType.VarChar, 100, "Email")
parameterEmail.Value = email
myCommand.Parameters.Add(parameterEmail)

Dim UserID As Integer
' Execute the command in a try/catch to catch duplicate username errors
Try
' Open the connection and execute the Command
myConnection.Open()
UserID = myCommand.ExecuteScalar

Catch
' failed to create a new user
Return -1
Finally

' Close the Connection
If myConnection.State = ConnectionState.Open Then
myConnection.Close()
End If
End Try
Return CInt(UserID)
End Function

M Varghese