Fórum Armazenar BD em uma variável #385999

10/09/2010

0

Bom dia, Amigos

É possível armazenar vários campos do banco de dados numa variável?
O caso de uso seria:

Exemplo:
var

vBD : string;
begin

vBD := 'ClientDataSet.FieldByName('CAMPO1').AsString'+'ClientDataSet.FieldByName('CAMPO2').AsString'+
'ClientDataSet.FieldByName('CAMPO3').AsString'; //E assim por diante, mesmo que eu tenha 20 campos desses.

if vBD IsNotNull then
begin
MessageBox('Não é possível excluir esse cadastro!');
end;

Elton Ésqui

Elton Ésqui

Responder

Posts

10/09/2010

Eriley Barbosa

Sim é possível, só faça uma correção na linha abaixo: if vBD <> '' then
begin
MessageBox('Não é possível excluir esse cadastro!');
end;
Responder

Gostei + 0

10/09/2010

Renan Gouvea

Da uma conferida neste topico.. uma dessas situações deve te servir..http://forum.imasters.uol.com.br/index.php?/topic/206202-arrays-no-delphi/
Responder

Gostei + 0

10/09/2010

Elton Ésqui

Oi ERILEY VILAGRANDE BARBOSA

Faltou alguma coisa aí?
Não consegui!
também estou olhando o outro tópico, tem dicas interessante. Pensei mesmo em usar Arrays.
Obrigado!
Responder

Gostei + 0

10/09/2010

Eriley Barbosa

Qual o erro que dá? Eu to testando se a variavel que é do tipo string é diferente de vazio.
Responder

Gostei + 0

10/09/2010

Eriley Barbosa

Outra coisa você tem aspas a mais no seu código, se todos os campos são convertidos para string, não precisa das aspas: var

vBD : string;
begin

vBD := ClientDataSet.FieldByName('CAMPO1').AsString + ClientDataSet.FieldByName('CAMPO2').AsString + ClientDataSet.FieldByName('CAMPO3').AsString;  //E assim por diante, mesmo que eu tenha 20 campos desses.

if not(vBDt = '') then//Aqui são duas aspas simples e não aspas duplas
begin
MessageBox('Não é possível excluir esse cadastro!');
end;
Responder

Gostei + 0

16/09/2010

Elton Ésqui

Obrigado ERILEY
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar