MYsql ERROR

[jcrf 0]

o erro ocorre na linha da clausula WHERE Id = " & objdgv.ID

 

Private Sub Populate_Form()

Dim conn As New MySqlConnection("server = localhost;userid=root;password=jcbest;database=wrcopiadoras1")

Dim comm As MySqlCommand

Dim drmysql As MySqlDataReader

Dim sql As String

Dim objdgv As ListItemclientes

 

Try

objdgv = CType(ltbclientes.SelectedItem, ListItemclientes)

sql = "SELECT Id," & _

"NOME," & _

"ENDERECO," & _

"cidade," & _

"Bairro," & _

"ESTADO," & _

"CNPJ," & _

"IE," & _

"Cep," & _

"Telefone," & _

"Responsavel," & _

"Contrato," & _

"cobertcont," & _

"email" & _

"FROM clientes WHERE Id = " & objdgv.ID

 

conn = New MySqlConnection("server = localhost;userid=root;password=jcbest;database=wrcopiadoras1")

conn.Open()

comm = New MySqlCommand(sql, conn)

drmysql = comm.ExecuteReader()

 

If drmysql.Read Then

txtidentificacao.Text = drmysql.Item("Id").ToString

txtnome.Text = drmysql.Item("NOME").ToString

txtend.Text = drmysql.Item("ENDERECO").ToString

txtcidade.Text = drmysql.Item("cidade").ToString

txtbairro.Text = drmysql.Item("bairro").ToString

txtcnpj.Text = drmysql.Item("CNPJ").ToString

mtbcep.Text = drmysql.Item("cep").ToString

txtestado.Text = drmysql.Item("ESTADO").ToString

txtie.Text = drmysql.Item("IE").ToString

mtbtelefone.Text = drmysql.Item("telefone").ToString

txtresponsavel.Text = drmysql.Item("Responsavel").ToString

txtcontrato.Text = drmysql.Item("Contrato").ToString

txtcobertcont.Text = drmysql.Item("cobertcont").ToString

txtemail.Text = drmysql.Item("email").ToString

End If

drmysql.Close()

conn.Close()

comm.Dispose()

conn.Dispose()

Catch e As MySqlException

MsgBox(e.Message, MsgBoxStyle.Critical, "MySQL Error")

Catch e As Exception

MsgBox(e.Message, MsgBoxStyle.Critical, "General Error")

End Try

End Sub

[quintelab 91]

Verifique o resultado de sua variável sql, veja se a query dela esta tudo ok.

 

Abraços...