[RESOLVIDO] Insert no VB.net

[Leandro Braçaroto 0]

Gente este é o primeiro formulário que estou fazendo de insert no banco mysql... estou com algumas duvidas... o formulário está postando sem nenhum erro mas não está incluindo no banco... alguem pode me ajudar?, o codigo segue abaixo:

Imports System.DataImports System.Data.OdbcPartial Class rep_administracaoCadColaborador    Inherits System.Web.UI.Page    Const ConnStr As String = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=dbssv3; uid=root; pwd=121520; option=3;"    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click        'Inicio - Inclusão de Colaborador        Dim conColaborador As New OdbcConnection(ConnStr)        Try            Dim cmdColaboradorPessoa As New OdbcCommand("INSERT INTO pessoa (nomeCompleto, nomeExibicao, telefone, celular, fax, email, login, senha, logradouro, numero, bairro, cep, cidade, estado, pais, foto, rg, cpfCnpj, dataNascimento, situacao, sexo) values ('" & TextBoxNome.Text & "','" & TextBoxNomeExibicao.Text & "','" & TextBoxFone.Text & "','" & TextBoxCelular.Text & "','" & TextBoxFax.Text & "','" & TextBoxEmail.Text & "', '" & TextBoxLogin.Text & "','" & TextBoxSenha.Text & "', '" & TextBoxLogradouro.Text & "','" & TextBoxNumero.Text & "', '" & TextBoxBairro.Text & "', '" & TextBoxCep.Text & "', '" & TextBoxCidade.Text & "', '" & DropDownListEstado.Text & "', '" & DropDownListPais.Text & "', 'FOTO', '" & TextBoxRg.Text & "', '" & TextBoxCPF.Text & "', '" & TextBoxDataNascimento.Text & "', 'ATIVO', 'M')", conColaborador)            Try                conColaborador.Open()            Finally                cmdColaboradorPessoa.Dispose()            End Try        Finally            conColaborador.Dispose()            conColaborador.Close()        End Try        'Fim - Inclusão de Colaborador    End SubEnd Class

Desde já agradeço

[Juliano.net 2]

Coloque seu código assim:

Imports System.DataImports System.Data.OdbcPartial Class rep_administracaoCadColaboradorInherits System.Web.UI.PageConst ConnStr As String = "Driver={MySQL ODBC 3.51 Driver}; Server=localhost; Database=dbssv3; uid=root; pwd=121520; option=3;"Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click'Inicio - Inclusão de ColaboradorDim conColaborador As New OdbcConnection(ConnStr)TryDim cmdColaboradorPessoa As New OdbcCommand("INSERT INTO pessoa (nomeCompleto, nomeExibicao, telefone, celular, fax, email, login, senha, logradouro, numero, bairro, cep, cidade, estado, pais, foto, rg, cpfCnpj, dataNascimento, situacao, sexo) values ('" & TextBoxNome.Text & "','" & TextBoxNomeExibicao.Text & "','" & TextBoxFone.Text & "','" & TextBoxCelular.Text & "','" & TextBoxFax.Text & "','" & TextBoxEmail.Text & "', '" & TextBoxLogin.Text & "','" & TextBoxSenha.Text & "', '" & TextBoxLogradouro.Text & "','" & TextBoxNumero.Text & "', '" & TextBoxBairro.Text & "', '" & TextBoxCep.Text & "', '" & TextBoxCidade.Text & "', '" & DropDownListEstado.Text & "', '" & DropDownListPais.Text & "', 'FOTO', '" & TextBoxRg.Text & "', '" & TextBoxCPF.Text & "', '" & TextBoxDataNascimento.Text & "', 'ATIVO', 'M')", conColaborador)TryconColaborador.Open()cmdColaboradorPessoa.ExecuteNonQuery()FinallycmdColaboradorPessoa.Dispose()End TryFinallyconColaborador.Dispose()conColaborador.Close()End Try'Fim - Inclusão de ColaboradorEnd SubEnd Class

Faltou você mandar executar o objeto Command (cmdColaboradorPessoa). Seu código só abria a conexão mas não executava SQL algum.

[Leandro Braçaroto 0]

valeu a ajuda Juliano ;) era isso mesmo, vacilei hahaha