Erro no Insert MySQL

[Rogério Oliveira 0]

Olá

Estou desenvolvendo em Windows form e não consigo inserir registro no banco de dados MySQL.

 

O código utilizado foi:

Dim StrConexao As String = "Server=localhost;Database=RodaSistemas;uid=Login;pwd=Senha"
		Dim ConectaBD As MySqlConnection
		ConectaBD = New MySqlConnection(StrConexao)
		ConectaBD.Open()
		ConectaBD.ChangeDatabase("RodaSistemas")
		Dim Data As New DataTable
		Dim da As New MySqlDataAdapter("Insert Into Contatos_Clientes " & _
									   "(ID_Cliente, Nome, Departamento, Telefone, Celular, Tel_Adicional)" & _
									   " Values(" & _
									   "'" & GridContato.Item(0, 0).Value & "', " & _
									   "'" & GridContato.Item(1, 0).Value & "', " & _
									   "'" & GridContato.Item(2, 0).Value & "', " & _
									   "'" & GridContato.Item(3, 0).Value & "', " & _
									   "'" & GridContato.Item(4, 0).Value & "', " & _
									   ")", ConectaBD)
		Dim cb As New MySqlCommandBuilder(da)
		da.Fill(Data)

- O problema está aqui

[quintelab 91]

Já verificou se os valores estão vindo de forma correta? Teste seu INSERT direto no banco para ver se o problema é na query ou no código VB.

E qual o erro que ocorre?

 

Abraços...