Ver Mensaje Individual
  #1 (permalink)  
Antiguo 10/02/2010, 17:36
Shane
Usuario no validado
 
Fecha de Ingreso: abril-2009
Ubicación: Hidalgo
Mensajes: 93
Antigüedad: 15 años, 8 meses
Puntos: 4
Pregunta Conectar BD .MDF de SQL Server 2000 desde Visual Basic 6.0

Buenas tardes a todos.

Veran he programado un poco con VB.NET 2005 con BDs .MDF de SQL Server 2000, Visual Basic 6.0 con Acces, el detalle es que ahora estoy tratando de conectar Visual Basic 6.0 con BDs .MDF de SQL Server 2000, pero no he logrado hacerlo, se me presentan ciertos detalles en la conexión.

Ya estuve buscando en manuales, probando códigos.
También revisé que mi equipo esté bien configurado como servidor local, revisé que ningún proceso que se necesite no estuviera deshabilitado y todo está bien.

Pero nadamás no me corre el ejemplo:

'-->
Option Explicit

Private cnn As ADODB.Connection
Private rst As ADODB.Recordset

Private Sub cmdAbrir_Click()
Dim tField As ADODB.Field
'
' Por si ya estaba abierta...
Set cnn = Nothing
Set rst = Nothing
'
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
'
' abrir la base usando las credenciales de Windows
cnn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=facturacion; " & _
"Data Source=C:\Archivos de programa\Microsoft SQL Server\MSSQL\Data\facturacion_Data.mdf; " & _
"integrated security=SSPI; persist security info=True;"
'
' abrir el recordset indicando la tabla a la que queremos acceder
rst.Open "SELECT * FROM tblPrueba", cnn, adOpenDynamic, adLockOptimistic
'
' Asignar los nombres de los campos al combo
With cboCampos
.Clear
For Each tField In rst.Fields
.AddItem tField.Name
Next
.ListIndex = 0
End With
'
' Cerrar el recordset y la conexión
rst.Close
cnn.Close
'
End Sub
'<--

¿Es mi proveedor de Datos?
¿La Fuente de datos está mal?

Creo que no ando muy lejos.

El error de Microsoft Visual Basic me muestra lo siguiente:

Error '-2147467259(80004005)' en tiempo de ejecución.

[DBNETLIB][ConnectionOpen(ParseConnectParams()).]Conexion no válida.

y en depuración, el siguiente fragmento de código me aparece en amarillo:
'-->
cnn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=facturacion; " & _
"Data Source=C:\Archivos de programa\Microsoft SQL Server\MSSQL\Data\facturacion_Data.mdf; " & _
"integrated security=SSPI; persist security info=True;"
'<--

Les comento, en la parte en donde se hace la conexión estaba así:

'-->
cnn.Open "Provider=SQLOLEDB; " & _
"Initial Catalog=pubs; " & _
"Data Source=(local)\NETSDK; " & _
"integrated security=SSPI; persist security info=True;"
'<--

¿Estoy usando mal el proveedor de datos?

Su ayuda me sacará de un apuro.
Serían tan amables de decirme que estoy haciendo mal.
Agradeceré sus aportaciones.

Saludos.