[Sql] - Insert ou Update
Boa Noite,
Gente eu estou com um problema que é o seguinte:
Eu ao clicar no botao Salvar ele tem que verificar se o que tem no Edit1 já existe na tabela, se já existir ele da update no registro se nao ele dá insert.
Só que mesmo sabendo que já existe o registro ´N´ ele manda Inserir, onde deveria fazer update direto.
o codigo é o seguinte:
Muito obrigado!!!
Fernando Cunha
Obs.: os outros Topicos meu eu já consegui Resolver obrigado.
Gente eu estou com um problema que é o seguinte:
Eu ao clicar no botao Salvar ele tem que verificar se o que tem no Edit1 já existe na tabela, se já existir ele da update no registro se nao ele dá insert.
Só que mesmo sabendo que já existe o registro ´N´ ele manda Inserir, onde deveria fazer update direto.
o codigo é o seguinte:
procedure TForm1.Button1Click(Sender: TObject);
begin
qryclientes.SQL.Clear;
qryclientes.SQL.Add(´Select * from Nvocc_Navioviagem´);
qryclientes.SQL.Add(´Where VIAGEM <> ´ + quotedstr(edit1.Text));
qryclientes.ExecSQL;
if qryclientes.Eof then
begin
qryclientes.sql.clear;
qryclientes.sql.add(´INSERT INTO Nvocc_Navioviagem (NAVIO, VIAGEM,´);
qryclientes.sql.add(´ENTRADA, OPERACAO, SAIDA,TRANSPORTADOR, ARMADOR,´);
qryclientes.sql.add(´ATRACACAO, MOEDA, VALOR, VENCIMENTO, FINANCIADO) ´);
qryclientes.sql.add(´ VALUES (´ +
quotedstr(ComboBox1.Text) + ´,´ +
quotedstr(edit1.Text) + ´,´ +
quotedstr(edit2.Text) + ´,´ +
quotedstr(edit3.text) + ´,´ +
quotedstr(edit4.text) + ´,´ +
quotedstr(edit5.text) + ´,´ +
quotedstr(edit6.text) + ´,´ +
quotedstr(ComboBox2.Text) + ´,´ +
quotedstr(ComboBox3.Text) + ´,´ +
quotedstr(edit7.Text) + ´,´ +
quotedstr(edit8.Text) + ´,´ +
quotedstr(edit9.Text) + ´)´);
qryclientes.execsql;
end
else
try
if Application.MessageBox(´Estes dados já existe no Banco de Dados, Deseja Salvar mesmo assim?´,
´Confirmação´, MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = idyes then
qryclientes.sql.clear;
qryclientes.sql.add(´UPDATE Nvocc_Navioviagem´);
qryclientes.sql.add(´set NAVIO =´ + quotedstr(ComboBox1.Text) + ´,´);
qryclientes.sql.add(´VIAGEM = ´ + quotedstr(edit1.Text) + ´,´);
qryclientes.sql.add(´ENTRADA = ´ + quotedstr(edit2.Text) + ´,´);
qryclientes.sql.add(´OPERACAO = ´ + quotedstr(edit3.Text) + ´,´);
qryclientes.sql.add(´SAIDA = ´ + quotedstr(edit4.Text) + ´,´);
qryclientes.sql.add(´TRANSPORTADOR = ´ + quotedstr(edit5.Text) + ´,´);
qryclientes.sql.add(´ARMADOR = ´ + quotedstr(edit6.Text) + ´,´);
qryclientes.sql.add(´ATRACACAO = ´ + quotedstr(ComboBox2.Text) + ´,´);
qryclientes.sql.add(´MOEDA = ´ + quotedstr(ComboBox3.Text) + ´,´);
qryclientes.sql.add(´VALOR = ´ + quotedstr(edit7.Text) + ´,´);
qryclientes.sql.add(´VENCIMENTO = ´ + quotedstr(edit8.Text) + ´,´);
qryclientes.sql.add(´FINANCIADO = ´ + quotedstr(edit9.Text));
qryclientes.sql.Add(´where VIAGEM = ´ + quotedstr(edit1.text));
qryclientes.execsql;
except
messageBeep(10);
end;
end;
Muito obrigado!!!
Fernando Cunha
Obs.: os outros Topicos meu eu já consegui Resolver obrigado.
Fernando_cunha
Curtidas 0
Respostas
Melo
17/05/2005
Cara, dei uma olhada rapida no seu codigo e fiz algumas modificações, mas não garanto 100¬ de funcionamento :roll: , qq coisa e so postar no forum que irei te ajudar :D
procedure TForm1.Button1Click(Sender: TObject);
begin
qryclientes.SQL.Clear;
qryclientes.SQL.Add(´Select * from Nvocc_Navioviagem´);
qryclientes.SQL.Add(´Where VIAGEM <> ´ + quotedstr(edit1.Text));
qryclientes.Open; -> Modifiquei Aki
if qryclientes.isEmpty then -> Modifiquei Aki
begin
qryclientes.close; -> Modifiquei Aki
qryclientes.sql.clear;
qryclientes.sql.add(´INSERT INTO Nvocc_Navioviagem (NAVIO, VIAGEM,´);
qryclientes.sql.add(´ENTRADA, OPERACAO, SAIDA,TRANSPORTADOR, ARMADOR,´);
qryclientes.sql.add(´ATRACACAO, MOEDA, VALOR, VENCIMENTO, FINANCIADO) ´);
qryclientes.sql.add(´ VALUES (´ +
quotedstr(ComboBox1.Text) + ´,´ +
quotedstr(edit1.Text) + ´,´ +
quotedstr(edit2.Text) + ´,´ +
quotedstr(edit3.text) + ´,´ +
quotedstr(edit4.text) + ´,´ +
quotedstr(edit5.text) + ´,´ +
quotedstr(edit6.text) + ´,´ +
quotedstr(ComboBox2.Text) + ´,´ +
quotedstr(ComboBox3.Text) + ´,´ +
quotedstr(edit7.Text) + ´,´ +
quotedstr(edit8.Text) + ´,´ +
quotedstr(edit9.Text) + ´)´);
qryclientes.execsql;
end
else
try
if Application.MessageBox(´Estes dados já existe no Banco de Dados, Deseja Salvar mesmo assim?´,
´Confirmação´, MB_ICONQUESTION + MB_YESNO + MB_DEFBUTTON2) = idyes then
begin
qryclientes.close; -> Modifiquei Aki
qryclientes.sql.clear;
qryclientes.sql.add(´UPDATE Nvocc_Navioviagem´);
qryclientes.sql.add(´set NAVIO =´ + quotedstr(ComboBox1.Text) + ´,´);
qryclientes.sql.add(´VIAGEM = ´ + quotedstr(edit1.Text) + ´,´);
qryclientes.sql.add(´ENTRADA = ´ + quotedstr(edit2.Text) + ´,´);
qryclientes.sql.add(´OPERACAO = ´ + quotedstr(edit3.Text) + ´,´);
qryclientes.sql.add(´SAIDA = ´ + quotedstr(edit4.Text) + ´,´);
qryclientes.sql.add(´TRANSPORTADOR = ´ + quotedstr(edit5.Text) + ´,´);
qryclientes.sql.add(´ARMADOR = ´ + quotedstr(edit6.Text) + ´,´);
qryclientes.sql.add(´ATRACACAO = ´ + quotedstr(ComboBox2.Text) + ´,´);
qryclientes.sql.add(´MOEDA = ´ + quotedstr(ComboBox3.Text) + ´,´);
qryclientes.sql.add(´VALOR = ´ + quotedstr(edit7.Text) + ´,´);
qryclientes.sql.add(´VENCIMENTO = ´ + quotedstr(edit8.Text) + ´,´);
qryclientes.sql.add(´FINANCIADO = ´ + quotedstr(edit9.Text));
qryclientes.sql.Add(´where VIAGEM = ´ + quotedstr(edit1.text));
qryclientes.execsql;
end;
except
messageBeep(10);
end;
end;GOSTEI 0
Fernando_cunha
17/05/2005
Bom dia,
Obrigado pela ajuda, mas mesmo assim continua dando errado, quando eu vou salvar um registro q ja existe ele da UPdate normal... so que quando eu vou salvar um novo ele ele pula direto pra rotina de update... ele nem passa pelo insert.
Obrigado pela ajuda, mas mesmo assim continua dando errado, quando eu vou salvar um registro q ja existe ele da UPdate normal... so que quando eu vou salvar um novo ele ele pula direto pra rotina de update... ele nem passa pelo insert.
GOSTEI 0
Fernando_cunha
17/05/2005
Bom eu mexendo aqui eu alterei
DE:
if qryclientes.isEmpty then
PARA:
if not qryclientes.isEmpty then
só q ele ao clicar ele insere, depois ele da erro de keyviolation, onde teria q dar update.....
DE:
if qryclientes.isEmpty then
PARA:
if not qryclientes.isEmpty then
só q ele ao clicar ele insere, depois ele da erro de keyviolation, onde teria q dar update.....
GOSTEI 0
Rjun
17/05/2005
Altere o primeiro select para
Tire esse not que você colocou no post anterior, deixando o if da seguinte maneira
Select * from Nvocc_Navioviagem Where VIAGEM = ´ + quotedstr(edit1.Text));
Tire esse not que você colocou no post anterior, deixando o if da seguinte maneira
if qryClintes.isEmpty
GOSTEI 0
Fernando_cunha
17/05/2005
Obrigado, Funcionou beleza.
GOSTEI 0