Cita:
Empezado por exequielmatias1
Hola gente.. tengo la siguiente consulta, tengo un memo con una cadena de codigos ej: SABBQCDI SABFQADG SABDQADG SABFQADG (...)
cada uno de estos codigos de 8 letras representa un nombre, que se encuentra en una tabla de validacion en access.
mi tabla conectada desde un ADOQuery tiene una columna nombre y otra Id que son las cadenas de 8 caracteres
Necesito un codigo que busque esos campos en la tabla de validacion y me muestre en un memo los nombres de esos codigos.
|
Hola exequielmatias1.
Bueno, lo que pude entender de tu mensaje es que en un
TMemo, tenes un número indeterminado de nombres separados por un espacio y que deseas buscarlos en una tabla.
Entonces:
Código Delphi
[-]
var
TS : TStringList;
str: string;
i : Integer;
begin
TS := TStringList.Create;
try
ExtractStrings([' '], [], PChar(Memo1.Text), TS);
str := 'SELECT * FROM TABLA_VALIDACION WHERE ';
for i:= 0 to TS.Count -1 do
str := str + ' NOMBRE = ' + QuotedStr(TS[i]) + ' OR ';
SetLength(str, Length(str) - Length(' OR '));
with ADOQuery1 do
begin
Close;
SQL.Text := str;
Open;
end;
finally
TS.Free;
end;
end;
Saludos.