Recordset desconectado ???

[mgd]

Hola como estan?
bueno el problema que tengo es que a travez de un procedimiento almacenado en mysql cargo los datos de una consulta a un recordset, entonces ese recordset lo cargo a un msflexgrid.
Cando intento filtrar ese recordset aveces me da error en la linea

Código VB:

rspacientes.Filter = "nombre" & " LIKE '*" + txtfiltro + "*'"
 

el error es de que se perdio la conexion con el servidor, aveces tambien me da error en rspacientes.movefirst

mientras uso el programa en la misma maquina que el servidor anda todo bien y muy pocas veces da este error. las variables del servidor las extendi osea que ese no es el problema.

Intento desconectar el recordset una vez ejecutado el procedimiento almacenado y cargado los datos al recordset algo asi

Código VB:

Set cmd = New ADODB.Command
    Set rspacientes = New ADODB.Recordset
    cmd.ActiveConnection = db
    rspacientes.CursorLocation = adUseClient
    cmd.CommandText = "call cargarpacientes('" & estado & "','" & orden & "')"
    Set rspacientes = cmd.Execute
 
    Set rspacientes.ActiveConnection = Nothing
 

Esto me dice que la operacion no esta permitida si el objeto esta abierto

entonces prueba asi

Código VB:

Set cmd = New ADODB.Command
    Set rspacientes = New ADODB.Recordset
    cmd.ActiveConnection = db
    rspacientes.CursorLocation = adUseClient
    cmd.CommandText = "call cargarpacientes('" & estado & "','" & orden & "')"
    Set rspacientes = cmd.Execute
    rspacientes.Close
    Set rspacientes.ActiveConnection = Nothing
 

y esto me dice que no se puede cambiar la propiedad activeconnection del objeto recordset si el origen es un objeto command


Que puedo hacer ????

Agrego que solo utilizo el recordset para cargar los datos en controles y los update, delete o insert los hago con otros procedimientos almacenados.

Muchas gracias

[KenMasters]

a ver

estas usando una funcion cargapacientes, pero lo estas colocando como texto, dentro del CommandText entonces lo toma como texto, de consulta y no lo concidera como funcion, entonces intenta de esta manera:

Código:

cmd.CommandText = call cargarpacientes('" & estado & "','" & orden & "')

De preferencia pega la funcion cargapacientes para saber como trabaja

[mgd]

Código MySQL:

PROCEDURE `cargarpacientes`(estadop varchar(10), ordenp varchar(50))
if estadop = "TODOS" then
 
    select pacientes.codpaciente, pacientes.nombre, pacientes.domicilio, concat(pacientes.telefono,'/', pacientes.celular) as telefono, obrasocial.descripcion as obrasocial, localidades.descripcion as localidad
 
    from localidades, pacientes left join obrasocial on obrasocial.codobra = pacientes.obrasocial
 
    where pacientes.codpostal = localidades.codpostal order by nombre;
 
else
 
    select pacientes.codpaciente, pacientes.nombre, pacientes.domicilio, concat(pacientes.telefono,'/', pacientes.celular) as telefono, obrasocial.descripcion as obrasocial, localidades.descripcion as localidad
 
    from localidades, pacientes left join obrasocial on obrasocial.codobra = pacientes.obrasocial and obrasocial.estado = 'ALTA'
 
    where pacientes.codpostal = localidades.codpostal and pacientes.estado = estadop  order by nombre;
 
end if;
 

ese es el procedimiento almacenado que uso. El parametro orden no lo uso

Probar lo que me decis no se puede me da error de sintaxis

Código VB6:

cmd.CommandText = call cargarpacientes('" & estado & "','" & orden & "')