Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > SQL
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 16-10-2005
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 19
olbeup Va camino a la fama
Localizar un caracter y cambiarlo por otro

Hola Gente,

El problema que tengo es el siguiente, he transferido un fichero "Client.dbf" a una tabla "Clientes" en access que se llama "Clientes.MDB", en la transferencia la letra "Ñ" se a puesto otro simbolo "ö", localizo los registros que contiene este simbolo con la siguiente sentencia:

Código:
Select * From Cliente Where Nombre Like "*ö*";
¿Como puedo localizar la posición del "ö" y cambiar por "Ñ" en la misma posición?

Gracias,

Saludos.
Responder Con Cita
  #2  
Antiguo 16-10-2005
Avatar de Sotrono
Sotrono Sotrono is offline
Miembro
 
Registrado: abr 2004
Ubicación: Buenos Aires - Argentina
Posts: 396
Poder: 21
Sotrono Va por buen camino
Hola, lo podes hacer con la funcion StringReplace:

Código Delphi [-]
  s:= ValorACambiar;
  StringReplace(s, 'ö', 'ñ', rfReplaceAll);

Espero que te sirva...
Responder Con Cita
  #3  
Antiguo 16-10-2005
Avatar de olbeup
olbeup olbeup is offline
Miembro
 
Registrado: jul 2005
Ubicación: Santiago de la Ribera (España)
Posts: 685
Poder: 19
olbeup Va camino a la fama
Exclamation

Gracias por tu respuesto sotrono,

Pero cual seria la secuencia de SQL para realizar tal tarea,

Gracias.
Responder Con Cita
  #4  
Antiguo 16-12-2005
Avatar de Chente(rMan)
Chente(rMan) Chente(rMan) is offline
Miembro
 
Registrado: ago 2005
Posts: 89
Poder: 19
Chente(rMan) Va por buen camino
Que tal sotrono, pues fijate que estoy intentando usarlo pero me marca un error:

Incompatible types: 'TReplaceFlags' and 'Enumeration'


Tengo Delphi 6, y en la ayuda veo que utiliza SysUtils, que si tengo en mi form.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
  s := ADOQuery1.FieldByName('rutaarchivo').AsString;
  StringReplace(s, 'PJ1', 'PJ2', rfReplaceAll)  ;
  Edit2.Text := s;
end;
Cual sera el problema?, alguien que me pueda ayudar...


Saludos.

Vicente López.
Responder Con Cita
  #5  
Antiguo 16-12-2005
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por Chente(rMan)
Cual sera el problema?
Pon el rfReplaceAll entre corchetes:

[rfReplaceAll]

// Saludos
Responder Con Cita
  #6  
Antiguo 16-12-2005
Avatar de Chente(rMan)
Chente(rMan) Chente(rMan) is offline
Miembro
 
Registrado: ago 2005
Posts: 89
Poder: 19
Chente(rMan) Va por buen camino
Excelente Román, tienes toda la razón y creo que es por esto.

Código Delphi [-]
type
  TReplaceFlags = set of (rfReplaceAll, rfIgnoreCase);



Saludos.

Vicente López.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 10:38:19.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi