Olá pessoal, Ô velho, reporta o erro lá no site, o Mark Daems irá ficar muito grato, pois postando os erros a galera vai corrigindo e o mesmo não vem numa próxima versão (ou update). ________________________________ []'s, Silvio Clécio --- Linux User: #481900 Skype: silvioprog ICQ: 432519902 E-mail, Y! Messenger: silviop...@yahoo.com.br Gmail, GTalk: silviop...@gmail.com Hotmail, MSN: silviop...@hotmail.com BlogSpot: http://silvioclecio.blogspot.com/ BlogSite: http://silvioprog.blogspot.com/ °oO| Seja livre, use Linux! |Oo°
________________________________ De: Coutinho - Yahoo <emanuelcouti...@yahoo.com.br> Para: delphi-br@yahoogrupos.com.br Enviadas: Sexta-feira, 16 de Janeiro de 2009 4:40:25 Assunto: [delphi-br] Zeos Lib - De volta após testes Bem... Aos colegas que me deram a mão... Milhões de agradecimentos! !! Funcionou... Como relatei na minha última mensagem, baixei a versão STABLE que eles disponibilizaram no site http://Zeos. Firmos.At e finalmente funcionou. ENTRETANTO.. . há um pequeno bug... que não se detecta se você costuma gerar, de própria mão, as instruções sql para Update, Insert e Delete! Quando geramos as instruções SQL pelo UpdateSQLEditor, na hora de gerar a instrução para INSERT, não está colocando ":" andtes dos nomes dos campos, que serão os parâmetros... fiz isso aqui mesmo na mão grande!!! Abram: ...\src\component\ ZUpdateSQLEditor .pas e encontrem o código abaixo: procedure TZUpdateSQLEditForm .GenInsertSQL( const TableName: string; UpdateFields, SQL: TStrings); procedure GenFieldList( const TabName, ParamChar: String); var L: string; I: integer; Comma: string; FieldName: string; begin L := ' ('; Comma := ', '; for I := 0 to UpdateFields. Count - 1 do begin if I = UpdateFields. Count - 1 then Comma := ''; FieldName := UpdateFields[ I]; if QuoteFields. Checked and (ParamChar = '') then FieldName := InternalQuoteIdenti fier(FieldName, QuoteChar); //COLOQUEM OS DOIS PONTOS (COLON) CONFORME FIZ NA LINHA ABAIXO... L := Format('%s:% s%s', [L, FieldName, Comma]); if (Length(L) > 70) and (I <> UpdateFields. Count - 1) then begin SQL.Add(L); L := ' '; end; end; SQL.Add(L+') '); end; Fora isso, não me pareceu nada ruim... Para o Silvio... Valeu Parceiro!!! Vou economizar aqueles EUR120,00 HAHAHAHA Abaços Emanuel Coutinho Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]