VB6 y SQL server 2000

[sirhamelef]

Hola gente, quisiera saber de donde puedo sacar info para conetar, generar consultas en SQL, etc, etc. Usando VB6 y SQL server 2000.
Hasta el momento pude conectar una base en SQL server a travez de un control data ADODB pero cuando le intento aplicar una consulta en SQL no me deja lo que hago es lo siguiente:

Private Sub Form_Load()

Dim sql As String

sql = "SELEC * FROM contactos"


ctrlEmp.Record Source = sql
ctrlEmp.Refres h

End Sub

No se quizas me este faltando verificar algo, o me equivoco en algo esto mismo con bases en access no me hacia historia. Si me ayudan se los agradezco

Saludos
Eze

[ranefi]

Hola sirhamelef, buen dia. Te comento que tienes algunos errores en tu codigo. El procedimiento que se debe seguir para crear una conexion y posteriormente hacer una consulta es mas o menos de la siguiente manera:

Codigo de ejemplo

Código:

Dim CNX As ADODB.Connection
Dim RST As ADODB.Recordset

Dim CadenaConexion As String, CadenaSQL As String

CadenaConexion = [toda la conexion que se debe llevar a cabo]

Set CNX = New ADODB.Connection

CNX.Open CadenaConexion 'SE ABRE LA CONEXION

CadenaSQL = "SELECT * FROM contactos"

CNX.Execute CadenaSQL, , AdExecuteNoRecords

' O TAMBIEN PUEDES HACER LO SIGUIENTE
'Set RST = New ADODB.Recordset

'CadenaSQL = "SELECT * FROM contactos"

'With RST
'     .CursorLocation = adUseClient
'     .CursorType = adOpenStatic
'     .LockType = adLockReadOnly
'     .Open CadenaSQL, CNX
'End With

Espero esto te sirva. Nos vemos.