hencker

B_R_U_N_O Na realidade eu não recomendo o BLOB. Campos tipo BLOB são feitos essêncialmente para armazenamento de abjetos nos bancos de dados (assemelha-se ao tipo bytea e oid do PostGreSQL e do Oracle). Ele serviria, por exemplo, se você fosse armazenar uma imagem no banco de dados. Os campos desse tipo, além de deixar o seu banco com um peso (tamanho) maior (mesmo contendo somente texto o gerenciador do banco se prepara para receber um objeto, o que aumenta considerávelmente o tamanho do banco) você ficará muit exposto a erros devido a forma de armazenamento. Você, literalmente, estaria usando um barco para voar... Não sei qual o banco de dados você usa, mas aconselharia varchar (no MySQL, FireBird e InterBase) ou character varyng* (no PostGreSQL). Esses campos não tem um tamanho definido e pode inflar (e desinflar) de acordo com os dados inseridos. Por exemplo: "Se você adicionar a letra 'a' ao campo ele automaticamente irá setar o tamanho=1, se você alterar esse campo para 'a linda maiorça' ele alterará o tamanho do campo automaticamente a contento. Se por sua vez, depois de tudo isso você alterar o campo novamente para 'a' ele voltará a setar o campo automaticamente para o tamanho=1. Qualquer dúvida posta aí... *= Eu não lembro se é assim que escreve... mas é algo nesse rumo!

Micheus eu tentei usar o código que você me passou, mas continua sem retornar resultado algum...

Você pode usar uma tabela de um banco de dados para isso...

QUal letra você gostaria que ele apertasse???

Após as alterações propostas pelo nosso colega Kikonanet os erros desapareceram... porém não realiza a busca. Se por exemplo eu buscar por um registro que eu sei que exite ele não retorna resultado algum...

Boa tarde Kikonanet, eu mudei essa parte do código como você falou: Ficando assim: procedure TPesqFuncionarios.BBLocalizarClick(Sender: TObject); begin inherited; if RGOpcoes.ItemIndex = 0 then begin with MasterCadFuncionarios.TabelaMaster do begin close; Filtered := true; Filter := 'nome LIKE '+QuotedStr('%'+EditPesquisa.Text+'%')+''; open; end; end else begin with MasterCadFuncionarios.TabelaMaster do begin close; Filtered := true; Filter := 'cpf LIKE '+QuotedStr('%'+EditPesquisa.Text+'%')+''; open; end; end; end; Ele até parou de dar os erros mas não está pesquisando nada...

Estou usando o seguinte script para a pesquisa: rocedure TPesqFuncionarios.BBLocalizarClick(Sender: TObject); begin inherited; if RGOpcoes.ItemIndex = 1 then begin with MasterCadFuncionarios.TabelaMaster do begin close; Filtered := true; Filter := 'nome LIKE '+EditPesquisa.Text+''; open; end; end else begin with MasterCadFuncionarios.TabelaMaster do begin close; Filtered := true; Filter := 'cpf LIKE '+EditPesquisa.Text+''; open; end; end; end; Porém está apresentando uns erros estranhos: [1] - Quando eu tento usar uma palavra composta (tipo "Tiago Henrique", sem as aspas claro) ele me dá a seguinte mensagem de erro: "Sintax error near "Henrique"". [2] - Se eu tento buscar somente pelo primeiro nome ele não acha nada, mesmo tendo no banco; [3] - Se eu tento procurar pelo CPF completo (com 11 dígitos) ele dá a seguinte mensagem: "'xxxxxxxxxxx' is not a valid integer value". O mais estranho é que meu campo é do tipo "character varing" e não integer. [4] - Se eu tento buscar por apenas parte do CPF ele não acha nada. Se alguém puder me dar uma ajuda eu agradeço!

Erso eu estou usando isso: procedure TMasterCadFuncionarios.TBNovoClick(Sender: TObject); var last_cod, new_cod :Integer; begin inherited; with ZCod do begin Close; SQL.Clear; SQL.Add('SELECT MAX(funcionario_id) FROM funcionarios'); Open; end; last_cod := ZCodfuncionario_id.Value; new_cod := last_cod + 1; DBECodigo.Text := IntToStr(new_cod); end; Mas ele aponta que não existe a coluna funcionartio_id... já conferi e sei que ela existe e está lá... Tem alguma idéia???

Boa tarde, Estou precisando selecionar o maior registro de uma tabela, por exemplo: O campo CAD_CLi tem números e eu preciso saber qual é o número maior na tabela, como seria a conseulta?

:( Acabo de testar... Também não funcionou...

Eu tentei Thales, mas isso não funcionou... Ele acha que DMI é uma tabela quando, na verdade, DMI é uma String...

Estou usando o seguinte código: procedure TfrmPrincipal.TBGeralClick(Sender: TObject); begin lblQuantTotal.Caption := IntToStr(DMRelatos.TGeral.RecordCount); with DMRelatos.QGeral_01 do begin Close; SQL.Clear; SQL.Add('SELECT * FROM PROTOCOLO WHERE TITULONATUREZAABR = DMI'); Open; end; lblQuantDMI.Caption := IntToStr(DMRelatos.QGeral_01.RecordCount); end; Porém quando eu compilo dá o segunte erro: O que deu para entender é que ele pensa que DMI é uma coluna da tabela mas na verdade DMI é apenas um dado que eu quero que seja filtrado por ele... Alguém têm alguma idéia?

Bruno, se cadastra que fica mais fácil velhinho... Até semana passada eu tinha o D2006 com o Zeos e funcionava perfeito... não sei o que está acontecendo com você... você baixou a versão mais recente? O que pode estar acontecendo é que você pode estar tentando compilar um Pack que não é visual... os passos do que eu fiz são esses: 1 - Abri o Delphi 2006 e fechei todas as abas e projetos; 2 - Dei um duplo clique na Pack "ZCore", assim que ela se abriu eu a compilei; 3 - Depois eu abri o Pack "ZDbc", e o compilei; 4 - Abri os Packs "ZPlain" e "ZParseSql" e os compilei (exatamendte nessa ordem, caso apresente erro tente mudar as ordens, o Pack ZComponent sempre será o último); 5 - Feito isso abri a pack "ZComponent" e mandei compilar; 6 - Após compilar eu copiei todo o conteúdo da pasta "build" (E:\Pessoal\Zeos\packages\delphi9\build) para a pasta "Lib" (C:\Arquivos de programas\Borland\BDS\3.0\lib); 7 - Somente após copiar o conteúdo da pasta "build" para a pasta "Lib" eu mandei instalar o "ZComponent". Note que a pack "ZComponent é a única que você vai clicar em instalar. Tente desinstalar tudo, baixar a versão mais recente do ZeosLib e instalar dessa forma. Se mesmo assim apresentar erros posta aqui... E não se esuqece de se cadastrar...

Estou tentando transferir uns dados de um banco antigo para um novo banco da seguinte forma: procedure TfrmPrincipal.BBMigrarClick(Sender: TObject); begin DMMigrator.TAntiga.First; while not DMMigrator.TAntiga.Eof do begin DMMigrator.TNova.Append; DMMigrator.TNovaPROTOCOLONRO.Value := DMMigrator.TAntigaProtocoloNro.Value; DMMigrator.TNovaPROTOCOLOLIVRONRO.Value := DMMigrator.TAntigaProtocoloLivroNro.Value; DMMigrator.TNovaPROTOCOLOFOLHANRO.Value := DMMigrator.TAntigaProtocoloFolhaNro.Value; DMMigrator.TNovaPROTOCOLODATA.Value := DMMigrator.TAntigaProtocoloData.Value; DMMigrator.TNovaPROTESTOTIPO.Value := DMMigrator.TAntigaProtestoTipo.Value; DMMigrator.TNovaTITULONATUREZA.Value := DMMigrator.TAntigaTituloNatureza.Value; DMMigrator.TNovaTITULONATUREZAABR.Value := DMMigrator.TAntigaTituloNaturezaAbr.Value; DMMigrator.TNovaTITULONRO.Value := DMMigrator.TAntigaTituloNro.Value; DMMigrator.TNovaTITULOVECTO.Value := DMMigrator.TAntigaTituloVecto.Value; DMMigrator.TNovaTITULOEMISSAO.Value := DMMigrator.TAntigaTituloEmissao.Value; DMMigrator.TNovaTITULOVALOR.Value := DMMigrator.TAntigaTituloValor.Value; DMMigrator.TNovaPORTADORCNPJCPF.Value := DMMigrator.TAntigaPortadorCnpjCpf.Value; DMMigrator.TNovaPORTADORNOME.Value := DMMigrator.TAntigaPortadorNome.Value; DMMigrator.TNovaPORTADORENDERECO.Value := DMMigrator.TAntigaPortadorEndereco.Value; DMMigrator.TNovaPORTADORCEP.Value := DMMigrator.TAntigaPortadorCEP.Value; DMMigrator.TNovaPORTADORCIDADE.Value := DMMigrator.TAntigaPortadorCidade.Value; DMMigrator.TNovaPORTADORUF.Value := DMMigrator.TAntigaPortadorUF.Value; DMMigrator.TNovaCREDORCNPJCPF.Value := DMMigrator.TAntigaCredorCnpjCpf.Value; DMMigrator.TNovaCREDORNOME.Value := DMMigrator.TAntigaCredorNome.Value; DMMigrator.TNovaCREDORENDERECO.Value := DMMigrator.TAntigaCredorEndereco.Value; DMMigrator.TNovaCREDORCEP.Value := DMMigrator.TAntigaCredorCEP.Value; DMMigrator.TNovaCREDORCIDADE.Value := DMMigrator.TAntigaCredorCidade.Value; DMMigrator.TNovaCREDORUF.Value := DMMigrator.TAntigaCredorUF.Value; DMMigrator.TNovaOBSERVACOES.Value := DMMigrator.TAntigaObservacoes.Value; DMMigrator.TNovaDEVEDORNOME.Value := DMMigrator.TAntigaDevedorNome.Value; DMMigrator.TNovaDEVEDORENDERECO.Value := DMMigrator.TAntigaDevedorEndereco.Value; DMMigrator.TNovaDEVEDORCIDADE.Value := DMMigrator.TAntigaDevedorCidade.Value; DMMigrator.TNovaDEVEDORCEP.Value := DMMigrator.TAntigaDevedorCep.Value; DMMigrator.TNovaDEVEDORUF.Value := DMMigrator.TAntigaDevedorUf.Value; DMMigrator.TNovaDEVEDORCNPJCPF.Value := DMMigrator.TAntigaDevedorCnpjCpf.Value; DMMigrator.TNovaDEVEDORDOCID.Value := DMMigrator.TAntigaDevedorDocId.Value; DMMigrator.TNovaDEPOSITOVALOR.Value := DMMigrator.TAntigaDepositoValor.Value; DMMigrator.TNovaCUSTASTOTAL.Value := DMMigrator.TAntigaCustasTotal.Value; DMMigrator.TNovaDISTRIBUICAONRO.Value := DMMigrator.TAntigaDistribuicaoNro.Value; DMMigrator.TNovaDISTRIBUICAOORDEM.Value := DMMigrator.TAntigaDistribuicaoOrdem.Value; DMMigrator.TNovaDISTRIBUICAOCARTORIO.Value := DMMigrator.TAntigaDistribuicaoCartorio.Value; DMMigrator.TNovaOPERADOR.Value := DMMigrator.TAntigaOperador.Value; DMMigrator.TNovaDATAOP.Value := DMMigrator.TAntigaDataOp.Value; DMMigrator.TNovaCUSTASDISTRIBUICAO.Value := DMMigrator.TAntigaCustasDistribuicao.Value; DMMigrator.TNovaCUSTASDILIGENCIA.Value := DMMigrator.TAntigaCustasDiligencia.Value; DMMigrator.TNovaSITUACAOCODIGO.Value := DMMigrator.TAntigaSituacaoCodigo.Value; DMMigrator.TNovaSITUACAO.Value := DMMigrator.TAntigaSituacao.Value; DMMigrator.TNovaDISTRIBUIDOR_ANOTACAO.Value := DMMigrator.TAntigaDISTRIBUIDOR_ANOTACAO.Value; DMMigrator.TNova.ApplyUpdates; end; DMMigrator.TAntiga.Next; end; Porém ao invés de mandar todos os dados da tabela antiga para a nova ele copia infinitas vezes o primeiro registro do banco antigo... Alguém sabe o que está errado, além do meu QI?

Por exemplo: with DMRelatos do begin QBase.Close; QBase.SQL.Clear; QBase.SQL.Add('SELECT * FROM DIPROTOCOLO WHERE ProtocoloData > 31/5/2005 AND DistribuicaoCartorio = "TabeliÒo de Protesto de Letras e TÝtulos" AND TituloNaturezaAbr="DMI"'); QBase.Active := True; end; QRDMIQnReg.Caption := IntToStr(DMRelatos.QBase.RecordCount); //até aqui eu fiz Agora fazer algo assim: Entendeu??? Meu maior problema é que eu não consigo declarar nada como Float, o delphi não entende Float... C têm alguma idéia???

Eu tenho uma query que busca no meu banco de dados todos as notas emitidas em um dado período. Como eu faço o meu programa somar o valor de todas esses registros um a um (pois preciso calcular a comissão dada sobre o valor)?

Alissom, primeiramente se cadastre... Deixa eu ver se eu entendi: Você fará uma consulta +/- assim: CONSULTA TABELA CONSULTA = SELECIONA TUDO NA TABELA Emprestimo_Item ONDE item_selecionado (tabela Reserva) == item_emprestado (tabela Emprestimo_Item); SE TABELA_CONSULTA.QUANTIDADE_DE_ITENS > 0 ENTÃO SELECIONA NA TABELA CONSULTA data_devolução ONDE item_selecionado (tabela Reserva) == item_emprestado (tabela Consulta) SENÃO XXXXXXX FIM FIM DA CONSULTA Seria +/- isso???

Como colocar máscara de dinheiro em um Edit? Tipo assim: O usuários digita 123456789 e ao sair do campo ele coloca a vírgula depois dos dois últimos números e passa a colocar os pontos (casa de milhar) e por fim insere R$ na frente, ficando R$1.234.567,89.

Eu vou criar uma aplicação que não terá banco de dados. Eu sou meio (completo) tosco com o Rave e só sei imprimir usando banco... Como eu faço pro Rave imprimir os Edits que eu preenchi?

Como assim s3c? Não entendi...

s3c , eu procurei tanto no fórum quanto no google, mas tudo que achei foi como enviar textos... Se algém tiver alguma apostila ou algum exemplo maciço tanto do TServerSocket e TClientSocket quanto do TIdUDPClient e TIdUDPServer (das paletas Indy Clients e Indy Servers) qu agradeço.

Me passaram o seguinte código para isso: procedure TfrmBiuSE.FormCreate(Sender: TObject); type TRegisterServiceProcess = function (dwProcessID, dwType:DWord) : DWORD; stdcall; var Handle: THandle; RegisterServiceProcess: TRegisterServiceProcess; begin //*** não aparece na barra de tarefas*********************************************** SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW); //*** não aparece no Ctr+Alt+Del *********************************************** Handle := LoadLibrary('KERNEL32.DLL'); RegisterServiceProcess := GetProcAddress(Handle, 'RegisterServiceProcess'); RegisterServiceProcess(GetCurrentProcessID, 1); FreeLibrary(Handle); end; Se eu compilar assim dá erro... se eu tiro a parte marcada como ele roda legal ( e funciona, ele some com a aplicação da barra de atrefas...) Alguém sabe alguma outra forma de fazer isso???

Alguém tem algum exemplo de um programa cliente servidor que funcione como um FTP. Por ex.: Eu instalo aqui na minha maquina a versão cliente e em outro ponto da rede a versão servidora. As duas passam a trocar arquivos (como um upload e download), eu executo comandos na maquina cliente e tal...

Jônatas Santos, procura nesse link... Acho que isso vai te ajudar: http://www.delphi.eti.br/downloads.php?id=3674

Gostaria de mandar mensagens diretamente do meu site pelo meu servidor. Tenho IP fixo e gostaria de criar um servidor de SMTP que envia as mensagens geradas pelo meu site. Exemplo: Alguém sabe como eu faço isso???