Ola boa noite, se q o codigo ai não é dos melhores, mas é para ilustar para você´s o que eu quero implementar, tenho a tabela de clientes, estou usando o Zeos+mysql+delphi, no form tenho o dbgrid, dbnavegator e quando clico no posto do ndbnavigator quero implemnetar o codigo verificar primeiro se tem o codigo já cadastrado se não tiver grava e volta pro form, mas se tiver o codigo faz a checagem q fiz bem grotesca somente para ilustrar pois se q tem erros e você´s poderiam implementar da forma certa obrigado.
{
//nomex:string;
nomex:=dbgrid1.Columns.Items.FieldName(); //como pegar o nome do campo q esta no barra do titulo e a posicao
//codx:integer;
codx:=dbgrid1.SelectedIndex; //como pegar o conteudo do grid e também o nome do campo
QZexecta := ZQuery1.create(self);
QZexecta.Connection := ZConnection1."102.198.278.10"+"root"+"123"+"mysql5"; //como conectar ao banco
with QZexecta,SQL do begin
Text := 'select * from cliente where (codigo = '+inttostr(codx)+'))'; //verificar se já tem o codigo cadastrado se tiver
Open;
if RecordCount > 0 then begin //verifica se achou alguma coisa
if text=codx then begin
Showmessage('o Cliente já existe...');
inc(codx); //soma o codigo e volta no with e pesquisa novamente, como fazer isto para fazer um loop
end;
else
//recordcout=0 então não tem o codigo ai prossegue e grava o codigo
exit;
end;
end;
QZexecta.free;
}
outra coisa já vou apreveitar o post pra não ficar criando varios. Como fazer uma rotina q vai no servidor e pega todos os database que estão la e adciona
em um treeview ai eu clico no item do treiveiew e abre as opcoes para eu efetuar a coneccao.
Pergunta
Milton Carlos
Ola boa noite, se q o codigo ai não é dos melhores, mas é para ilustar para você´s o que eu quero implementar, tenho a tabela de clientes, estou usando o Zeos+mysql+delphi, no form tenho o dbgrid, dbnavegator e quando clico no posto do ndbnavigator quero implemnetar o codigo verificar primeiro se tem o codigo já cadastrado se não tiver grava e volta pro form, mas se tiver o codigo faz a checagem q fiz bem grotesca somente para ilustrar pois se q tem erros e você´s poderiam implementar da forma certa obrigado.
{
//nomex:string;
nomex:=dbgrid1.Columns.Items.FieldName(); //como pegar o nome do campo q esta no barra do titulo e a posicao
//codx:integer;
codx:=dbgrid1.SelectedIndex; //como pegar o conteudo do grid e também o nome do campo
QZexecta := ZQuery1.create(self);
QZexecta.Connection := ZConnection1."102.198.278.10"+"root"+"123"+"mysql5"; //como conectar ao banco
with QZexecta,SQL do begin
Text := 'select * from cliente where (codigo = '+inttostr(codx)+'))'; //verificar se já tem o codigo cadastrado se tiver
Open;
if RecordCount > 0 then begin //verifica se achou alguma coisa
if text=codx then begin
Showmessage('o Cliente já existe...');
inc(codx); //soma o codigo e volta no with e pesquisa novamente, como fazer isto para fazer um loop
end;
else
//recordcout=0 então não tem o codigo ai prossegue e grava o codigo
exit;
end;
end;
QZexecta.free;
}
outra coisa já vou apreveitar o post pra não ficar criando varios. Como fazer uma rotina q vai no servidor e pega todos os database que estão la e adciona
em um treeview ai eu clico no item do treiveiew e abre as opcoes para eu efetuar a coneccao.
obrigado
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.