Armazenar BD em uma variável
Bom dia, Amigos
É possível armazenar vários campos do banco de dados numa variável?
O caso de uso seria:
Exemplo:
É 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
Curtidas 0
Respostas
Eriley Barbosa
10/09/2010
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;
begin
MessageBox('Não é possível excluir esse cadastro!');
end;
GOSTEI 0
Renan Gouvea
10/09/2010
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/
GOSTEI 0
Elton Ésqui
10/09/2010
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!
Faltou alguma coisa aí?
Não consegui!
também estou olhando o outro tópico, tem dicas interessante. Pensei mesmo em usar Arrays.
Obrigado!
GOSTEI 0
Eriley Barbosa
10/09/2010
Qual o erro que dá?
Eu to testando se a variavel que é do tipo string é diferente de vazio.
GOSTEI 0
Eriley Barbosa
10/09/2010
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;
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;
GOSTEI 0
Elton Ésqui
10/09/2010
Obrigado ERILEY
GOSTEI 0