ERROR MYSQL VB.NET

JCMAFIOZO 26/03/2012 00:45:34
#398242
Dim FileSize As UInt32
Dim ImageStream As System.IO.MemoryStream

ImageStream = New System.IO.MemoryStream
PictureBox1.Image.Save(ImageStream, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim rawdata(ImageStream.Length - 1) As Byte
ImageStream.Position = 0
ImageStream.Read(rawdata, 0, CInt(ImageStream.Length))
FileSize = ImageStream.Length

Dim usuario As String
usuario = [Ô][Ô]
Dim SQL1 As String
SQL1 = [Ô]select * from login WHERE USUARIO = [ô][Ô] & Label8.Text & [Ô][ô][Ô]
comando1.CommandText = SQL1
comando1.Connection = CN1
comando1.ExecuteNonQuery()
Adapter.SelectCommand = comando1

Dim query As String = ([Ô]UPDATE login SET SENHA=?,NIVEL=?,NOME=?,ENDERECO=?,TELEFONE=?,EMAIL=? WHERE ID=[ô][Ô] & Label8.Text & [Ô][ô][Ô])
comando1 = New MySqlCommand(query, CN1)
comando1.Parameters.AddWithValue([Ô]@SENHA[Ô], TextBox2.Text)
comando1.Parameters.AddWithValue([Ô]@NIVEL[Ô], ComboBox1.Text)
comando1.Parameters.AddWithValue([Ô]@NOME[Ô], TextBox4.Text)
comando1.Parameters.AddWithValue([Ô]@ENDERECO[Ô], TextBox3.Text)
comando1.Parameters.AddWithValue([Ô]@TELEFONE[Ô], TextBox5.Text)
comando1.Parameters.AddWithValue([Ô]@EMAIL[Ô], TextBox6.Text)
[ô]comando1.Parameters.AddWithValue([Ô]?IMAGEN[Ô], rawdata)

comando1.ExecuteNonQuery()

MessageBox.Show([Ô]Mau![Ô], _
[Ô]Success![Ô], MessageBoxButtons.OK, MessageBoxIcon.Asterisk)

Aqui ta Eu codigo, o que estou errando? me ajudem. da fatal error
ALTAIR148 26/03/2012 07:33:03
#398247 Resposta escolhida
Bom dia,

Amigo ao setar o parâmetro vc colocou apenas [Ô]?[Ô], assim o sistema não vai identifica-lós, outra coisa, vc colocou [Ô]?[Ô] na SQL e [Ô]@[Ô] nos parâmetros, ai não identifica mesmo. Modifiquei o código e tenta agora para ver.

  Dim query As String = ([Ô]UPDATE login SET SENHA=@SENHA, NIVEL=@NIVEL, NOME=@NOME, ENDERECO=@ENDERECO ,TELEFONE=@TELEFONE, EMAIL=@EMAIL, IMAGEN = @IMAGEN,  WHERE  ID=[ô][Ô] & Label8.Text & [Ô][ô][Ô])
        comando1 = New MySqlCommand(query, CN1)
        comando1.Parameters.AddWithValue([Ô]@SENHA[Ô], TextBox2.Text)
        comando1.Parameters.AddWithValue([Ô]@NIVEL[Ô], ComboBox1.Text)
        comando1.Parameters.AddWithValue([Ô]@NOME[Ô], TextBox4.Text)
        comando1.Parameters.AddWithValue([Ô]@ENDERECO[Ô], TextBox3.Text)
        comando1.Parameters.AddWithValue([Ô]@TELEFONE[Ô], TextBox5.Text)
        comando1.Parameters.AddWithValue([Ô]@EMAIL[Ô], TextBox6.Text)
        [ô]comando1.Parameters.AddWithValue([Ô]@IMAGEN[Ô], rawdata)
JCMAFIOZO 26/03/2012 12:59:26
#398315
Altair, Obrigado pela sua atenção mais, ainda tenho error, mais de fatal error foi para [Ô]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near [ô]WHERE ID=[ô]22[ô][ô] at line 1[Ô]
ALTAIR148 26/03/2012 13:16:01
#398317
Tenta assim:

  Dim query As String = ([Ô]UPDATE login SET SENHA=@SENHA, NIVEL=@NIVEL, NOME=@NOME, ENDERECO=@ENDERECO ,TELEFONE=@TELEFONE, EMAIL=@EMAIL, IMAGEN = @IMAGEN  WHERE  ID=[ô][Ô] & Label8.Text & [Ô][ô][Ô])
        comando1 = New MySqlCommand(query, CN1)
        comando1.Parameters.AddWithValue([Ô]@SENHA[Ô], TextBox2.Text)
        comando1.Parameters.AddWithValue([Ô]@NIVEL[Ô], ComboBox1.Text)
        comando1.Parameters.AddWithValue([Ô]@NOME[Ô], TextBox4.Text)
        comando1.Parameters.AddWithValue([Ô]@ENDERECO[Ô], TextBox3.Text)
        comando1.Parameters.AddWithValue([Ô]@TELEFONE[Ô], TextBox5.Text)
        comando1.Parameters.AddWithValue([Ô]@EMAIL[Ô], TextBox6.Text)
        [ô]comando1.Parameters.AddWithValue([Ô]@IMAGEN[Ô], rawdata)



tinha uma virgula antes do [Ô]WHERE[Ô]
JCMAFIOZO 26/03/2012 13:55:25
#398320
Perfeito, Vlw Mesmo amigo, mais antes de encerrar o topico, você poderia me dar uma ideia de como faço o update e o insert em um mesmo botão?
ALTAIR148 26/03/2012 13:58:27
#398323
Crie uma função que verifica se o registro existe, se ele existir ele faz o UPDATE se não existir ele faz um INSERT.
JCMAFIOZO 26/03/2012 14:09:06
#398325
Oks Obrigado, Topico Encerrado!
Tópico encerrado , respostas não são mais permitidas
Voltar