Problemas de conexión BD Sql Server 2008 Vb6

[franko1809]

Hola mira hace tiempo logre conectar vb6 con sqlServer2005 version EXPRESS te dejo el codigo y ojala te funcione con el 2008, tambien puedes revisar aqui, que fue de donde me guie aunque no estoy seguro.

NOTA: Ten cuidado no recuerdo bien ahora pero creo que la version express no acepta algunos tipos de conexiones osea hay restricciones a diferencia de la version full del SQLServer, ten cuidado con eso quizas tu conexion actual este correcta pero como tienes la version express no te permite que te conectes, en algun momento perdi bastante tiempo y al final me di cuenta que era cuestion de versiones EXPRESS(Tiene restricciones de tipos de conexiones osea no acepta el initial catalog!) vs FULL(acepta todo)

Código sql:

Dim cn AS NEW ADODB.Connection
Dim SQL AS String
 
Private Sub Form_Load()
Dim xErr
ON Error GOTO xErr
'Coneccion a la Tabla Materiales
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
 
'DATA SOURCE=(LOCAL)\SQLExpress ó DATA SOURCE=.\SQLExpress
 
'cn.Open "Provider=SQLNCLI;Data Source=.\SQLExpress;Integrated Security=SSPI;Persist Security info=True;Initial Catalog=ventas"
cn.Open "Provider=SQLNCLI;Server=.\SQLExpress;Database=ventas;Uid=sa; Pwd=12345678;"
 
Exit Sub
 
xErr:
MsgBox "No se puede conectar a la base de datos" & " Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End Sub
 
Private Sub Command1_Click()
Set rs = Nothing
Set rs = New ADODB.Recordset
 
Sql = "select * from categoria"
 
rs.Open Sql, cn, adOpenStatic
 
Set DataGrid1.DataSource = rs
End Sub