Ayuda SQL Server + Visual 6

Jesus
13 de Septiembre del 2004
Buenas, agradeceria que me explicarais un poco como me puedo conectar mediante Visual 6 a una base de datos de Sql Server 2000.
Muchas Gracias.

Zaratustra
13 de Septiembre del 2004
Dim oCON As ADODB.Connection

Private Sub ABRIR_CONEXION()
'CREAR CONEXION ADO, NECESITARAS Microsoft ActiveX Data Objects 2.x Library

Dim sCnx As String

'Creo la cadena de conexion
'Donde PRUEBA es tu base de datos y SERVIDOR tu servidor de sql
sCnx = "Provider=SQLOLEDB.1;Integrated Security=SSPI;" _
& "Persist Security Info=False;Initial Catalog=PRUEBA;Data Source=SERVIDOR"


oCON.ConnectionString = sCnx
oCON.Open
End Sub