select
Olá pessoal estou fazendo um select na minha tabela:
work.SQL.Text := ´Select count(*) ´ +
´ from ´ +
´´C:\PesquisaOrg\dbPesquisaOrg.DB´´ +
´ where Q1 = F ´ ;
work.Open;
mas está dando o seguinte erro: ´Invalid field name: F´
work.SQL.Text := ´Select count(*) ´ +
´ from ´ +
´´C:\PesquisaOrg\dbPesquisaOrg.DB´´ +
´ where Q1 = F ´ ;
work.Open;
mas está dando o seguinte erro: ´Invalid field name: F´
Daia
Curtidas 0
Respostas
Rjun
02/05/2005
Ele não esta encontrando o campo F. O que seria F no seu caso ?
GOSTEI 0
Gandalf.nho
02/05/2005
O que é o F? Um campo ou um valor de parâmetro?
GOSTEI 0
Daia
02/05/2005
O ´F´ tenho gravado na tabela quer dizer que é do sexo ´Feminino´, mas só gravei F na tabela...
GOSTEI 0
Rjun
02/05/2005
Você tem q colocar o F entre aspas simples.
work.SQL.Text := ´Select count(*) ´ + ´ from ´ + ´´C:\PesquisaOrg\dbPesquisaOrg.DB´´ +
´ where Q1 = ´´F´´ ´ ;
GOSTEI 0
Gandalf.nho
02/05/2005
Vc tem que pôr o F entre aspas ou apóstrofos, dependendo do banco de dados e não como está no seu código. Se for aspas, tente assim:
work.SQL.Text := ´Select count(*) from ´ + ´"C:\PesquisaOrg\dbPesquisaOrg.DB"´ + ´ where Q1 = ´ + QuotedStr(´F´); work.Open;
GOSTEI 0
Daia
02/05/2005
work.SQL.Text := ´Select count(*) ´ +
´ from ´ +
´´C:\PesquisaOrg\dbPesquisaOrg.DB´´ +
´ where Q1 = ´ + ´F´ ;
work.Open;
acabei de fazer isso, mas deu o mesmo erro...
´ from ´ +
´´C:\PesquisaOrg\dbPesquisaOrg.DB´´ +
´ where Q1 = ´ + ´F´ ;
work.Open;
acabei de fazer isso, mas deu o mesmo erro...
GOSTEI 0
Rjun
02/05/2005
O jeito que você fez é idêntico ao seu primeiro post. Faça como eu ou o Gandalf.nho.
GOSTEI 0
Daia
02/05/2005
Usando o ´QuotedStr´ deu certo... Valeu...
Mais uma perguntinha como faço para exibir este resultado em um qrLabel??
Mais uma perguntinha como faço para exibir este resultado em um qrLabel??
GOSTEI 0
Gandalf.nho
02/05/2005
Faça uma pequena alteração no seu código assim:
E depois para atribuir ao QrLabel faça assim:
work.SQL.Text := ´Select count(*) as Contador from ´ + ´"C:\PesquisaOrg\dbPesquisaOrg.DB"´ + ´ where Q1 = ´ + QuotedStr(´F´); work.Open;
E depois para atribuir ao QrLabel faça assim:
QRLabel1.Caption := work.FieldByName(´Contador´).AsString;
GOSTEI 0
Daia
02/05/2005
Valeu, funcionou certinho...
GOSTEI 0