Exclusão de String em um banco de dados

Delphi

02/01/2006

Boa Noite

Possuo um banco de dados com varios campos, dentre eles exite o campo DIAMES onde estão guardados os seguintes valores 003/01/2005, preciso de uma rotina que exclua toda as barras ´/´ do campo e o primeiro zero a esquerda.

Agradeço desde ja


Misael

Misael

Curtidas 0

Respostas

Eixox

Eixox

02/01/2006

Dependendo do seu banco de dados, existe um comando que executa esse procedimento tranquilamente - se você está usando o Firebird - olhe no arquivo de ajuda as funçõe de String. O mesmo comando inclusive é muito parecido para o Oracle e MySQL. Infelizmente não me lembro o nome dele agora.


GOSTEI 0
Misael

Misael

02/01/2006

Entao agradeço pela ajuda mais eu ja consegui aqui.. a rotina usada foi a seguinte:
function DeleteChar(const Ch: Char; const S: string): string;
var
  Posicao: integer;

begin
  Result := S;
  Posicao := Pos(Ch, Result);
  while Posicao > 0 do
  begin
    Delete(Result, Posicao, 1);
    Posicao := Pos(Ch, Result);
  end;

end;

// Outra Funcao

function ZeroEsquerda(const I: integer; const Casas: byte): string;
var
  Ch: Char;
begin
  Result := IntToStr(I);
  if Length(Result) > Casas then
  begin
   Ch := ´*´;
    Result := ´´;
end

  else
    Ch := ´0´;
  while Length(Result) < Casas do
    Result := Ch + Result;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Table1.Open;
Table1.First;
while not(Table1.eof) do begin
Table1.Edit;
Table1CGCCPF.Text := DeleteChar(´-´, DBEdit1.Text);
//ZeroEsquerda(strtoint(dbedit1.text), 8);
//DeleteChar(´0´, DBEdit1.Text);
Table1.Post;
Table1.Next;
  end;
  Application.messagebox(´Tranferencia concluida!´,´Aviso´,Mb_IconInformation);
end;



GOSTEI 0
POSTAR