Hola a todos, tengo un proyecto bastante avanzado en el que utilizo delphi 6
con un remote data module y funciones y procedimientos en este.
Todos los procedimientos que tengo creados me funcionan perfectamente pero ahora he creado uno en el que recibo un parámetro de tipo string y este parámetro lo utilizo para hacer una consulta con el like, esta es la consulta:
Código:
procedure TConsultasHtml.BuscarArticulo(const Param1: WideString);
begin
with ADOQuery1 do begin
close;
sql.Clear;
sql.Add('SELECT Producciones.Fecha, Lineas.descripcion_linea, Producciones.id_articulo, '+
'Articulos.descripcion_articulo, Producciones.Cantidad FROM (Articulos INNER '+
'JOIN Producciones ON Articulos.id_articulo = Producciones.id_articulo) INNER JOIN '+
'Lineas ON Producciones.Id_linea = Lineas.Id_linea WHERE Articulos.descripcion_articulo '+
'Like '+ Quotedstr('%'+ Param1 +'%'));
Parameters[0].Value := Param1;
open;
end;
end;
Y este es el código que utilizo en el cliente a través de un clientdataset:
Código:
cds.Close;
FGrupo.conector.AppServer.BuscarArticulos(Ebuscar.text);
cds.Open;
Y este es el error que me da al ejecutar dicha consulta:
Method "BuscarArticulos" not supported by automation object.
Si alguién me puede ayudar sobre el tema. Los otros procedimientos y funciones también tienen parámetros y me funcionan perfectamente, este es el único que no quiere funcionar.
Os doy a todos las gracias por vuestra ayuda, un saludo.