Como referenciar um select na Unit???
[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]
//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
Curtidas 0
Respostas
Edmar Zatarin
16/04/2003
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
--------------------------------------------------------------------------------
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
GOSTEI 0
Rodrigocesar
16/04/2003
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?
------------------------------------------------------------------------------------
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
GOSTEI 0