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
---------------------------------------
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
1 respuesta
Respuesta de arkide
1