Fórum Como referenciar um select na Unit??? #155342

16/04/2003

0

[color=blue:7d7e686b7f]Gostaria de um exemplo de como referenciar uma select que eu criei no sql através da peleta de componentes [b:7d7e686b7f]Zeos Access[/b:7d7e686b7f]dentro da minha Unit. Exemplo:

//while ({campo da do banco de dados} <> ´´)
//do;
//begin
//if (edtnume.Text == {campo da tabela})
//showmessage(´Este campo já existe´);
//end
//else
begin
{insert no banco de dados}
end;

Ou seja, vai percorrer os campos da tabela até encontrar um já existente ou vazio, se existente emmitir mensagem que já exite.[/color:7d7e686b7f]


Rodrigocesar

Rodrigocesar

Responder

Posts

16/04/2003

Edmar Zatarin

Enviada: Qua Abr 16, 2003 4:57 pm Assunto: Como referenciar um select na Unit???

--------------------------------------------------------------------------------
Gostaria de um exemplo de como referenciar uma select que eu criei no sql através da peleta de componentes Zeos Access dentro da minha Unit. Exemplo:

//while (query.fieldbyname(´<campo´).asstring) <> ´´) // se for inteiro
// coloque asinteger no final
//do;
//begin
//if (edtnume.Text == (query.fieldbyname(´<campo´).asstring))
//showmessage(´Este campo já existe´);
//end
//else
begin
query.close;
query.sql.clear;
query.sql.add(´ Insert into <tabela> ´);
query.sql.add(´ (<campo1>,<campo2>,<campo3>) ´);
query.sql.add(´ Values ´);
// se campo1 for string e data coloque
// ´+chr(39)+ trim(campo1.text) +chr(39)+´
// se for inteiro coloque ´+ campo1.text +´
// essa regra vale para todos os campos
// vou considerar os 3 campos de exemplo como string
query.sql.add(´ (´+chr(39)+ trim(campo1.text) +chr(39)+´ , ´);
query.sql.add(´ ´+chr(39)+ trim(campo2.text) +chr(39)+´ , ´);
query.sql.add(´ ´+chr(39)+ trim(campo.text) +chr(39)+´ ) ´);
query.Execsql;
{insert no banco de dados}
end;

lembre-se que os campos e valores da instrucao insert tem que estar em ordem.

espero que o tenha ajudado


oks............

abracao.............. :wink:
Ou seja, vai percorrer os campos da tabela até encontrar um já existente ou vazio, se existente emmitir mensagem que já exite


Responder

Gostei + 0

16/04/2003

Rodrigocesar

Edmar, agradeço muito pela sua resposta, mas não deu certo... Deus uns erros e não compilou... query não declarada.

Se vc me desse um exemplo um pouco mais simples, ou seja, imagine que meu form tenha apenas um campo ´para ficar mais fácil´ e um botão de cadastrar, no qual inseriria os dados no banco de dados... Ao clicar no botão qual instrução de código eu usaria?

------------------------------------------------------------------------------------
Enviada: Qua Abr 16, 2003 4:57 pm Assunto: Como referenciar um select na Unit??? -------------------------------------------------------------------------------- Gostaria de um exemplo de como referenciar uma select que eu criei no sql através da peleta de componentes Zeos Access dentro da minha Unit. Exemplo: //while (query.fieldbyname(´<campo´).asstring) <> ´´) // se for inteiro // coloque asinteger no final //do; //begin //if (edtnume.Text == (query.fieldbyname(´<campo´).asstring)) //showmessage(´Este campo já existe´); //end //else begin query.close; query.sql.clear; query.sql.add(´ Insert into <tabela> ´); query.sql.add(´ (<campo1>,<campo2>,<campo3>) ´); query.sql.add(´ Values ´); // se campo1 for string e data coloque // ´+chr(39)+ trim(campo1.text) +chr(39)+´ // se for inteiro coloque ´+ campo1.text +´ // essa regra vale para todos os campos // vou considerar os 3 campos de exemplo como string query.sql.add(´ (´+chr(39)+ trim(campo1.text) +chr(39)+´ , ´); query.sql.add(´ ´+chr(39)+ trim(campo2.text) +chr(39)+´ , ´); query.sql.add(´ ´+chr(39)+ trim(campo.text) +chr(39)+´ ) ´); query.Execsql; {insert no banco de dados} end; lembre-se que os campos e valores da instrucao insert tem que estar em ordem. espero que o tenha ajudado oks............ abracao.............. :wink: Ou seja, vai percorrer os campos da tabela até encontrar um já existente ou vazio, se existente emmitir mensagem que já exite



Responder

Gostei + 0

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

Aceitar