Lo prometido es deduda, un saludo y perdón para los que se hayan molestado:
Procedure en el servidor:
Código:
procedure TConsultasHtml.AyudaArticulos(CodArticulo: LongWord);
begin
with ADOQuery1 do begin
close;
sql.Clear;
sql.Add(LeerDatosIni('AyudaArticulos'));
Parameters[0].Value := CodArticulo;
open;
end;
end;
La consulta se lee de un archivo .ini que es la siguiente:
Código:
AyudaArticulos = SELECT Articulos.id_articulo, Articulos.descripcion_articulo FROM Articulos WHERE Articulos.descripcion_articulo like %s and Articulos.descripcion_articulo like %s
En el cliente hago lo siguiente:
Código:
procedure TFAyudaArticulos.BTBuscarClick(Sender: TObject);
begin
if (Ebuscar1.text <> '') then begin
cds.Close;
FGrupo.conector.AppServer.BusquedaArticulos(Ebuscar1.text,Ebuscar2.text);//llamada al procedimiento servidor
cds.Open;
SBdatos.panels[1].text := 'Registros encontrados: '+inttostr(cds.RecordCount);
end
else showmessage('No hay datos para buscar.');
end;
Le mando dos campos porque tengo dos parámetros para buscar el articulo en concreto.
Espero que esto os sirva, un saludo.
POSDATA: Entre todos podemos hacer que la tribu no desaparezca.