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:
' 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.CloseLa 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=0B6rzV1DblDKcbWxCNXkwVDZIVkUSi 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.
