Error con una Query!!

[Alsaca]

Buenas tardes a todos/@. Mi post de más abajo está casi resuelto. Os comento otra duda que tengo.

Hago una busqueda con una Query desde un edit y me aparece los datos en un dbgrid, como hago para que al dar doble click sobre el cliente selecionado desde el dbgrid, me aparezca en el form principal que son dbedit. Porque cuando seleciono un registro, siempre me aparece el primero y no el que selecciono.


Saludos.

[[felipe88]]

...y si haces de nuevo la consulta..? digo no...

[Alsaca]

No entiedo lo que quieres decir, Felipe... puedes ser más explicito.

[marcoszorrilla]

Sospecho que los DbEdits los tienes conectados a un TTable y tu estás interactuando con una Consulta, por lo tanto el registro que tu tengas en la consulta no tiene nada que ver con el que esté apuntando la tabla.

Un Solución es hacer que los DbEdits apunten a la consulta y no a la tabla.

Otra al abrir el formulario utilizar una búsqueda del tipo.

Código Delphi [-]
MiTabla.FindKey([MiquerCampo1.Value]);

O con Locate sino tienes índices declarados.
Un Saludo.

[[eduarcol]]

seguro que tienes dos query distintas, una para mostrar informacion y otro para buscarlo. Deberias usar el mismo para los dos.

[Alsaca]

Gracias a todos por la ayuda, aquí pongo el código de la consulta que hago:



query1.Close;
query1.SQL.Clear;
Query1.SQL.Add('select * from tclient where nomb like');
query1.SQL.add(quotedstr ('%' + edit1.text + '%'));
query1.Open;


Con esta consulta lo muestra en el dbgrid....


Saludos.

[[eduarcol]]

Empezado por Alsaca

Gracias a todos por la ayuda, aquí pongo el código de la consulta que hago:



query1.Close;
query1.SQL.Clear;
Query1.SQL.Add('select * from tclient where nomb like');
query1.SQL.add(quotedstr ('%' + edit1.text + '%'));
query1.Open;


Con esta consulta lo muestra en el dbgrid....


Saludos.

y en el formprincipal estan conectados al Query1 o a otro componente?

[Alsaca]

En Form principal estan conectados a un datasource y este a una tabla...






Saludos.

[[eduarcol]]

Empezado por Alsaca

En Form principal estan conectados a un datasource y este a una tabla...






Saludos.

entonces ubica la solucion que te dio Marcos eso es lo que debes hacer...

[Alsaca]

Eduarcol, he probado las consultas que dice marcos y no me funcionan. Pero si he probado esta consulta:

tclient.indexname:='nom';
tclient.setkey;
tclient.fieldbyname('nomb').asstring:=edit1.text;
tclient.Gotonearest;

y te comento lo que me pasa con esta consulta, si tengo dos registros con el mismo nombre, por ejemplo, en el registro doce MANUEL y en el registro 35 MANUEL... si se selecciona este último, en el form principal muestra el registro número doce, es decir, si tienes dos, tres, cuatro registros con el mismo nombre, pues siempre muestra el primero.




Saludos.

[[eduarcol]]

Empezado por Alsaca

Eduarcol, he probado las consultas que dice marcos y no me funcionan. Pero si he probado esta consulta:




y te comento lo que me pasa con esta consulta, si tengo dos registros con el mismo nombre, por ejemplo, en el registro doce MANUEL y en el registro 35 MANUEL... si se selecciona este último, en el form principal muestra el registro número doce, es decir, si tienes dos, tres, cuatro registros con el mismo nombre, pues siempre muestra el primero.




Saludos.

entonces, si no tienes una clave mas especifica te va a tocar redireccionar los dbedit al query de la consulta en lugar del table, tal como te dijo Marcos, si lees bien su respuesta veras que hay esta la solucion

[[felipe88]]

Ya que usas tablas no te recomiendo la idea mia, debido a que tendrias que cambiar el DataSource para apuntar al query, prueba entonces con el locate

Sin hembargo lo que pense era de que capturando de nuevo el nombre a traves del resultado, hacer de nuevo la consulta para que aparecieran en el form

[tcp_ip_es]

Si la cosa es asi:

dbedit->datasource1->ttable
dgrid->datasource2->tquery

como bien dice felipe, yo haría un locate del registro que seleccionas en la dbgrid, de tal manera que:

// en el onclick o dblclick del dbgrid que apunta a tu tquery de búsqueda
//******Pongo Cod_Cliente por poner un campo, pero ahi debería ir tu campo 
// clave de la tabla clientes *****
Tclientes.Locate('Cod_Cliente',tquery.fieldbyname('Cod_Cliente').asstring,[]);

Saludos, Tony

[Alsaca]

Gracias a todo el mundo que habéis aportado vuestro granito de arena, lo he solucionado de la siguiente forma:

 
tclient.Fieldbyname('nomb').asstring:=fbuscli.Tclient.fieldbyname('nomb').asstring;

Saludos y muchas gracias.