(Resolvido) SQL no Delphi

[Sr. Mendes - Inaldo]

Galera alguém pode me ajudar ai com um problema que eu estou tendo, é o seguinte:

no meu programa tem uma tela de cadastro de ocorrências, e tem o número do atendimentos que tem que ser preenchida pelo usuário ...

O cadastro está ok, a consulta também, só que os números de atendimentos podem ser cadastrados mais de uma vez, esta ocorrendo de ter atendimento com o número repetido

eu queria fazer um select no delphi que ele puchasse do banco os números de atendimentos para verificar se esta sendo ou não repetido

inicialmente pensei em fazer um

QUERY.SQL.ADD ('SELECT COUNT(*) FROM NOME_TABELA WHERE CODIGO_ATENDIMENTE = ' +DBDIT.TEXT);

QUERY.OPEN;

IF MessageDlg('Atendimento já existe, Deseja Continuar?', mtconfirmation,[mbyes, mbno],0) = mryes then...

ai eu me enganchei nesse ponto, alguém pode me ajudar?

Desde já agradeço!

[Jhonas]

O cadastro está ok, a consulta também, só que os números de atendimentos podem ser cadastrados mais de uma vez, esta ocorrendo de ter atendimento com o número repetido

Na Query

QUERY.SQL.CLEAR;
QUERY.SQL.ADD ('SELECT MAX (CAST(CODIGO_ATENDIMENTO AS INTEGER) FROM NOME_TABELA);

Para usar

QUERY.Active := true;
   Label1.Caption := ' Código de Atendimento =  ' + inttostr(QUERYMAXOFCODIGO_ATENDIMENTO.Value+1);
   QUERY.Active := false;

OBS: desta maneira voce não terá um código repetido, pois ele pegará o maior existente e somará mais 1

abraço

[Sr. Mendes - Inaldo]

Mas ela não pode ser um auto increment, eu tenho que preencher, e tem também que fazer um IF, esse código de atendimento é diferente.

Editado Julho 5, 2009 por Sr. Mendes - Inaldo

[Jhonas]

Mas ela não pode ser um auto increment, eu tenho que preencher, e tem também que fazer um IF, esse código de atendimento é diferente.

De um exemplo de como voce pensa em fazer

[Sr. Mendes - Inaldo]

eu estava fazendo pra ele

tipo verificar no banco através de um select count quantos registros tem com o número digitado no DBEdit, só que esta dando erro na sintaxe do sql eu fiz da seguint forma

qGeral.SQL.Clear;

qGeral.SQL.Text := 'SELECT COUNT(*) FROM LUIZEDUARDO.SIAL WHERE CD_ATENDIMENTO ='+DBEdit2.Text;

qGeral.Open;

no delphi ele diz que o erro está no sinal de igual que vem depois do CD_ATENDIMENTO

e depois disso eu iria fazer um if com um showMessage falando que o código já existe, e perguntando se ele deseja continuar ou voltar e corrigir o código, porque ele vai ter a opação de permanecer também com o código já existente,

se quiser me da uma ajuda com esse IF ai eu fico muito grato! ...

e desde já agradeço ai pela ajuda!

[Jhonas]

Um exemplo o uso da sintaxe:

SELECT COUNT( * ) FROM TABELA WHERE COD = 'UNI2'

no seu caso

qGeral.SQL.Clear;
qGeral.SQL.Text := 'SELECT COUNT(*) FROM LUIZEDUARDO.SIAL WHERE CD_ATENDIMENTO ='+DBEdit2.Text;
qGeral.Open;

Observe no exemplo acima, que o conteudo do DBEdit2.Text terá que estar entre apostrofes então ficaria assim:

qGeral.SQL.Clear;
qGeral.SQL.Text := 'SELECT COUNT(*) FROM LUIZEDUARDO.SIAL WHERE CD_ATENDIMENTO ='+'''' + dBEdit2.Text + '''';
qGeral.Open;

Vale lembrar que este DBEdit2.Text estiver linkado com a mesma tabela que estiver dentro da select, voce não terá valor algum nele. Voce deveria passar um valor para a select atravez de um Edit

qGeral.SQL.Clear;
qGeral.SQL.Text := 'SELECT COUNT(*) FROM LUIZEDUARDO.SIAL WHERE CD_ATENDIMENTO ='+'''' + Edit1.Text + '''';
qGeral.Open;

abraço

[Sr. Mendes - Inaldo]

Jhonas ... eu agradeço bastante ai pela sua ajuda, mas não deu certo cara, :blink: rsrsrsrsr ...

ainda continua dando o seguinte erro: 'table is read only' --> tabela somente leitura.

já tentei de todos os jeitos mas não da certo o erro persiste. :(

e o que eu quero é só que ele procure no banco se já existe o código que eu digitar no DBEdit...

:wacko:

[Sr. Mendes - Inaldo]

consegui aqui fazer de um jeito que ele passou do comando do sql

foi dessa forma

with qAtende do
          begin
            SQL.Text := 'SELECT COUNT (*) FROM LUIZEDARDO.SIAL WHERE CD_ATENDIMENTO='+ QuotedStr(DBEdit2.Text);
          end;

só que agora eu to enganchado no IF, porque eu queria fazer um IF assim: Se o resultado do select > 0 então faça a condição

só que eu não sei o que colocar nesse "resultado do select"

eu to fazendo assim e ta dando erro

if qAtende.FieldByName[0].AsInteger > 0 then

//condição

pode me ajudar com esse IF ai?

Agradeço!

[Jhonas]

eu to fazendo assim e ta dando erro

if qAtende.FieldByName[0].AsInteger > 0 then

//condição

pode me ajudar com esse IF ai?

tente assim

if qAtende.RecordCount > 0 then

// condição

abraço

[Sr. Mendes - Inaldo]

NÃO DE CERTO COM ESSE IF AI NÃO, DA ERRO, O IF QUE EU FIZ TAVA PASSANDO SÓ QUE NÃO MOSTRAVA O SHOW MESSAGE, QUE FOI ESSE:

if (qAtende.FieldByName('CD_ATENDIMENTO').AsInteger) > 0 then

ShowMessage('Atendimento já existe, deseja continuar?');

[Jhonas]

Então tente assim :

if (qAtende.FieldByName('CD_ATENDIMENTO').AsInteger) > 0 then
   begin

       if MessageDlg('Atendimento já existe, deseja continuar ?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
          begin
             //  comandos
          end
       else
          begin
             //  comandos
          end;
   end;

abraço

[Sr. Mendes - Inaldo]

Cara deu certo aqui! ... até que enfim! .. kkkk ... obrigado! ...

e parabéns ai pelo fórum muito bom!

Abraço!

Editado Julho 8, 2009 por Sr. Mendes - Inaldo