A ver prueba esto:
Código Delphi [-]
procedure TForm1.A1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
query3.Active:=false;
query3.sql.Text:='select Empresa from etiquetas where stand=' + QuotedStr('A01');
query3.Active:=true;
__________________
...Yo naci en esta ribera del arauca vibr@d0r
Soy hermano de la espuma,
de la garza, de la rosa y del sol...
Viva Venezuela
|