Visual Basic - Problemas al cargar felxgrid con ADO

Life is soft - evento anual de software empresarial
 
Vista:

Problemas al cargar felxgrid con ADO

Publicado por jose (4 intervenciones) el 20/05/2007 22:21:58
gente: en una oportunidad habia hecho una conexion ado y con ella cargaba un mshflexgrid, copie el mismo codigo en otro proyecto, con referencias, revisé la ruta de la base y todo eso, pero al ejecutar el programa me da el popular "la variable de tipo object...", para ello tengo funciones conexion y consulta que estan mas abajo


Private Sub Form_Load()

Set rst = New ADODB.Recordset
Set rec1 = New ADODB.Recordset
Set rec1 = rst
CrearConexion (App.Path & "\sistema.mdb")
CadenaSql = "select * from clientes"
CrearConsulta (CadenaSql)
Set Flex1.DataSource = rst
Flex1.Refresh
Text1 = Date
Text1.Enabled = False
Combo2 = "Contado"

End Sub


Global Conexion As ADODB.Connection
Global rst As ADODB.Recordset
Global VarTipoReporte As Integer

Public Function CrearConexion(RutaBase As String) As Boolean
On Error GoTo Errores
Set Conexion = New ADODB.Connection
Conexion.CursorLocation = adUseClient
Conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sistema.mdb ;Persist Security Info=False"
Conexion.Open
CrearConexion = True
Exit Function
Errores:
MsgBox "Revisar el origen de datos", vbCritical
Conexion = False
End Function
Public Function CrearConsulta(CadenaSql As String)
If rst.State = adStateOpen Then rst.Close
rst.Open CadenaSql, Conexion, adOpenForwardOnly, adLockReadOnly, adCmdText
End Function
Public Function CerrarConexion()
Conexion.Close
If rst.State = adStateOpen Then rst.Close
Set rst = Nothing
End Function


espero puedan darme una mano! gracias!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas al cargar felxgrid con ADO

Publicado por Luis Augusto (167 intervenciones) el 21/05/2007 03:08:39
Hola, Jose!!

Fijate bien lo que pasas como parametro a la funcion conexion y lo que tienes en la cadena de conexion ahi esta tu error.

Conexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\sistema.mdb ;Persist Security Info=False"

Espero te sirva.

Saludos!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

solucionado! gracias!

Publicado por jose (4 intervenciones) el 21/05/2007 11:14:31
Ademas de lo que me dijiste, estaba utilizando por error un msflexgrid, pero deberia haber ocupado un flex jerárquico : (
pero bueno, ya está, muchas gracias!
jose
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar