Foros Club Delphi - Select y Tedit

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)

- - Select y Tedit (https://www.clubdelphi.com/foros/showthread.php?t=18465)

MasterXP

13-02-2005 07:47:36

Select y Tedit

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	13-02-2005 11:01:05

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

13-02-2005 11:05:14

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

Un Saludo.

MasterXP

13-02-2005 12:54:45

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

13-02-2005 13:18:34

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

13-02-2005 17:01:39

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

Debiera ser

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

MasterXP

13-02-2005 18:08:06

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

La franja horaria es GMT +2. Ahora son las 19:07:51.