[PostgreSQL-Brasil] Erro no PostgreSQL

Ricardo Fri, 17 Mar 2006 17:31:55 -0800

Pessoal, esse é meu código fonte, mas como disse anteriormente não funciona, me causando erro de caracter, porém os dados q eu to querendo não tem apóstofo, conforme nosso amigo disse q poderia ser.

Será q alguém pode me ajudar?

procedure TFNomeCliente.SBExportaClick(Sender: TObject);
var sSql: String;
    ret: Integer;
begin
        DMExterna.TabGeral.Open;
        DMExterna.TabS_SS.Open;
        EdNome.Text:=DMExterna.TabGeralCliente.Text;
        EdCNPJ.Text:=DMExterna.TabS_SSSS_CGC.Text;
        EdEndereco.Text:=DMExterna.TabGeralEndereco.Text;
        EdCidade.Text:=DMExterna.TabGeralCidade.Text;
        EdUF.Text:=DMExterna.TabGeralEstado.Text;
        EdCEP.Text:=DMExterna.TabGeralCEP.Text;
        EdTelefone.Text:=DMExterna.TabGeralTelefone.Text;
        EdFax.Text:=DMExterna.TabGeralFax.Text;
        EdCNES.Text:=DMExterna.TabS_SSSS_UPS.Text;

        DMInterna.ZGeralDados.close;
        DMInterna.zGeralDados.SQL.Clear;
        sSql:='INSERT INTO "controlrhc"."geral" VALUES ('+
                edNome.Text +','+ EdCNPJ.Text +','+ EdEndereco.Text +','+
                EdCidade.Text + ','+ EdUF.Text + ',' + EdCEP.Text +','+
                EdTelefone.Text + ','+ EdFax.Text +','+ EdCNES.Text+')';
        DMInterna.zGeralDados.SQL.Add(sSql);
        try
           DMInterna.zGeralDados.ExecSQL;
           DMInterna.zGeralDados.Refresh;
           DMInterna.zGeralDados.Open;
        except
           on EDBEngineError do
           begin
                ret:= MessageDlg('Não foi possivel IMPORTAR DADOS', mtError, [mbOK],0);
                Abort;
                Exit;
           end;
        end;
end;

_______________________________________________
Grupo de Usuários do PostgreSQL no Brasil
http://www.postgresql.org.br

[PostgreSQL-Brasil] Erro no PostgreSQL

Responder a