none
Erro "Sobrecarga" no ExecuteNonQuery RRS feed

  • Pergunta

  • Olá, estou fazendo um sistema de cadastramento e agendamento para o Tcc do meu ensino técnico, o erro acontece qnd tento salvar os dados do formulario de cadastro. 

     O meu palpite é que talvez exista um limite para o ExecuteNonQuery ou até mesmo para o access em salvar tantos dados de uma só vez. Mas é que o "cliente" disse que o formulario de cadastro tem que ter tudo isso.

    Obrigado

    Bruno Rodrigues

     Private Sub btnSalvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalvar.Click
            Call Campo_vazio()
    
            If acao = "NOVO" Then
                SQL = "insert into TabPaciente(Nome_Pac, RG_Pac, CPF_Pac, EstCivil_Pac, Sexo_Pac, DatNasc_Pac, End_Pac, Bairro_Pac, Cidade_Pac, Estado_Pac, CEP_Pac, Tel_Pac, Cel_Pac, Obs_Pac, Acom_Pac, Nome_Acom, RG_Acom, CPF_Acom, EstCivil_Acom, Sexo_Acom, DatNasc_Acom, End_Acom, Bairro_Acom, Cidade_Acom, Estado_Acom, Tel_Acom, Cel_Acom) values ('" & txtPaciente.Text & "', '" & txtRg.Text & "', '" & txtCPF.Text & "', '" & cboEstadoCivil.Text & "', '" & cboSexo.Text & _
    "', '" & dtpDataNasc.Text & "', '" & txtEndereco.Text & "', '" & txtBairro.Text & "', '" & txtCidade.Text & "', '" & txtEstado.Text & "', '" & mtxtCEP.Text & "', '" & mtxtTelefone.Text & "', '" & mtxtCelular.Text & "', '" & txtObs.Text & "', '" & acom & "', '" & txtNome_Acom.Text & "', '" & txtRG_Acom.Text & "', '" & txtCPF_Acom.Text & "', '" & cboEstadoCivil_Acom.Text & _
    "', '" & cboSexo.Text & "', '" & dtpDataNasc_Acom.Text & "', '" & txtEndereco_Acom.Text & "', '" & txtBairro_Acom.Text & "', '" & txtCidade_Acom.Text & "', '" & txtEstado_Acom.Text & "', '" & mtxtTelefone_Acom.Text & "', '" & mtxtCelular_Acom.Text & "')"
    
                Call executar_comando(SQL)
                txtCodigo.Text = exibir_ultimocodigo("Cod_Pac", "TabPaciente")
                Exit Sub
            ElseIf acao = "ALTERAR" Then
                SQL = "update TabPaciente set Nome_Pac='" & txtPaciente.Text & "', RG_Pac='" & txtRg.Text & "', CPF_Pac='" & txtCPF.Text & "', EstCivil_Pac='" & cboEstadoCivil.Text & "', Sexo_Pac='" & cboSexo.Text & "', DatNasc_Pac='" & dtpDataNasc.Text & "', End_Pac='" & txtEndereco.Text & "', Bairro_Pac=" & txtBairro.Text & "', Cidade_Pac='" & txtCidade.Text & "', Estado_Pac='" & txtEstado.Text & "', CEP_Pac='" & mtxtCEP.Text & "', Tel_Pac='" & mtxtTelefone.Text & "', Cel_Pac='" & mtxtCelular.Text & "', Obs_Pac='" & txtObs.Text & "', Acom_Pac='" & acom & _
                    "', Nome_Acom='" & txtNome_Acom.Text & "', RG_Acom='" & txtRG_Acom.Text & "', CPF_Acom='" & txtCPF_Acom.Text & "', EstCivil_Acom='" & cboEstadoCivil_Acom.Text & "', Sexo_Acom='" & cboSexo_Acom.Text & "', DatNasc_Acom='" & dtpDataNasc_Acom.Text & "', End_Acom='" & txtEndereco_Acom.Text & "', Bairro_Acom='" & txtBairro_Acom.Text & "', Cidade_Acom='" & txtEstado_Acom.Text & "', Estado_Acom='" & txtEstado_Acom.Text & "', CEP_Acom='" & mtxtCEP.Text & "', Tel_Acom='" & mtxtTelefone_Acom.Text & "', Cel_Acom='" & mtxtCelular_Acom.Text & _
                    "' where Cod_Pac='" & txtCodigo.Text
                Call executar_comando(SQL)
            End If
            MessageBox.Show("Dados gravados com sucesso!", "Atenção!", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
            Call Texto_telas(Me, False)
            Call Botoes(Me, True)
        End Sub

    • Movido Rui Santos segunda-feira, 20 de agosto de 2012 16:08 (De:.NET Framework - ADO (Acesso a dados, data access & storage))
    domingo, 19 de agosto de 2012 21:56

Todas as Respostas