Conexion visual basic 6.0 sql 2005 express

La bd esta en la carpeta defecto de sql server, cuando hice la instalación fue con instancia de windows, agregue la librería y componente, creo que el error es que esta mal definda la instancia este es el segmento de error:
---------------------------------------
n.Open "Provider=SQLNCLI; " & _
"Initial Catalog=medio_ambiente; " & _
"Data Source=(local)\SQLEXPRESS; " & _
"integrated security=SSPI; persist security info=True;"
----------------------------------------
como debería quedar???
-----------------------------------------
acá todo el código
Private Sub btnConectar_Click()
' 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 una base de datos normal:
sSelect = "SELECT * FROM ciudad"
cn.Open "Provider=SQLNCLI; " & _
"Initial Catalog=medio_ambiente; " & _
"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, con, adOpenStatic
' Permitir redimensionar las columnas
MSHFlexGrid1.AllowUserResizing = flexResizeColumns
' Asignar el recordset al FlexGrid
Set MSHFlexGrid1.DataSource = rs
rs.Close
Con.Close
End Sub
Respuesta
1
Aparentemente la cadena de conexión es incorrecta, prueba con el siguiente código, solo cambia servidor, usuario, password y nombre de la BD:
Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
With Conn
.CursorLocation = adUseClient
.CommandTimeout = 0
.ConnectionTimeout = 45
.ConnectionString = "PROVIDER=MSDASQL;driver={SQL Server};server=TU_PC;uid=USUARIO;pwd=PASSWORD;database=NOMBRE_BASEDEDATOS;"
.Open
End With

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas