Ver Mensaje Individual
  #7 (permalink)  
Antiguo 12/10/2005, 09:03
Avatar de aldo1982
aldo1982
 
Fecha de Ingreso: noviembre-2004
Ubicación: Santa Fe (Argentina) Colon F.C
Mensajes: 1.362
Antigüedad: 19 años, 6 meses
Puntos: 6
Cita:
Iniciado por Bluesman74cl
mira..al final pude hacerlo asi

Código:
Private Sub Form_Load()
   Dim res As ADODB.Recordset
   Dim rs As ADODB.Recordset

   Set Miconexion = New ADODB.Connection
   Aux = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=D:\desarrollo_cazo\servacar_visual\db\capacita.mdb"
   Miconexion.ConnectionString = Aux
   Miconexion.Open
   Set rs = New ADODB.Recordset
   rs.CursorLocation = adUseClient
   
   Consulta = "select * from cargos"
   rs.Open Consulta, Miconexion, adOpenForwardOnly, adLockOptimistic
 
   Set DataGrid1.DataSource = rs
   
End Sub
muchas gracias ombre azul (bluesman) jeejej ahora lo pruebo
salu2
__________________
LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA