Milton Carlos

Pode fechar o tópico (Resolvido) Obrigado Jhonas

Ola caro Jhonas... rodei as 19 paginas do forum e o q achei mais proximo foi algumas dicas q você passou mas é para DBE. Eu gostaria de saber quais arquivos levar para rodar o delphi com mysql5 sendo q o mysql esta num servidor da web na minha maquina esta rodando correto é só na maquina da minha amiga q não tem nem o delphi e nem o mysql q não roda a aplicação, então se for possível postar os arquivos DLL´s eu agradeço e obrigado antecipado. 1grande abraço

OLa boa noite, Gostaria de saber quais arquivos eu devo copiar para usar o Delphi em um computador que não tenha nem o delphi em nem o mysql. quais arquivos eu devo copiar para que este computador rode o programa e entra já conectando ao bando de dados que esta no servidor da web. fiz o programa na minha maquina e não quero usar o install shield ou nenhum do genero ai tenho o banco de dados mysql no server da web com IP e gostaria que se fosse possivel alguém me passar os arquivos q são usado e que eu deva copiar no computador sem o delphi e o mysql. obrigado Milton Carlos

Jonas Boa Tarde Não sei se é aqui q devo pedir isto se for pode responder senão por favor desculpas antecipadas e redirecione para o local correto ok Para este mesmo exemplo que você usou gostaria de estar usando o Outlook Express. Obirgado Milton CArlos

Jonas, Ola e saudações Obrigado pela dica as alterações na pata windows temp não surtiram efeitos com a alteração e continuou a mesma coisa, mas você me alertou para 1ma coisa ao enviar o link do antivirus COMODO e ai se deu a luz é na opção DEFENSE+ do próprio q esta o x da questao o problema ao caos ele controla as permições e não da acesso ao Delphi e por isto não compilava e não tinha permição para o mesmo, foi só desativar esta funcão do COMODO que rodou legal navamento então com isto resolvido pode fechar este tópico ok... abraços Milton Carlos

Hoje dia 06 de Novembro de 2010 as 10:29hs - o Link para baixar o arquivos esta dando erro: Não é possível localizar a página da Web O link esta quebrado Obrigado

funciona pois estava compilando sempre e de uma hora pra outra começou a dar erros e ai eu ia percistindo e acabava compilando, só que agora num passa deste erro e não compila ateh o final. [MSBuild Error] Falha inesperada da tarefa "DCC". System.InvalidOperationException: Não é possível gerar uma classe temporária (result=1). error CS0016: Não foi possível gravar no arquivo de saída 'c:\Users\Milton\AppData\Local\Temp\puzawvul.dll' -- 'Acesso negado. ' em System.Xml.Serialization.Compiler.Compile(Assembly parent, String ns, XmlSerializerCompilerParameters xmlParameters, Evidence evidence) em System.Xml.Serialization.TempAssembly.GenerateAssembly(XmlMapping[] xmlMappings, Type[] types, String defaultNamespace, Evidence evidence, XmlSerializerCompilerParameters parameters, Assembly assembly, Hashtable assemblies) em System.Xml.Serialization.TempAssembly..ctor(XmlMapping[] xmlMappings, Type[] types, String defaultNamespace, String location, Evidence evidence) em System.Xml.Serialization.XmlSerializer.GenerateTempAssembly(XmlMapping xmlMapping, Type type, String defaultNamespace) em System.Xml.Serialization.XmlSerializer..ctor(Type type, String defaultNamespace) em System.Xml.Serialization.XmlSerializer..ctor(Type type) em Borland.Build.Tasks.Common.Metadata.TaskFactory.get_Metadata() em Borland.Build.Tasks.Common.ToolTaskManager.GetMetadata(String name) em Borland.Build.Tasks.Common.BaseTask.get_Metadata() em Borland.Build.Tasks.Delphi.DCC.TargetOutOfDate() em Borland.Build.Tasks.Common.BaseTask.SkipTaskExecution() em Microsoft.Build.Utilities.ToolTask.Execute() em Borland.Build.Tasks.Common.BaseTask.Execute() em Borland.Build.Tasks.Delphi.DCC.Execute() em Microsoft.Build.BuildEngine.TaskEngine.ExecuteTask(ExecutionMode howToExecuteTask, Hashtable projectItemsAvailableToTask, BuildPropertyGroup projectPropertiesAvailableToTask, Boolean& taskClassWasFound) já mudei o diretorio temporario e não deu certo DE %USERPROFILE%\AppData\Local\Temp Para %USERPROFILE%\Temp se alguém já pegou este erro e puder ajudar eu agradeço Obrigado

ola Jhonas: vai a conecção com Zconection1-> Hostname:192.168.0.111 versão do Zeos 6.6.5-stable user : SYSDBA senha : masterkey database: manutencao protocol : firebird-2.0 connected: true propriedades Zquery-> Connection: Zconection1 SQL : select * from REGISTROS quando vai ativar=true da o erro. Details do erro quando manda ativar true: [0E94D2CE]{ZComponentDesign70.bpl} Zdbcinterbase6utils.CheckInterbase6Error + $1EA [0E954291]{ZComponentDesign70.bpl} Zdbcinterbase6.TZInterbase6Connection.GetPlainDriver + $11 [0E94D405]{ZComponentDesign70.bpl} Zdbcinterbase6utils.PrepareStatement + $85 [0E954291]{ZComponentDesign70.bpl} Zdbcinterbase6.TZInterbase6Connection.GetPlainDriver + $11 [0E949AFE]{ZComponentDesign70.bpl} Zdbcinterbase6statement.TZInterbase6PreparedStatement.ExecuteQueryPrepared + $CE [0E99FB08]{ZComponentDesign70.bpl} Zabstractrodataset.TZAbstractRODataset.CreateResultSet + $1A4 [0E9979F2]{ZComponentDesign70.bpl} Zabstractdataset.TZAbstractDataset.CreateResultSet + $2E [0E99FC0A]{ZComponentDesign70.bpl} Zabstractrodataset.TZAbstractRODataset.InternalOpen + $A2 [2043F189]{dbrtl100.bpl} DB.TDataSet.DoInternalOpen + $19 [2043F242]{dbrtl100.bpl} DB.TDataSet.OpenCursor + $1E [2043F0FD]{dbrtl100.bpl} DB.TDataSet.SetActive + $55 [2002AE06]{rtl100.bpl } TypInfo.SetOrdProp + $36 [20DAA00E]{designide100.bpl} DesignEditors.TPropertyEditor.SetOrdValue + $22 [20DAB0AB]{designide100.bpl} DesignEditors.TEnumProperty.SetValue + $47 [20DA9CC5]{designide100.bpl} DesignEditors.TPropertyEditor.Edit + $C1 [20B1C772]{coreide100.bpl} PropInsp.TPropertyInspector.PropListEditDblClick + $14E [20E8E99D]{vclide100.bpl} IDEInspListBox.TInspListBox.DoEditDblClick + $15 [20E9021E]{vclide100.bpl} IDEInspListBox.TInspListBox.EditDblClick + $2 [2013FBC9]{vcl100.bpl } Controls.TControl.DblClick + $15 [2013FD2C]{vcl100.bpl } Controls.TControl.WMLButtonDblClk + $34 [2013F6A7]{vcl100.bpl } Controls.TControl.WndProc + $2BB [20143736]{vcl100.bpl } Controls.TWinControl.WndProc + $4FA [20D99772]{designide100.bpl} DeskUtil.SetFocusHook + $2E [20031FC4]{rtl100.bpl } Classes.TThreadList.UnlockList + $4 [200EBA20]{vcl100.bpl } Graphics.FreeMemoryContexts + $98 [201431E8]{vcl100.bpl } Controls.TWinControl.IsControlMouseMsg + $60 [20040DE4]{rtl100.bpl } Classes.StdWndProc + $14 [20143736]{vcl100.bpl } Controls.TWinControl.WndProc + $4FA [20E8DB6B]{vclide100.bpl} IDEInspListBox.TPropInspEdit.WndProc + $37 [20142E60]{vcl100.bpl } Controls.TWinControl.MainWndProc + $2C [20040DE4]{rtl100.bpl } Classes.StdWndProc + $14 [2013A7BA]{vcl100.bpl } Controls.FindControl + $42 [20160EF0]{vcl100.bpl } Forms.TApplication.ProcessMessage + $F4 [20160F32]{vcl100.bpl } Forms.TApplication.HandleMessage + $A [20161188]{vcl100.bpl } Forms.TApplication.Run + $CC [00422971]{bds.exe } bds.bds (Line 196, "" + 7) + $2 outra coisa q percebi... quando se cria uma tabela no server ele mostra certinho a tabela q criou no terminal a tabela... e se criar alguma tabela no terminal aparece no server também. Mas se adciona algum registro no server não aparece no terminal isto atraves do IBOConsole. e a mesma coisa no terminal se você adciona conteudo nos compos não aparecem no server, mas as tabelas quando são criadas e os databases estes aparecem certinho... sera q tem q fazer algum aplyupdates, commit... ou algo q não tenho conhecimento de como proceder com firebird para se gravar o contenudo do campo, pela minha noção parece q quando você adciona registro ele cria um especie de banco de dados virtual em cada terminal e adciona la e não diretamento no server ok... abraços

ola Jhonas: vai a conecção com Zconection1-> Hostname:192.168.0.111 versão do Zeos 6.6.5-stable user : SYSDBA senha : masterkey database: manutencao protocol : firebird-2.0 connected: true propriedades Zquery-> Connection: Zconection1 SQL : select * from REGISTROS quando vai ativar=true da o erro. Details do erro quando manda ativar true: [0E94D2CE]{ZComponentDesign70.bpl} Zdbcinterbase6utils.CheckInterbase6Error + $1EA [0E954291]{ZComponentDesign70.bpl} Zdbcinterbase6.TZInterbase6Connection.GetPlainDriver + $11 [0E94D405]{ZComponentDesign70.bpl} Zdbcinterbase6utils.PrepareStatement + $85 [0E954291]{ZComponentDesign70.bpl} Zdbcinterbase6.TZInterbase6Connection.GetPlainDriver + $11 [0E949AFE]{ZComponentDesign70.bpl} Zdbcinterbase6statement.TZInterbase6PreparedStatement.ExecuteQueryPrepared + $CE [0E99FB08]{ZComponentDesign70.bpl} Zabstractrodataset.TZAbstractRODataset.CreateResultSet + $1A4 [0E9979F2]{ZComponentDesign70.bpl} Zabstractdataset.TZAbstractDataset.CreateResultSet + $2E [0E99FC0A]{ZComponentDesign70.bpl} Zabstractrodataset.TZAbstractRODataset.InternalOpen + $A2 [2043F189]{dbrtl100.bpl} DB.TDataSet.DoInternalOpen + $19 [2043F242]{dbrtl100.bpl} DB.TDataSet.OpenCursor + $1E [2043F0FD]{dbrtl100.bpl} DB.TDataSet.SetActive + $55 [2002AE06]{rtl100.bpl } TypInfo.SetOrdProp + $36 [20DAA00E]{designide100.bpl} DesignEditors.TPropertyEditor.SetOrdValue + $22 [20DAB0AB]{designide100.bpl} DesignEditors.TEnumProperty.SetValue + $47 [20DA9CC5]{designide100.bpl} DesignEditors.TPropertyEditor.Edit + $C1 [20B1C772]{coreide100.bpl} PropInsp.TPropertyInspector.PropListEditDblClick + $14E [20E8E99D]{vclide100.bpl} IDEInspListBox.TInspListBox.DoEditDblClick + $15 [20E9021E]{vclide100.bpl} IDEInspListBox.TInspListBox.EditDblClick + $2 [2013FBC9]{vcl100.bpl } Controls.TControl.DblClick + $15 [2013FD2C]{vcl100.bpl } Controls.TControl.WMLButtonDblClk + $34 [2013F6A7]{vcl100.bpl } Controls.TControl.WndProc + $2BB [20143736]{vcl100.bpl } Controls.TWinControl.WndProc + $4FA [20D99772]{designide100.bpl} DeskUtil.SetFocusHook + $2E [20031FC4]{rtl100.bpl } Classes.TThreadList.UnlockList + $4 [200EBA20]{vcl100.bpl } Graphics.FreeMemoryContexts + $98 [201431E8]{vcl100.bpl } Controls.TWinControl.IsControlMouseMsg + $60 [20040DE4]{rtl100.bpl } Classes.StdWndProc + $14 [20143736]{vcl100.bpl } Controls.TWinControl.WndProc + $4FA [20E8DB6B]{vclide100.bpl} IDEInspListBox.TPropInspEdit.WndProc + $37 [20142E60]{vcl100.bpl } Controls.TWinControl.MainWndProc + $2C [20040DE4]{rtl100.bpl } Classes.StdWndProc + $14 [2013A7BA]{vcl100.bpl } Controls.FindControl + $42 [20160EF0]{vcl100.bpl } Forms.TApplication.ProcessMessage + $F4 [20160F32]{vcl100.bpl } Forms.TApplication.HandleMessage + $A [20161188]{vcl100.bpl } Forms.TApplication.Run + $CC [00422971]{bds.exe } bds.bds (Line 196, "" + 7) + $2

