FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Error al ejecutar procedimiento en servidor
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; Código:
cds.Close; FGrupo.conector.AppServer.BuscarArticulos(Ebuscar.text); cds.Open; 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.
__________________
No hay vientos favorables para quién no conoce su rumbo. |
|
|
|