lcmacedo

Bom dia a todos. Depois de muito pesquisar consegui fazer gravar os acentos na base firebird. segue o exemplo: CREATE TABLE TB_EMPRESAS ( SEQEMPRESA INTEGER NOT NULL, RAZAOSOCIAL VARCHAR(100) CHARACTER SET UTF8 COLLATE UNICODE_CI, FANTASIA VARCHAR(100) CHARACTER SET UTF8 COLLATE UNICODE_CI, CNPJ VARCHAR(20) CHARACTER SET UTF8 COLLATE UNICODE_CI, INSC VARCHAR(20) CHARACTER SET UTF8 COLLATE UNICODE_CI, ENDERECO VARCHAR(100) CHARACTER SET UTF8 COLLATE UNICODE_CI, BAIRRO VARCHAR(100) CHARACTER SET UTF8 COLLATE UNICODE_CI, CIDADE VARCHAR(100) CHARACTER SET UTF8 COLLATE UNICODE_CI, UF CHAR(2) CHARACTER SET UTF8 COLLATE UNICODE_CI, CEP VARCHAR(10) CHARACTER SET UTF8 COLLATE UNICODE_CI, FONE1 VARCHAR(20) CHARACTER SET UTF8 COLLATE UNICODE_CI, FONE2 VARCHAR(20) CHARACTER SET UTF8 COLLATE UNICODE_CI, RESPONSAVEL VARCHAR(100) CHARACTER SET UTF8 COLLATE UNICODE_CI ); Resolvi o problema utilizando CHARACTER SET UTF8 COLLATE UNICODE_CI. Verifiquei que o Lazarus trabalha em UNICODE. Desta forma os caracteres especiais e acentos foram gravados. Espero que ajude. Abraços.

Bom dia Jhonas. Meu problema é que estou usando o componente ZEOS 6.6.6 e quando faço a gravação utilizando ele é gravado na tabela CAFÉ ao invés de CAFÉ. Quando digito direto na tabela e gravo fica OK. Não sei mais o que fazer. O link que me passou no qual eu visualizei seria para selecionar os registros acentuados ou não. Meu problema é que ele não está gravando correto na base. Agradeço muito se puder me ajudar. Abraços

Já fiz as configurações de todas as formas no firebird. em properties do zconnection coloquei conexao.Properties.Add('Codepage=WIN1252'); Criei os campos com CHARACTER SET WIN1252 COLLATE WIN_PTBR Quando faz a gravação da palavra CAFÉ fica no banco assim:CAFÉ Quando faço a pesquisa pela aplicação ele apresenta no dbedit correto = CAFÉ. Quando verifico na tabela está:CAFÉ Mas consigo inserir a palavra CAFÉ na tabela perfeitamente. Quando faço a pesquisa apresenta apenas CAF estou usando o seguinte comando de inserção : INSERT INTO TB_EMPRESAS ( SEQEMPRESA, RAZAOSOCIAL, FANTASIA, CNPJ, INSC, ENDERECO, BAIRRO, CIDADE, UF, CEP, FONE1, FONE2, RESPONSAVEL) VALUES( :SEQEMPRESA, :RAZAOSOCIAL, :FANTASIA, :CNPJ, :INSC, :ENDERECO, :BAIRRO, :CIDADE, :UF, :CEP, :FONE1, :FONE2, :RESPONSAVEL) Utilizo um TZQuery para este procedimento. Não sei mais o que fazer. Agradeço a ajuda de todos desde já.