Versão atual:

Preciso de ajuda inserir dados

Preciso de ajuda, preciso efetuar 1 insert em Visual Basic que cadastra dados em 2 tabelas. TB_PACIENTE e TB_TELEFONE só que toda vez que vou cadastrar da erro dizendo que não é possível inserir dados null em (idTB_Paciente na tabela TB_TELEFONE). Segue abaixo a foto do banco.

Como estou tentando fazer:

Comando.CommandText = "insert into TB_PACIENTE (nome_Pac, endereco_Pac, sexo_Pac,rg_Pac,cpf_Pac, data_Nasc_Pac)values(@nome, @endereco, @sexo ,@Rg,@Cpf,@DataNasc)
         insert into TB_TELEFONE (idTB_Paciente) select idTB_Paciente from TB_PACIENTE 
         insert into TB_TELEFONE (fixo_Tel, cel_Tel) values (@telefone, @celular)"
        Dim parNome As SqlParameter = New SqlParameter("@nome", txtNome.Text)
        Dim parEndereco As SqlParameter = New SqlParameter("@endereco", txtEndereco.Text)
        Dim parSexo As SqlParameter = New SqlParameter("@sexo", rdoFeminino.Text)
        Dim parRg As SqlParameter = New SqlParameter("@Rg", txtRG.Text)
        Dim parCpf As SqlParameter = New SqlParameter("@Cpf", mskCPF.Text)
        Dim parData_Nasc As SqlParameter = New SqlParameter("@DataNasc", mskDataN.Text)
        Dim parTelefone As SqlParameter = New SqlParameter("@telefone", mskTelefone.Text)
        Dim parCelular As SqlParameter = New SqlParameter("@celular", mskCelular.Text)

        Comando.Parameters.Add(parNome)
        Comando.Parameters.Add(parEndereco)
        Comando.Parameters.Add(parSexo)
        Comando.Parameters.Add(parRg)
        Comando.Parameters.Add(parCpf)
        Comando.Parameters.Add(parData_Nasc)
        Comando.Parameters.Add(parTelefone)
        Comando.Parameters.Add(parCelular)

https://www.filepicker.io/api/file/o37GZITmQYiQfemHeZWK

Versão(1):

Ver a versão formatada

Preciso de ajuda inserir dados

Comentário

new question