Ver Mensaje Individual
  #1 (permalink)  
Antiguo 13/08/2012, 09:15
minimainor_austin
 
Fecha de Ingreso: agosto-2012
Mensajes: 4
Antigüedad: 11 años, 9 meses
Puntos: 0
Programación Capas vb6.0

Hola, una consulta estoy haciendo un mantenimiento a una tabla pero tengo que hacerlo en capas se me presento el siguiente problema quiero cargar un hiericalflexgrid con datos que estan en mi DB la consulta para cargar la grilla la tengo en la capaDatos pero no puedo llamar al metodo desde la capaLogica me da error en mi capaPresentación donde llamo a ese metodo desde el formulario a la capaLogica les muestro el código.
Código:
CAPA DATOS
Public Function CargarGrilla() As ADODB.Recordset
  Dim rs As ADODB.Recordset
  Dim strSQL As String
  strSQL = "SELECT cliCodigo AS Código, cliRazonSocial AS [Razón Social] FROM Cliente"
  Set rs = New ADODB.Recordset
  rs.Open strSQL, cnMDB, adOpenStatic, adLockOptimistic
  Set CargarGrilla = rs
End Function

CAPA LOGICA
Public Function CargarGrilla()
  objClienteCD.CargarGrilla
End Function

CAPA PRESENTACION(FORMULARIOS)
Private Sub Form_Load()
  Set flex.DataSource = objClienteCL.CargarGrilla ==> VARIABLE DE TIPO OBJECT O VARIABLE DE BLOQUE WITH NO EESTA ESTABLECIDA. 
  FormatoFlex flex
End Sub
si alguien me puede indicar que estoy haciendo mal se lo agradecería
Pedro.