Visual Basic Foro

Programación => Bases de Datos => Mensaje iniciado por: SQL_COMPACT_35 en Marzo 31, 2017, 01:15:19 pm

Título: Ayuda, no logro conectar db_.sdf desde vb6.0 (no .net)
Publicado por: SQL_COMPACT_35 en Marzo 31, 2017, 01:15:19 pm

Hola compadres! les saludo, soy nuevo en el foro... perdón si ya esta resuelto en otro post  mi consulta! Les cuento, tengo una base de datos Data.sdf  y necesito hacer que conecte para posteriormente poder hacer consultas, Insertar datos, etc en esa db.

El código que tengo es este:

Código: [Seleccionar]

' La conexión a la base de datos
    Dim cn As ADODB.Connection
    Set cn = New ADODB.Connection
   
    ' Para la cadena de selección
    Dim sSelect As String
   
    ' Para usar un fichero directamente:
    Dim sBase As String

    ' Poner aquí el path y el nombre de la base
    sBase = "c:\Data.sdf"

    ' Y la cadena de selección adecuada
    sSelect = "SELECT * FROM Tabla1"
    '
    cn.Open "Provider=SQLNCLI; " & _
             "AttachDBFileName=" & sBase & "; " & _
             "Data Source=(local)\SQLEXPRESS; " & _
             "integrated security=SSPI; persist security info=True;"
   
    ' El recordset para acceder a los datos
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset

    ' Abrir el recordset de forma estática, no vamos a cambiar datos
 rs.Open sSelect, cn, adOpenStatic
   
    ' Permitir redimensionar las columnas
   ' Me.MSHFlexGrid1.AllowUserResizing = flexResizeColumns

    ' Asignar el recordset al FlexGrid
    'Set Me.MSHFlexGrid1.DataSource = rs
   
    rs.Close
    cn.Close


La estructura de  la db es esta:

Nombre: Data.sdf
Tabla: Tabla1
Columna: Nombre

Captura del error al intentar conectar:
https://drive.google.com/open?id=0B6rzV1DblDKcbWxCNXkwVDZIVkU


Si me pudieran orientar, y como seria si la db tiene contraseña?  aclaro que es una base de datos en fichero .sdf


Necesito conectar a la base de datos, pero me da error... probé cientos de cadenas de conexión distintas y no he logrado conectar.

muchas Gracias por cualquier aporte, conejo o corrección.



saludos a todos.