Ver Mensaje Individual
  #1  
Antiguo 24-03-2011
Lenny Lenny is offline
Miembro
 
Registrado: jun 2007
Posts: 161
Reputación: 17
Lenny Va por buen camino
Question Error Filtro "84X-F5-22FF is not a valid date and time"

Hola y gracias de antemano. Tengo un problema bastante molesto, les cuento:

Tengo un DBEdit el cual segun el contenido (OC) filtra una tabla:
Código Delphi [-]
procedure TPRUEBAS.DBEdit1Change(Sender: TObject);
begin
BDatos.OCPRODUCTOSTAB.Filter := 'OC = ''' + DBEdit1.text + '''';
BDatos.OCPRODUCTOSTAB.Filtered := True;
end;

y esta tabla a la vez filtra otra segun su contenido (Este codigo es sacado de un problema anterior que me solucionaron ak):

Código Delphi [-]
var
Filtro: String;
begin
BDATOS.OCPRODUCTOSTAB.Filter := 'OC = ''' + DBEOC.Text + '''';
BDATOS.OCPRODUCTOSTAB.Filtered := True;
  BDATOS.OCPRODUCTOSTAB.First;
  if not BDATOS.OCPRODUCTOSTAB.Eof then
  begin
    Filtro := 'CODIGO = ' + chr(39) + BDATOS.OCPRODUCTOSTAB.FieldByName('CODIGO').ASstring + chr(39);
    BDATOS.OCPRODUCTOSTAB.Next;
    while not BDATOS.OCPRODUCTOSTAB.Eof do
    begin
       Filtro := Filtro + ' or CODIGO = ' + chr(39) + BDATOS.OCPRODUCTOSTAB.FieldByName('CODIGO').ASstring + chr(39);
       BDATOS.OCPRODUCTOSTAB.Next
    end;
    BDATOS.PRODUCTOSSUMTAB.filter := Filtro;
    BDATOS.PRODUCTOSSUMTAB.Filtered := True;
  end;
  BDatos.PRODUCTOSSUMTAB.First;
BDatos.OCPRODUCTOSTAB.First;
end;

Todo Ok, lo que pasa es cuando existe algun contenido como "84X-F5-22FF" tira el siguiente error:

Código:
"84X-F5-22FF is not a valid date and time"
siendo que no queda guardado como fecha, y en MySQL "CODIGO" es VARCHAR.
Cualquier ayuda bienvenida sea, de antemano gracias...

PD: Delphi 2010, Zeos 7.0.0, MySQL

Última edición por Lenny fecha: 24-03-2011 a las 21:36:03.
Responder Con Cita