Ola amigo Jhonas, no IBOConsole ele mostras as tabelas criadas na outra maquina q eu denominei q sera o server, agora dentro do delphi com os componentes q foram indicados pela instrução do curso apresenta este erro. Ai peguei o componente Zeos o Zconection faz a conecção true ok, mas na Zquery quando vou ativar ele diz que a instrução da sql da o mesmo erro também. sera q estou passando batido em alguma coisa tem alguma macete para instalar o firebird. se você puder passar alguma coisa sobre como instalar o firebird Serve e o cliente. Obrigado +1maX pela atenção

segui este exemplo http://www.activedelphi.com.br/print.php?sid=170 tudo certinho mas quando vou ativar=true o IBDataSet1 da este erro logo abaixo o q pode ser. o IBDatabase1=true esta certinho o IBTransaction1=true também certinho só o tbdataset1 que esta dando o erro. dynamic SQL error SQL error code =-204 table unknown REGISTROS at line 1, column 16. o firebird tem algum macete para configura-lo, pois fiz alguns lançamentos pelo IBOconsole no servidor e no terminal, mas não é atualisado os dados nem de um nem do outro, os dados do terminal fica nele mesmo e não aparece no servidor e os do servidor não aparece no terminal, mas a conecção foi bem sucedida e esta mostrando todos dos databases e as respectivas tabelas. isto pode ser um bug ou é falta de configuração em algum local. user o install do firebide para instalar o server e o cliente na maquina servidor e no terminal somente o cliente e ferramentas administrativas. obrigado

ok já esta resolvido... tinha q criar as tabelas no servidor o iboconsole estava criando local, é meio confuso isto mas to pegando o jeitãoooo....

Ola boa noite, quando tento conectar a uma tabela do servidor firebird da este erro: alguém pode me dizer como resolver... obrigado ISC ERROR CODE:335544344 ISC ERROR MESSAGE: I/O error for file "cliente" Error while trying to open file O sistema não pode encontrar o arquivo especificado.

Ola Jhonas pode fechar o tópico, estes endereços eram os mesmos que eu já tinha baixado, mas agora baixou o arquivo inteiro e vou começar a usar mas primeiro farei uma pesquina aqui na forum para ver como usar o firebird se você tiver material, apostilas, exemplos, fontes do uso do firebird, confeço pra você que terei q começar do (0)zero agora, pois estava acostumado com outros banco de dados, mas como a vida é sempre assim temos q nos adaptar sempre... +1maXObrigado abraçosempre...

OLa boa tarde a todos: Estou em 1ma encrizilhada, qual implementar em meu projeto, e que tenha muitos valores de informações para pesquisa quando for procurar por duvidas e exemplos: Banco de dados embutidos: qual melhor, rapido, free e acima de tudo facil de manutenção,criações, alterações, estavel... já pesquisei varios, dentre eles são: Absolute.... horrivel nem vo perde tempo comentando Raima... complicadinho e não achei material para pesquisa sqlite...otimo... mas pouco material sobre firebird...otimo...muito material, mas na hora de achar a versão database embedded tem +esta corrompida. mysql...otimo...tem vasto mateiral mas para esta versão embedded o database é pago paradox... nem vo comenta dbase.... na sua epoca o melhor de todos ms sql express edition... tem material mas precisa registrar e as repostas do pessoal de la são muito superficiais xdb.... só serve pra delphi h2... é pago componentace ... é só pra delphi codebase... é bom mas tem q pagar oracle 10g express edition... é bom mas tem q registrar e tem pouco material vistadb... bom mas é pago sybase... tem muitas opções mas quando é o database embutido tem q registrar e depois de um tempo pagar e também pra mobiles mas tem q pagar. resumindo nada contra registro é ateh bom pois assim recebemos material e novidades, mas o duro é o cliente ficar recebendo estas mensagens e telas de avisos. comprar também mas pra quem quer apenas fazer testes, pequenas aplicações e sabendo que temos varias free e de codigos abertos, tenho q procurar o custo e beneficio. cliente/servidor...são otimos pena que não se da para implementar para distribuição fica inviavel ter que construir um codigo imenso e no final ainda num ter a certeza se quando o cliente for instalar ele vai estar 100% e ai dara mais trabalho, ai é melhor corrermos no cliente e fazer o q tem q ser feito. bom finalisando isto é 1ma duvida para aqueles que já estão mais a frente ai no tempo e já possuem as soluções corretas, se você´s ai podem me dar 1majudinha para decifrar este enigma? qual database embutido posso implementar em um projeto hoje pequeno, medio e que podera ficar grande e depois ser um pouco +facil para migra-lo para cliente/server. sei q também para alguns esta minha pequena pesquisa vai servir em muito, pois acho q num é só eu que estou passando por isto e também sei q muitos q estão ai na frente também já passaram por isto, e aqueles que tiverem a melhor compreenção do mundo livre e transcedental sabera o q estou dizendo e por favor não me venha com por a mão na massa, pois já fiz continuo fazendo e continuarei a fazer sempre... aqui tem vontade e muita determinação, mas as vezes achamos cada coisa em sites de forum por ai q da vontade ateh pra desistir, mas como aqui fui bem recebido e o pessoal aqui tem a mente aberta e para tudo eles tem as respostas mesmo q seja para gente ir pegar a tralha completa sozinho, mas eles mostram onde estão... e obrigado +1maXempre....

ola veja se isto resolve pra você ok... abraços procedure TForm1.Button1Click(Sender: TObject); var linhax:string; lincontax,linx,componentex,textlenx:integer; begin memo1.Lines; lincontax:=memo1.Lines.Count; textlenx:=memo1.GetTextLen; componentex:=memo1.ComponentCount; label1.Caption:=inttostr(lincontax); showmessage('o nomero de linha é...: '+inttostr(lincontax)); end;

Ola geovanepc, já tem respostas nos topicos falando sobre isto, mas como eu já passei por isto, você quer conectar ou apenas a dll, se for para conectar utiliza o Zeos é otimo e também é free. no forum tem link´s para baixar e também como instalar, vai q você acha. ok de 1maOlhada q você vai achar ok http://scriptbrasil.com.br/forum/index.php...=143374&hl= http://scriptbrasil.com.br/forum/index.php...amp;hl=database abraços

As regras pedem para não usar todo o texto em caixa alta... e quando utilizo é para destacar a visualização para aqueles quem passam correndo pelos posts ... as vezes estão procurando por alguma coisa parecida e o destaque faz com que fixe a atençao ... somente marketing ... rs abraço ok Jhonas +1maX pode fechar este tópico também resolvido... obrigado novamente e abrços a todosempreusoumilton carlo$

