Insert apenas se n�o existir??? How?

Question

Colegas podem me ajudar? Desejo saber como fa�o pra no bot�o de inserir, ele s� complete a opera��o de inser��o se os c�digos n�o existirem na tabela.   Estou usando SQL Server 7.  Tabela Contas.CAMPO...

Airto · Answer

faz um select passando como chave o campo, e verifica se existe!!...

Dead_thinker · Answer

Cara obrigado pela ajuda, eu tb acho q deve usar um select, mas n�o sei COMO usar para esse caso, acho q teria q ter uma procedure no SQL, mas n�o tenho nem id�ia de como � o comando. Hhehehehhehe :lol: .
Imaginei q teria um �If...select n�oRetornarNada then inclua�, mas n�o sei como fazer isso em termos de comandos SQL.
Foi malz ai se n�o expliquei direito!

Obrigado pelo help! :D

Nigro · Answer

if query1.RecordCount = 0 then append postelse  editou voce pode usar um locateif locate.....editelseappend...

Dead_thinker · Answer

Eu tentei colocar assim �, mas n�o sei pq naum t� dando certo. Se algu�m puder me ajudar agrade�o!

Segue c�digo:

procedure TForm4.Button1Click(Sender: TObject);
begin
with Form1.QVerify do
begin
CLose;
SQl.Clear;
SQL.Add(�Select Count(*)�);
SQL.Add(�from Contas�);
SQL.Add(�where NumAge = (:0_nAG) and NumConta = (:1_nCT)�);
Parameters[0].Value:= strtoint(Edit1.Text);
Parameters[1].Value:= strtoint(Edit2.Text);
ExecSQL;
Open;
end;
If (Form1.QVerify.RecordCount= 0) then
begin
with Form1.QGeral do
begin
Close;
SQL.Clear;
SQL.Add(�insert into CONTAS�);
SQL.Add(�(Numage, Numconta, Limite, Saldo) Values�);
SQl.Add(�(:0_nAG, :1_nCT, :2_Lim, :3_Sald)�);
Parameters[0].Value:= strtoint(Edit1.Text);
Parameters[1].Value:= strtoint(Edit2.Text);
Parameters[2].Value:= strtofloat(Edit3.Text);
Parameters[3].Value:= strtofloat(Edit4.Text);
ExecSQL;
end;
ShowMessage(�Registro Inclu�do!�);;
Button5Click(Sender);
end
Else
ShowMessage(�Ag�ncia/Conta existentes!�)
end;

Fbag22 · Answer

Crie uma Procedure com este codigo SQL:SELECT     NumAgencia, NumConta, Limite, SaldoFROM         dbo.ContasWHERE     (NumConta = @Conta)no componente ADO selecione esta procedure e veja a propriedade Parameters, deve ter dois valores: @return ou alguma coisa assim e @Conta, agora via codigo, basta fornecer o parametro.ADODataset.Parameters[1].Value := NumdaConta;ADODataset.Requery;e ent�o � s� contar os camposIF ADODataset.RecordCount > 0 Then  ShowMessage(�Existe esta conta�)ELSE  os comandos de Insert...Espero que tenha ajudado...

Fbag22 · Answer

Seu c�digo parece estar certo, mas se vc cria o select em runtime costuma dar alguns problemas, por exemplo vc tem que colocar os valores do parametro como null, mas tente no lugar de
SQL.Add(�where NumAge = (:0_nAG) and NumConta = (:1_nCT)�);
colocar
SQL.Add(�where NumAge = @0_nAG and NumConta = @1_nCT�);

F�rum Insert apenas se n�o existir??? How? #197511