1. java
  2. android
  3. c#
  4. .net
  5. javascript
  6. php
  7. jquery
  8. html
  9. sql

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

  • insert into TB_TELEFONE (idTB_Paciente) select idTB_Paciente from TB_PACIENTE

    O select talvez precise de um where para não trazer mais de um registro.

    Fabbricio   12 de ago de 2015
  • Esse erro acontece também porque realmente a sua chave estrangeira pode estar vindo sem valor. Já debugou sua query em uma string para ver se todos os valores estão vindo corretamente?

    Fabbricio   12 de ago de 2015
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do GUJ!

1 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags sql visual-basic visual-studio ou faça a sua própria pergunta.