obrigado +1maX, é impressão minha ou você começou gritando, ou aqui neste forum escrever em maiusculo é somente forma de destacar os texto... mas de qualquer forma abraços a todos vou fazer meus testes habituais e chegar no final com a peixada...

Ola bom dia a todos, Como faço para executar um gauge ou progress dentro de instrução sql e ele vai mostrando o percentual de execução, segue o codigo para alguém implementar. codigo: gauge1.Visible:=true; gauge1.Progress:=10; gauge1.Repaint; sx:=zQuery1.FieldByName('DATABASE').AsString; sy:=zQuery2.FieldByName('TABLES_IN_'+s).AsString; gauge1.Progress:=30; gauge1.Repaint; ZQuery3.Active := false; ZQuery3.sql.Clear; ssy := 'SELECT codigo,nome,endereço,e_mail FROM '+sx+'.'+sy+''; gauge1.Progress:=100; gauge1.Repaint; gauge1.progress:=0 gauge1.min:=0 gauge1.max:=zquery.recordcount; ZQuery3.SQL.Append(ssy,gauge1.Progress:=gauge1.Progress+1); //aqui da erro como faz para implementar gauge1.Repaint; gauge1.progress:=0 gauge1.min:=0 ZQuery3.ExecSQL&executa_gauge1; // esta linha não funciona mas tem como fazer a outra aqui e como implementar no execSql gauge1.max:=100; gauge1.Progress:=100; gauge1.Repaint; ZQuery3.Active := true; gauge1.Visible:=false; se alguém tiver forma melhor pode postar junto obrigado.

http://scriptbrasil.com.br/forum/index.php...igo+j%E1+existe Tem outros .. procure sempre por uma palavra chave abraço pode fechar o tópico usei 1ma q tinha antiga e parece q resolveu... qualquer coisa eu abro outro tópico obeigado +1max a todos e a você Jhonas parabens pela sua atenção e paciencia... e segue o codigo se alguém melhorar pode enviar por e-mail milton7766@hotmail.com. codx:=ZQuery1.RecordCount; codclix:=ZQuery1.FieldByName('CODIGO').AsInteger; codclix:=codx+1; datax:=datetostr(date()); horax:=timetostr(time()); ZQuery1.Active:=false; ZQuery1.Edit; ZQuery1.FieldByName('CODIGO').AsInteger:=codclix; ZQuery1.FieldByName('DATAN').Asstring:=datax; ZQuery1.FieldByName('HORA').Asstring:=horax; ZQuery1.FieldByName('VALOR').Asfloat:=0.00; ZQuery1.Post; ZQuery1.Active:=true; dbgrid1.Refresh;

