Select y Tedit

MasterXP · #1 13-02-2005

Hola a todos.

Me gustaria que me tiraran una manita con esto:
como hago para asignar a un edit, el valor que me devuelve el query.

me explico, hago mi query:

Código:

QUERY1.CLOSE;
 query1.SQL.Clear;
 QUERY1.SQL.ADD('SELECT * FROM EMPLEADO.DB');
 QUERY1.OPEN;

Digamos que la tabla tiene 2 colunmas: Codigo y Nombre
entonces cuando se pule el boton:

Ebuscar ,es un Tedit en el que se escribira el nombre que se busca y al presionar enter se ejecuta:

Código:

 resultado:=Query1.Lookup('NOMBRE', Ebuscar.Text', 'Codigo;Nombre');
 
 Edit1.Text:=StrToInt(resultado[0]);
 Edit2.Text:=resultado[1];

Creo que hay deberia devolverme en el edit1 y edit2 el resultado, pero me da error.

si me podrian decir k estoy haciendo mal, o si hay una mejor manera de pasar el resultado de un query a varios edit que no sea usando Lookup me dicen.

Gracias de antemano.

[Lepe] · #2 13-02-2005

Para esa búsqueda es mejor tener un DBGrid enlazado a la consulta, ya que así mostrará todos los que se hayan encontrado.

En el boton buscar pones:

Código Delphi [-]QUERY1.CLOSE;
 query1.SQL.Clear;
 QUERY1.SQL.ADD('SELECT * FROM EMPLEADO.DB where upcase(Nombre) like ' +
 quotedstr('%'+uppercase(edbusca.text)+'%');
 QUERY1.OPEN;

si tienes "be" en el edbuscar, encontrará los clientes:
Begoña
Alberto
BENITEZ

el % es un comodin suponiendo que usas tablas paradox

En lugar de usar uppercase(edbusca.text), puedes establecer la propiedad CharCase del edbusca a UPPercase.

Saludos.

marcoszorrilla · #3 13-02-2005

Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject);
 begin
 Edit1.Text:=Query1.Fields[3].AsString;
 end;

Un Saludo.

MasterXP · #4 13-02-2005

hey, excelete, me funciono perfectamente.

ahora otra otra preguntita, se pueden insertar datos por medio de sentencias SQL, osea poder usar Insert, Update o delete?

yo lo he intentado de varias maneras y varios componentes y no logro nada.

y la verdad gracias por la ayuda a ambos las dos me han servido.

marcoszorrilla · #5 13-02-2005

Para esta pregunta al ser distinta deberías haber abierto un nuevo hilo, pero ya voy a contestarte en este mismo.
Por supuesto que se pueden utilizar sentencias del tipo Delete, Insert, Update, pero al ser conjuntos que no van a devolver datos, sino a modificar la tabla a la que estan conectados, debes activar la consulta con:
ExecSql y no con Open.

Un Saludo.

Sinaloense · #6 13-02-2005

Edit1.Text:=StrToInt(resultado[0]);

Debiera ser

Edit1.Text:=IntToStr(resultado[0]);

MasterXP · #7 13-02-2005

Cita:

Empezado por Sinaloense

Edit1.Text:=StrToInt(resultado[0]);

Debiera ser

Edit1.Text:=IntToStr(resultado[0]);

Viendolo bien, es cierto, buen punto Sinaloense... no me habia fijado en eso.. jeje que tonto soy. Aunque ya eso lo solucione usando la forma k dijo marcoszorrilla.

Código:

Edit1.Text:=Query1.Fields[3].AsString;

por cierto, la continuacion de este post, a seguido en este por si deseas ayudarme:
http://www.clubdelphi.com/foros/showthread.php?t=18467