| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
S.Santos
Aprendiz
Registrado: Domingo, 29 de Janeiro de 2012
Mensagens: 181
Localização: Terra do Sol
|
 Enviada: Ter Nov 27, 2012 8:51 pm Assunto: Consulta ADODataset[RESOLVIDO] |
 |
|
Estou com problema em uma consulta,
antes ulilizava adoTable funcionava direitinho, mais com adodataset esta dando erro
nesta linha
| Código: | | if DM.DSetclientes.Locate('CPF',maskedit1.Text, [b][loPartialKey ][/b]) then |
No loPartialkey
erro
| Citação: | | declaration expected but 'IF' found |
no FilterRecord do dataset
| Código: | begin
Accept := Pos(frmdistribuicao.Maskedit1.Text, DM.DSetclientes.FieldByName('CPF').AsString) = 1;
end; |
Comando de busca
| Código: | if DM.DSetclientes.Locate('CPF',maskedit1.Text, [loPartialKey ]) then
begin
DM.DSetclientes.OnFilterRecord := DM.DSetclientesFilterRecord;
DM.DSetclientes.Filtered:= True;
btndistribuir.Visible:=True;
end
else
begin
MessageDlg('Cliente Não Encontrado, Verifique o Cadastro e Tente Novamente !', mtInformation, [mbok],0);
DM.DSetclientes.Filtered:= false;
DM.DSetclientes.OnFilterRecord := nil; |
alguem?
[]s
_________________
"Computadores fazem o que voce manda, não o que voce quer"
Editado pela última vez por S.Santos em Qua Nov 28, 2012 2:07 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
 |
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Ter Nov 27, 2012 8:57 pm Assunto: |
|
|
Boa noite,
Existe muito código (na mesma procedure ou function) acima do If?
Pela mensagem o erro parece estar antes do If.
De uma conferida ou poste o código que está acima do If.
Editado pela última vez por imex em Ter Out 03, 2023 4:52 pm, num total de 1 vez |
|
| Voltar ao Topo |
|
|
S.Santos
Aprendiz
Registrado: Domingo, 29 de Janeiro de 2012
Mensagens: 181
Localização: Terra do Sol
|
| Enviada: Ter Nov 27, 2012 9:07 pm Assunto: |
|
|
| imex escreveu: | Boa noite,
Existe muito código (na mesma procedure ou function) acima do If?
Pela mensagem o erro parece estar antes do If.
De uma conferida ou poste o código que está acima do If.
|
Acima do If tem apenas Begin
[]s
_________________
"Computadores fazem o que voce manda, não o que voce quer" |
|
| Voltar ao Topo |
|
|
S.Santos
Aprendiz
Registrado: Domingo, 29 de Janeiro de 2012
Mensagens: 181
Localização: Terra do Sol
|
| Enviada: Ter Nov 27, 2012 9:16 pm Assunto: |
|
|
| S.Santos escreveu: | | imex escreveu: | Boa noite,
Existe muito código (na mesma procedure ou function) acima do If?
Pela mensagem o erro parece estar antes do If.
De uma conferida ou poste o código que está acima do If.
|
Acima do If tem apenas Begin
[]s |
Essa Procedure está logo acima
| Citação: | procedure Tfrmdistribuicao.btndistribuirClick(Sender: TObject);
begin
Shape1.Visible:=True;
btninserir.Visible:=True;
DBComboBox1.Visible:=True;
DBText1.Visible:=False;
DBText2.Visible:=False;
DBText3.Visible:=False;
DBText4.Visible:=False;
DM.DSetprodutores.Edit;
btndistribuir.Visible:=False;
end; |
_________________
"Computadores fazem o que voce manda, não o que voce quer" |
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Ter Nov 27, 2012 9:23 pm Assunto: |
|
|
E entre o Begin e a procedure Tfrmdistribuicao.btndistribuirClick?
Acho que acima do Begin e antes do final da procedure Tfrmdistribuicao.btndistribuirClick deveria estar a declaração da procedure ou function a qual pertence o código com o If e etc. |
|
| Voltar ao Topo |
|
|
S.Santos
Aprendiz
Registrado: Domingo, 29 de Janeiro de 2012
Mensagens: 181
Localização: Terra do Sol
|
| Enviada: Qua Nov 28, 2012 12:48 pm Assunto: |
|
|
Variavel declarada
| Código: |
var
frmdistribuicao: Tfrmdistribuicao;
|
procedure de pesquisa.
| Código: | procedure Tfrmdistribuicao.btnpesquisarClick(Sender: TObject);
begin
if DM.DSetclientes.Locate('CPF',maskedit1.Text, [loPartialKey ]) then
begin
DM.DSetclientes.OnFilterRecord := DM.DSetclientesFilterRecord;
DM.DSetclientes.Filtered:= True;
btndistribuir.Visible:=True;
end
else
begin
MessageDlg('Cliente Não Encontrado, Verifique o Cadastro e Tente Novamente !', mtInformation, [mbok],0);
DM.DSetclientes.Filtered:= false;
DM.DSetclientes.OnFilterRecord := nil;
Maskedit1.Clear;
DBEdit5.Clear;
DBEdit3.Clear;
btninserir.Visible:=False;
btneditar.Visible:= False;
end;
end; |
se talvez seja a declaração de um variavel pq o erro seta no loPartialKey?
[]s
_________________
"Computadores fazem o que voce manda, não o que voce quer" |
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Qua Nov 28, 2012 1:29 pm Assunto: |
|
|
Adicione a unit DB a uses do seu Form, caso ainda não tenha adicionado.
O que eu disse antes foi baseado na mensagem que você postou no início. |
|
| Voltar ao Topo |
|
|
S.Santos
Aprendiz
Registrado: Domingo, 29 de Janeiro de 2012
Mensagens: 181
Localização: Terra do Sol
|
| Enviada: Qua Nov 28, 2012 1:38 pm Assunto: |
|
|
| imex escreveu: | Adicione a unit DB a uses do seu Form, caso ainda não tenha adicionado.
O que eu disse antes foi baseado na mensagem que você postou no início. |
O meuo dataset esta em Dm, fiz teste com o componete dataset direto no formulario deu certo. sera por conta disso?
[]s
_________________
"Computadores fazem o que voce manda, não o que voce quer" |
|
| Voltar ao Topo |
|
|
S.Santos
Aprendiz
Registrado: Domingo, 29 de Janeiro de 2012
Mensagens: 181
Localização: Terra do Sol
|
| Enviada: Qua Nov 28, 2012 1:40 pm Assunto: |
|
|
| S.Santos escreveu: | | imex escreveu: | Adicione a unit DB a uses do seu Form, caso ainda não tenha adicionado.
O que eu disse antes foi baseado na mensagem que você postou no início. |
O meuo dataset esta em Dm, fiz teste com o componete dataset direto no formulario deu certo. sera por conta disso?
[]s |
Deu certo aqui. mas pq add a DB na uses do form?
[]s
_________________
"Computadores fazem o que voce manda, não o que voce quer" |
|
| Voltar ao Topo |
|
|
imex
Moderador
Registrado: Sexta-Feira, 7 de Janeiro de 2011
Mensagens: 11666
|
| Enviada: Qua Nov 28, 2012 1:46 pm Assunto: |
|
|
Ao adicionar o DataSet dentro do Form o Delphi deve ter adicionado sozinho a unit DB a uses.
É necessário adicionar porque é dentro da unit DB que estão declaradas as opções do Locate (TLocateOptions), loCaseInsensitive e loPartialKey. |
|
| Voltar ao Topo |
|
|
S.Santos
Aprendiz
Registrado: Domingo, 29 de Janeiro de 2012
Mensagens: 181
Localização: Terra do Sol
|
| Enviada: Qua Nov 28, 2012 2:05 pm Assunto: |
|
|
| imex escreveu: | Ao adicionar o DataSet dentro do Form o Delphi deve ter adicionado sozinho a unit DB a uses.
É necessário adicionar porque é dentro da unit DB que estão declaradas as opções do Locate (TLocateOptions), loCaseInsensitive e loPartialKey. |
Ok, Obrigado mais uma vez.
[]s
_________________
"Computadores fazem o que voce manda, não o que voce quer" |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