Faça um pesquisa no forum ... acho que tem parecido com o que voce quer http://scriptbrasil.com.br/forum/index.php...ghlite=Treeview abraço ok obrigado +1max, no treeview não achei, ai entrei no site do mysql e fui fuçando la e achei os comandos, então quem precisar segue abaixo o codigo, quem implementar e melhorar manda depois por e-mail milton7766@hotmail.com e obrigado a todos ai do Site você´s estão de parabens você´s num dão o peixe mas mostra onde esta o melhor poço pra pescar e as traias é agente q tem q achar e levar... ao Jhonas em particular, esta pessoa tem muita paciencia parabens.... criei dbgrid1, dbgrid2, zconection, zquery1,zquery2 speedbutton, label1. Codigo procedure TForm1.SpeedButton1Click(Sender: TObject); var s,ss: string; begin label1.Visible:=true; label1.Repaint; ZQuery1.Active := false; ZQuery1.sql.Clear; s := 'SHOW DATABASES'; showmessage(s); ZQuery1.SQL.Append(s); ZQuery1.ExecSQL; ZQuery1.Active := true; s:=zQuery1.FieldByName('DATABASE').AsString; showmessage(s); ZQuery2.Active := false; ZQuery2.sql.Clear; ss := 'SHOW TABLES FROM '+s+''; showmessage(ss); ZQuery2.SQL.Append(ss); ZQuery2.ExecSQL; ZQuery2.Active := true; label1.Visible:=false; end; Faça um pesquisa no forum ... acho que tem parecido com o que voce quer http://scriptbrasil.com.br/forum/index.php...ghlite=Treeview abraço ok obrigado +1max, no treeview não achei, ai entrei no site do mysql e fui fuçando la e achei os comandos, então quem precisar segue abaixo o codigo, quem implementar e melhorar manda depois por e-mail milton7766@hotmail.com e obrigado a todos ai do Site você´s estão de parabens você´s num dão o peixe mas mostra onde esta o melhor poço pra pescar e as traias é agente q tem q achar e levar... ao Jhonas em particular, esta pessoa tem muita paciencia parabens.... criei dbgrid1, dbgrid2, zconection, zquery1,zquery2 speedbutton, label1. Codigo procedure TForm1.SpeedButton1Click(Sender: TObject); var s,ss: string; begin label1.Visible:=true; label1.Repaint; ZQuery1.Active := false; ZQuery1.sql.Clear; s := 'SHOW DATABASES'; showmessage(s); ZQuery1.SQL.Append(s); ZQuery1.ExecSQL; ZQuery1.Active := true; s:=zQuery1.FieldByName('DATABASE').AsString; showmessage(s); ZQuery2.Active := false; ZQuery2.sql.Clear; ss := 'SHOW TABLES FROM '+s+''; showmessage(ss); ZQuery2.SQL.Append(ss); ZQuery2.ExecSQL; ZQuery2.Active := true; label1.Visible:=false; end; pode fechar o tópico também resolvido... o treeview sera outra historia...

Vai achar tudo o que precisa aqui, mas terá que procurar http://dev.mysql.com/doc/refman/4.1/pt/adding-functions.html abraço Ok obrigado +1max... pode fechar o tópico dúvidas resolvidas, se se alguém precisar de 1majudA e no q eu puder resolver estarei a disposição abraços a todosempreuSoUMilton Carlo$.

. Amigo .... realmente ralei muitos anos e apanhei muito para aprender programação..... sou voluntario no forum, não faço isso por dinheiro ... mas por que gosto de ajudar ( embora alguns não deêm o devido valor para quem se presta em ajudar ) Veja na seção de apostilas https://www.scriptbrasil.com.br/codigos/delphi/ ou alguns topicos que contem links para apostilas http://scriptbrasil.com.br/forum/index.php...hlite=apostilas OBS: prefiro te ensinar a pescar do que te dar o peixe. abraço ok caro amigo é assim também q penso neste incio em programação sql e principalmente no mysql+zeos+delphi estou me adptando e aprendendo muitas coisas e pessoas como você com este espirito empreendendor explorador das informações q chega somente a poucas pessoas você é +1 q da a todos nós o devido prazer em continuar nesta jornada q é a tecnologia e no q for possível também poderei ajudar alguém q precise pois possuo alguma experiencia, venho do ms-dos antigo desde a versão 1.0 ateh as ultimas, conheci o dos shell, windows 3.1,311.95,98,Me... e hoje já estamos no W7 relei muito também, mas naquela época não se tinha a internet então já advinhou foi na tentativa e erro, mas hoje não temo mais tempo para ficar semanas a fio e acordados 72 horas direto sem dormir pra achar um erro de (,)virgula no sistema, pois era o q mais acontecia nas linguagens e sem falar nos casesentitive...rz.. mas isto foi um tunel do tempo para lhe mostrar q pessoas como eu damos valor sim, naqueles q hoje estão ai e vierão de uma nova geração as das mentes evoluidas e abertas os que já estão acordados e acordando para 1novo mundo o mundo de todos sermos 1 e o 1 estar em todos nós. e sobre pescar vo t falar eu conheco o poço q tem os melhores peixes só não estava tendo a logica de montar minha tralha... abraços e de coração mesmo Obrigado sempre... Obs.: poderia mandar como se usar com campos data, valores em dinheiro

Jhonas, procure pela pesquisa do forum e não me apareceu nada relacionado, você poderia enviar-me alguns link´s onde se encontra. obrigado +1max