Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Uso del metodo Locate (https://www.clubdelphi.com/foros/showthread.php?t=17060)

Erickocu 21-12-2004 20:17:19

Uso del metodo Locate
 
:confused:
Hola a todos.
Tengo duda en el uso del metodo Locate del componente ADOTable,lo que me ocurre es que necesito buscar una fila de una tabla en otra tabla(ambas con identica estructura interna),ahora no se los campos que tienen las tablas pues el usuario me "dice" que tabla es en el programa,yo capturo el nombre de la tabla y con el metodo FieldName obtengo el nombre de cada campo y los almaceno,luego a la hora de llamar al metodo Locate no se como pasarle los valores de estos campos pues necesito buscar la fila entera en la tabla.
Alguna idea de como formar un arreglo con los valores de la fila a buscar para pasarselo al metodo Locate?

marcoszorrilla 21-12-2004 22:12:17

Mira a ver si con esta idea, pero desarrolándola y adaptándola te puede servir.

Código Delphi [-]
   procedure TForm1.Button1Click(Sender: TObject);
   var
   cCampos:String;
   n:Integer;
   begin
   
     for n:=0 to Table1.FieldCount - 1 do
     begin
     cCampos:=cCampos+Table1.Fields[n].FieldName+';';
     end;
     cCampos:=Copy(cCampos,1,Length(cCampos)-1);
     ShowMessage(cCampos);
   
     Table1.Locate(cCampos,VarArrayOf(['1231','Unisco','PO Box Z-547']),
 [loCaseInsensitive]);
   end;

Un Saludo.

Neftali [Germán.Estévez] 22-12-2004 08:55:29

¿Y no sería más fácil buscar la fila por la "Clave primaria"? Y en todo caso revisar luego (si es necesario) que el resto de campos sean iguales.

NOTA: Si no hay clave primaria definida, pues entonces se puede coger éste post, doblarlo por la mitad, luego volver a doblarlo y a la basura...;)


La franja horaria es GMT +2. Ahora son las 19:28:31.

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