** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Visual Basic Clásico (VB3...VB6)
  Mensajes nuevos Mensajes nuevos RSS - Conexion con ADO
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoConexion con ADO

 Responder Responder
Autor
Mensaje
ArielFibbi Ver desplegable
Asiduo
Asiduo


Unido: 10/Agosto/2005
Localización: Argentina
Estado: Sin conexión
Puntos: 202
Enlace directo a este mensaje Tema: Conexion con ADO
    Enviado: 22/Agosto/2008 a las 21:09

Hola Gente!!! Tengo un formulário que ne el evento Load realiza una conexion con una base de datos Access. El problema es que me da error en la línea que numeré con (1): 
                                  ActiveConnection = cnnteste   

El error dice que necesita un Objeto Ole DBSession para el cual no hay soporte.... Saben de que se trata??? UN fuerte abrazo.
 
 
 
Option Explicit

Private Sub Form_Load()
   
    Dim cnnteste As New ADODB.Connection
   
    cnnteste.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _
        "data source=C:\Documents and Settings\XP\Meus     documentos\romaneio.mdb;"
       
   Dim cnncomando As New ADODB.Command
   Dim rsselecao As New ADODB.Recordset
    With cnncomando
        .ActiveConnection = cnnteste   (1)
        .CommandType = adCmdTableDirect
        .CommandText = "Plan1"
        Set rsselecao = cnncomando.Execute
    End With
   
    Me.Text1 = rsselecao!descrição

End Sub

Arriba
everover Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 08/Marzo/2006
Localización: Argentina
Estado: Sin conexión
Puntos: 918
Enlace directo a este mensaje Enviado: 23/Agosto/2008 a las 02:43
Al igual que en el mensaje anterior te agrego algo de codigo en VB6.0 de como realizaba el trabajo con una BBDD de Access sin inconvenientes.


'Se guarda en la variable la cadena de conexion leida desde un fichero INI
cadco = LeeINI("BBDD", "CadenaCon", App.Path & "\Config.Ini")
   
'Se reemplaza el password de la base si es que tiene.
pa = "aquitupassword"
cadcon = Replace(cadco, "PassWord=;", "PassWord=" & pa & ";")

'Se instancia una nueva conexion
Set Conn = New ADODB.Connection
'Se abre la conexion
Conn.Open cadcon
'Se instancia un nuevo objeto recorset.
Set Recset = New ADODB.Recordset

nombre_TBL = "Tu_tabla"

'Se llena el objeto recorset
Recset.Open "select * from " & nombre_TBL & "", Conn, adOpenDynamic, adLockBatchOptimistic, adCmdText
   
    Set MSHFlexGrid1.DataSource = Recset



Espero te sirva
Sds
"Al final, lo que importa no son los años de vida, sino la vida de los años".
Arriba
ArielFibbi Ver desplegable
Asiduo
Asiduo


Unido: 10/Agosto/2005
Localización: Argentina
Estado: Sin conexión
Puntos: 202
Enlace directo a este mensaje Enviado: 23/Agosto/2008 a las 03:18
Buenisimo, tal vez un poco fuera de mi nivel pero vale para estudiarlo... Gracias
Arriba
ArielFibbi Ver desplegable
Asiduo
Asiduo


Unido: 10/Agosto/2005
Localización: Argentina
Estado: Sin conexión
Puntos: 202
Enlace directo a este mensaje Enviado: 25/Agosto/2008 a las 14:53
Gente, voy a compartir con ustedes mi torpeza....
Dim db As New ADODB.Connection
 
ME ESTABA FALTANDO EL "NEW" antes de ADODB.
 
 
Muchas gracias y disculpen!!!!!!!!!!
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable