Casa
Top.Mail.Ru Yandeks.Metrika
Foro: "Bases";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

abajo

Buen dia necesito consejo por favor Encontrar ramas similares


DeadMoroz   (2001-12-03 15:21) [0]

Para buscar en la tabla utilizo el proceso estándar:

procedimiento TForm1.Edit1Change (Sender: TObject);
comenzar
si Edit1.Text <> "" entonces
comenzar
Table1.Locate ("NUM", Edit1.Text, loCaseInsensitive, loPartialKey]);
fin;
fin;

pero, en este caso, el campo "NUM" del tipo Int ... En resumen, el cursor se arrastra al registro solo cuando el texto coincide completamente con el valor del campo, es decir, no hay una clave loPartial, pero me gustaría. Probé todos los otros métodos (y Pos también) ... eventualmente vine aquí.

Asesorar quién puede hacer qué, gracias de antemano :-).



Deniz   (2001-12-03 15:50) [1]


procedure TForm1.Edit1Change(Sender: TObject);
var i : integer;
begin
if Edit1.Text<>"" then begin
TmpQuery.SQL.Clear;
TmpQuery.SQL.Add("select num from table1
where cast(num as varchar(20)) like :aNum");
TmpQuery.Prepare;
TmpQuery.Params[0].asString:=Edit1.Text;
TmpQuery.Open;
if TmpQuery.IsEmpty then begin
TmpQuery.Close;
ShowMessage("Not found.");
Exit;
end
else begin
i:=TmpQuery.Fields[0].asInteger;
TmpQuery.Close;
Table1.Locate("NUM", i, []);
end;
end;
end;

TmpQuery - Consulta temporal
Buena suerte.



DeadMoroz   (2001-12-03 16:09) [2]

El hecho es que mi Table1 es un Maestro y aún así el cursor debe moverse a su DataSet "e ... aunque intentaré vincular TmpQuery en el mismo DataSet1 ...



DeadMoroz   (2001-12-04 09:16) [3]

Lo intenté ... funciona, pero unos frenos terribles ...

¿Más consejos?



Páginas: 1 rama entera

Foro: "Bases";
Archivo actual: 2002.01.08;
Descargar: [xml.tar.bz2];

arriba





Memoria: 0.55 MB
Tiempo: 0.032 c
6-22272
Shadow
2001-10-06 18:26
2002.01.08
Pregunta con zakovyrkoy!


1-22081
Andrewv
2001-12-18 14:14
2002.01.08
Cómo causar un error de sistema.


6-22301
Chino que
2001-10-10 14:45
2002.01.08
¿Esclerosis o qué?


14-22364
Esmerejón
2001-11-06 00:22
2002.01.08
Si no guardas, entonces se habrá ido!


1-22168
Yegor Bulychev
2001-12-20 21:59
2002.01.08
myedit.exe param ???





africaans albanés Arabic armenio Azerbaiyán vasco Bielorruso Bulgarian Catalán Chino (simplificado) Chino (tradicional) Croata Checo Danés Dutch Inglés Estonia filipina Finnish French
gallego georgiano Alemán Griego criollo haitiano Hebreo hindi Húngaro islandés Indonesian irlandés Italiano Japonés Korean letón lituano macedonio Malay maltés Noruego
persa polaco Portuguese Rumano Ruso Serbio Slovak Esloveno Español swahili Sueco Thai turco ucranio Urdu vietnamita galés yídish bengalí bosnio
cebuano esperanto gujarati hausa hmong igbo javanés kannada khmer lao latín maorí marathi mongol nepali punjabi somalí Tamil telugu yoruba
zulú
Английский Francés Alemán Italiano portugués Русский Español