Curinga

Depois que eu mando calcular... você não tem nenhum exemplo de programa seu que tenha dado certo?, porque esse não dá...

se eu deixo o campo CODIGO em branco ele busca normal, agora se eu digito algum valor lá, ele da aquele erro que eu informei "Capability not supported". Ta dando erro, o que vem a ser esse JET?

Eu fiz isso, você entra no DELPHI e compila o arquivo que vem com DLL3 e na hora de digitar a IE, (SEM PONTO NENHUM) ele acusa que "F' não é um número inteiro, da essa mensagem, eu não sei o q é q ta acontecendo... Tenho CERTEZA que ta certo...

Sim, compilei, e copiei, tem um problema, ele diz que o numero que eu informo não é um numero inteiro, mas é, pois eu não to usando ponto nem nada... Esses codigos não tão dando certo...

Sim, vi a documentação e não deu certo, da erro toda hora, se algm tiver um exemplo que tenha dado certo pra me arruma eu agradeço... Obrigado...

Não deu CERTO...

Pessoal, eu ainda não testei os códigos que vocês me passaram, mas desde já, agradeço a intenção. Vou testar, e assim que der certo eu retorno, OK? valeu pessoal, mais uma vez...

Testei o código que você me passou, e no campo NOME, deu certo, mas no campo CÓDIGO deu erro, deu a seguinte mensagem: "Capability not supported". Olha como eu to fazendo: QrFisica.close; QrFisica.sql.clear; QrFisica.SQL.Add('Select * FROM TCPFisica Where 1=1'); if EdtNome.Text <> '' then QrFisica.Sql.Add(' AND Upper(NOME) LIKE Upper(' + quotedstr('%' + EdtNome.Text + '%') + ')') if EdtCodigo.Text <> '' then QrFisica.Sql.Add(' AND Str(CODIGO) LIKE ' + quotedstr('%' + EdtCodigo.Text + '%')); QrFisica.open; já coloquei ELSE antes do segundo IF, mesmo assim não deu. Tem algum erro? valeu, mais uma vez...

Pessoal, Gostaria de perguntar se algm sabe como validar INSCRIÇÃO ESTADUAL no DELPHI, já procurei, mas, não consigo encontra nada sobre o assunto, e as coisas que encontram ou são incompletas ou são de outras linguagens. Então fico agradecido e a espera de respota. Pessoal, mais uma vez valeu pela atenção...

eu to usando SQL como busca e minah tabela é do tipo PARADOX, então, como eu deveria fazer pra da certo? Olha, eu qria que fosse da escolha da pessoa a busca, ex: Se ela qser buscar por Nome ou por Codigo, então independente se um dos campos ficar em branco, porque nesse caso eu vo precisa preencher os dois edits pra ele procura. então vamos por parte. Eu qria que ele buscasse todos os codigos que contenham o numero digitado, Ex. se ele digitar 1, ele busca: 11, 21, 110, 71. Se ele digitar no Nome: D, ele busca: Joao Da Silva, amanDa. E se caso um dos campos estiver em branco ele busque apenas naquele que esta preenchido. Será que tem como fazer? deve ser dificil, mas eu acho q tem... Se poder me ajudar eu fico grato...

Deu erro, olha como tá a minha pesquisa Query1.sql.add('select * from Tabela where Upper(Nome) Like Upper(' +#39+'%' +EdtNome.Text+ '%'+#39+ ')'); eu coloquei depois da dica assim Query1.sql.add('select * from Tabela where Upper(Nome) Like Upper(' +#39+'%' +EdtNome.Text+ '%'+#39+ ') and CODIGO like (' +EdtCODIGO.Text +') '); Compilo normal, mas deu erro na hora de testa, será que é porque o meu Nome é Alfanumérico e meu Código não?

Pessoal, Estou fazendo um programa, e surgiu uma dúvida na parte de busca. Minha busca é feita em SQL, na busca a pessoa tem a opção de buscar pelo CÓDIGO do cliente ou pelo NOME, ou seja, dois Edits, então, eu gostaria de saber, tem como ser feita uma busca da seguinte forma: Ex: No edit do CÓDIGO a pessoa digita. Ex: 1 No edit do NOME a pessoa digita. Ex: J Então o programa busca TODOS que contenham 1 no CODIGO e todos que contenham J no NOME. Tem como fazer isso? Agradeço desde já a atenção de todos... Obrigado.

Pessoal, não deu certo, quando eu entro no campo CPF, e saio, se ele estiver vazio ele não da erro, porém, o CPF ele sempre acusa que é inválido, arrumo um, porém, o outro deu problema. Bom o esquema ta aí em cima, caso algm possa me ajudar, eu fico agradecido. Galera, valeu mais uma vz. Aguardo respostas...

Pessoal, eu ainda não testei as dicas, mas desde já, agradeço a atenção. AN_CP O programa ele valida perfeitamente o CPF, porém, eu gostaria que quando eu entrasse no campo e saísse e deixasse em branco o campo CPF, ele não desse erro, o meu EDIT é MASK, em tão, quando eu entro no campo, ele aparece assim ( . . - ), quando eu deixo em branco, ele me emite uma mensagem que esse numero não é um numero inteiro, coisa desse tipo, então eu gostaria de saber como eu faço, pra entrar no campo do CPF, e ao sair se ele estiver em branco, ele pulasse, ou seja, não emitisse nenhuma mensagem de erro, e simplesmente pula para o proximo campo, sem mensagem alguma. Eu vou testar as dicas e logo eu coloco a resposta se deu ou não certo. Pessoal, valeu por enquanto... RICARDO_PF o campo já esta preenchido, como eu falei, ele já ta com o Mask da seguinte forma ( . . - ), então quando entro no campo ele aparece assim ( . . - )

No meu programa de cadastro, tem um EditMask para o CPF, q valida o CPF se ele for verdqadeiro, porém, se eu sair dele com o campo vazio, ele da erro. Então minha duvida e minha pergunta é a seguinte: Como eu faço para sair do EditMask com o campo vazio sem que ele de um erro, pedindo pra que eu digite o CPF. aki vai a forma no qual eu estou fazendo: function TCadastro.CPF(num: string): boolean; var n1,n2,n3,n5,n6,n7,n9,n10,n11: integer; d1,d2: integer; digitado, calculado: string; begin n1:=StrToInt(num[1]); {1} n2:=StrToInt(num[2]); {2} n3:=StrToInt(num[3]); {3} n5:=StrToInt(num[5]); {4} n6:=StrToInt(num[6]); {5} n7:=StrToInt(num[7]); {6} n9:=StrToInt(num[9]); {7} n10:=StrToInt(num[10]); {8} n11:=StrToInt(num[11]); {9} d1:=n11*2+n10*3+n9*4+n7*5+n6*6+n5*7+n3*8+n2*9+n1*10; d1:=11-(d1 mod 11); if d1>=10 then d1:=0; d2:=d1*2+n11*3+n10*4+n9*5+n7*6+n6*7+n5*8+n3*9+n2*10+n1*11; d2:=11-(d2 mod 11); if d2>=10 then d2:=0; calculado:=inttostr(d1)+inttostr(d2); digitado:=num[13]+num[14]; if (calculado=digitado) then cpf:=true else cpf:=false; end; NO EVENTO ON EXIT DO EDITMASK: If NOT cpf(EdtCPF.text) then Begin messagebox(Application.Handle, Pchar ('O CPF ' +EdtCPF.Text+ ' não existe, deseja continuar assim mesmo?'), 'Atenção', MB_OK+MB_ICONWARNING+MB_DEFBUTTON1); EdtCPF.SetFocus; End Onde esta o erro? valeu pela atenção.... Aguardo resposta....

Olá pessoal, estou com uma duvida e estou me recorrendo a vocês para me ajudar. Estou usando um Maskedit para digitar o CPF em um cadastro, mas como faço pra ele gravar as informações em uma tabela, eu geralmente costumo usar o DBEdit, como faço com que o Maskedit assuma essa mesma função? Obrigado pela atenção Aguardo resposta...

agora deu certo, valeu obrigado pela dica....

Tenho um programa com busca em SQL, a busca tem um pequeno erro, por exemplo, se eu cadastrei um Cliente chamado Antonio da Silva (o nome começa com letra maiuscula) e se eu por na busca antonio (com a primeira letra em minusculo), ele não localiza, ele só vai localizar se eu digitar Antonio, com a primeira letra maiuscula, o inverso também acontece, se eu cadastrar antonio (com minuscula) e por pra localizar com maisucula, Antonio, ele não acha. Como faço pra resolver esse problema? estou usando a busca da seguinte forma: Query1.close; Query1.sql.clear; Query1.sql.add('select * from Table1 where Nome Like ' +#39+'%' +Edit1.Text+ '%'+#39); Query1.open; Label1.Visible:=True; Onde estou errando? Obrigado, Aguardo resposta...

Vlew, sem pressa também, quando você conseguir se você pode me passa, eu agradeço. mas em todo caso eu agradeço a paciencia, e aguardo respostas, OK? Mais uma vez obrigado... At +

Olha o erro que da dando: o erro ta nessa linha UltCdg := IntTostr(Query1.Fields[0].AsInteger)+1; o erro é o seguinte: [Error] Cadastro_U.pas(134): Incompatible types: 'String' and 'Integer' e eu declarei a variavel UltCdg como você mando, do tipo Inteiro, se tira o IntToStr ele roda, porem da pau, da erro, acho q eu to fazendo alguma coisa errada!!! Esses codigos que voce me passo são colocados em q evento?: Todos eles são no evento de inicialização do Form, ou não? Desculpa o incomodo, mas a coisa ta dificil d+

Tenho algumas duvidas: essa rotina por exemplo, onde eu coloco ela? UltimoCdg := IntToStr(Query1.fields[0].AsInteger) +1 O q vem a ser esse UltimoCdg?, o q ele faz? e esse aki? Query1.close; Query1.Sql.Clear; Query1.Sql.Add('INSERT INTO Clientes (Cli_Codigo,Cli_Nome) VALUES (:pCodigo, "NomeDaPessoaASerAdicionado") '); Query1.ParamByName('pCodigo').AsInteger:=UltimoCdg; Query1.ExecSQL; Devo substituir esses itens pelo que? * pCodigo (o q coloco no lugar desse item?) * "NomeDaPessoaASerAdicionado" (o q coloco no lugar desse item?) valeu...

Olá pessoal, sou eu mais uma vez!!!!! é, eu sei, to enchendo, mas são duvidas que eu tenho ceteza que pra vocês são bem simples. É o seguinte: O programa que eu estou fazendo, é um programa simples de cadastro e busca de clientes. Nele a pessoa informa o CODIGO, NOME, RG, CPF, enfim, um programa comum, quando eu criei a tabela, do tipo PARADOX, no campo CODIGO, eu coloquei ele como chave primaria, e coloquei ele do tipo +-(autoincrement), pra que o codigo seja gerado automaticamente. Dessa forma ele gera automaticamente o CODIGO, porém, a primeira vez que você vai cadastrar ele não da codigo nenhum, ou seja o Codigo fica em branco, quando você clica em SALVAR, salva tudo e o Proximo codigo fica sendo o 1. Só que esse não é o principal problema, quando você limpa a tabela, pode ser através do Databasedesktop mesmo, e vai registra um novo usuario, ele começa da onde paro, vou dar um exemplo: To la cadastrando: Codigo: 1 Nome: João da Silva Codigo: 2 Nome: José dos Santos Codigo: 3 Nome: Domingos da Costa Pois bem, vou la no Databasedesktop, edito minha tabela, e apago todo mundo, ou seja, zero ela, OK!!! Quando eu entro no meu programa pra fazer novos cadastros, ao invés dele começar do 1, ele começa do 4, é como se ele não tivesse zerado minha tabela. porque ela não começa do 1? onde ta errado?, qual a melhor forma de fazer com que o programa gere automaticamente o CODIGO? pessoal, desculpa a perturbação, mas eis aqui um grande fã de Delphi, mas que não entende muito do assunto. Fico grato mais uma vez pela atenção, e pelo espaço dado a nós, leigos no assunto!!!! Um abraço...

Estou fazendo um programa e estou utilizando a busca através de SQL, estou fazendo da seguinte forma: Query1.active := false; Query1.sql.clear; Query1.sql.add('select * from Tabela where Campo Like " ' + Edit1.Text + ' " '); Query1.active:= true; Onde estou errando? Dessa forma ele só esta achando o nome exato. Exemplo: Se eu quiser procurar, por exemplo, por João, eu tenho que digitar João, se não ele não acha. Gostaria que eu digitasse apenas a palavra J, e ele me mostrasse todos as pessoas que comecem com a letra J: João, José, Jarbas, enfim, se digitar uma letra, ele me mostre todos que comecem com essa letra. Obrigado pela atenção novamente... Abraço a todos.

Obrigado, a dica que você me passou deu certo... valeu, era isso que eu estava precisando

Olá, Gostaria que vocês me ajudassem no seguinte problema: Estou usando um DBgrid em um programa que estou fazendo. Quando o DBGrid lista os nomes que eu mandei procurar, eu gostaria que um Label recebesse a quantia de nomes que foi encontrado nessa pesquisa. Gostaria de saber se tem como fazer isso, e como eu faço... Obrigado.