none
Insert Into não salva os dados no access RRS feed

  • Pergunta

  • Podem me ajudar ? minha insert Into não salva o dados do textbox no banco de dados do access, me da o retorno da mensagem programada "Erro ao Salvar". e no Visual Studio mostra que não tem erro no comando.

    Using con As OleDbConnection = Conexao()
                Try
                    con.Open()
                    Dim sql As String = "INSERT INTO Clientes (Razão Social,Nome Fantasia,CPF/CNPJ,Inscrição Estadual,CEP,Endereço,Bairro,Cidade,UF,Telefone da Empresa,Celular da Empresa,Site,E-Mail,OBS,Usuário que Cadastrou,Data de Cadastro,Nome do Responsável,RG,CPF,Telefone do Responsável,Celular do Responsável) VALUES(?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?) "
                    Dim cmd As OleDbCommand = New OleDbCommand(sql, con)

                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Razão Social", Txt_Razão_Social.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Nome Fantasia", Txt_Nome_Fantasia.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@CPF/CNPJ", Mtb_CPF_CNPJ.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Inscrição Estadual", Mtb_Inscricao_Estadual.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@CEP", Mtb_CEP.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Endereço", Txt_Endereço.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Bairro", Txt_Bairro.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Cidade", Cbx_Cidade.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@UF", Cbx_UF.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Telefone da Empresa", Mtb_Telefone_Empresa.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Celular da Empresa", Mtb_Celular_Empresa.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Site", Txt_Site.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@E-Mail", Txt_Mail.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@OBS", Txt_OBS.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Usuário que Cadastrou", Txt_Usuario_Cad.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Data de Cadastro", Txt_Calend_Cad.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Nome do Responsável", Txt_Nome_Resp.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@RG", Mtb_RG.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@CPF", Mtb_CPF.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Telefone do Responsável", Mtb_Telefone_Resp.Text))
                    cmd.Parameters.Add(New OleDb.OleDbParameter("@Celular do Responsável", Mtb_Celular_Resp.Text))

                    cmd.ExecuteNonQuery()
                    MsgBox("Cliente cadastrado com sucesso", MsgBoxStyle.MsgBoxHelp, "Cadastrado com Sucesso")
                Catch ex As Exception
                    MsgBox("Erro ao Salvar", MsgBoxStyle.Critical, "Erro ao Salvar")
                Finally
                    con.Close()
                End Try
            End Using

    segunda-feira, 11 de maio de 2015 21:14

Respostas