Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Conexión con bases de datos

 
 
Herramientas Buscar en Tema Desplegado
  #5  
Antiguo 04-06-2008
Avatar de judit25
judit25 judit25 is offline
Miembro
 
Registrado: abr 2006
Ubicación: Bronx, NY
Posts: 122
Poder: 19
judit25 Va por buen camino
Cita:
Empezado por Wiarbumu Ver Mensaje
si te explicas un poquito mas, de pronto podriamos ayudarte, poque la verdad no me queda claro que eslo que quieres hacer, ilustranos con un ejemplo mas claro y muy seguramante te ayudaremos a resolver tu problema.

Por ejemplo cuando hablas que no te reconece ciertas funciones no se a que te refieres, pero creo que podría ser que no agregaste la Unit StrUtils.

Saludos
Hola,

Deja ver si me explico mejor:

Tengo una tabla en Access que contiene un campo llamado Size, en el se guardan los sizes de la siguiente manera:
123/45/98 o 000/00/00 (este ultimo es para los sizes que son de diferente formato que el anterior). Para saber el size en el segundo caso cree un query donde tomo el primer size y lo pongo en otro campo en el query y aqui cuando es 000/00/00 tomo el size de la descripcion del producto. O sea que en el query me quedaria Size (size original), Size2 (donde esta el original y en el caso de que sea 000/00/00 el que esta en la descripcion).

En delphi tengo una consulta donde puedo buscar por ese size (Size2), pero lo que necesito es que cuando digiten el size en el Edit no tengan que digitarlo con los "/" o en el otro caso con ("X", "-", ".") sino simplemente "1234598".

Aqui dejo la sentencia SQL que estoy usando en Delphi

Código Delphi [-]
Query1.SQL.Add('SELECT *, Mid(QGomas.[Size],8,2) as Tam, InStr(QGomas.[Descripcion], ' + ' ' + ') AS posicion, ');
Query1.SQL.Add(' Mid(QGomas.[Descripcion],QGomas.[posicion]+2,15) AS parte1, InStr(QGomas.[parte1], ' + ' ' + ') AS posi2, Mid(Qgomas.[parte1],1,QGomas.[posi2]-1) AS parte2, IIf((QGomas.[Size]= ' + quotedStr('000/00/00') + '),QGomas.[parte2],QGomas.[Size]) AS Size2,');
Query1.SQL.Add(' Replace(Size2,' + '/' + ',' +'' + ') AS Size3 FROM QGomas');

Gracias

Saludos
__________________
El hombre feliz no es el hombre que rie, sino aquel cuya alma llena de alegría y confianza se sobrepone y es superior a los acontecimientos.
Séneca
Responder Con Cita
 



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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Reemplazar caracteres Ubed Varios 1 11-01-2008 18:45:48
Reemplazar texto en un .dfm elcigarra OOP 9 19-12-2007 08:47:17
Reemplazar Archivos en Uso eduarcol Noticias 2 15-06-2004 11:58:06
Buscar y reemplazar sur-se Servers 2 16-04-2004 18:36:16
reemplazar un EXE que está en uso carlosmari Varios 15 04-12-2003 17:55:39


La franja horaria es GMT +2. Ahora son las 07:14:17.


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