Visual Basic - ADO Y SQLSERVER.... AYUDA POR FAVOR

HOLA AMIGOS, SOY UN PRINCIPIANTE EN PROGRAMACION CLIENTE / SERVIDOR, CASI NADA.

TENGO UN PROYECTO EN VB6 CON UN FORMULARIO QUE OPERA CON UNA BASE DE DATOS EN ACCESS97.

EL CODIGO PARA CONECTAR LA BASE DE DATOS ESTA EN EL FORM_LOAD:

AdoEmpleado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security _
Info=False;Data Source=" & App.Path & "\database\base97.mdb"
AdoEmpleado.CommandType = adCmdText
AdoEmpleado.RecordSource = "select * from empleado order by NOMBRE"

ME HAN SOLICITADO QUE DISEÑE LA BASE DE DATOS EN SQL SERVER 2000 (EN UN COMPUTADOR SERVIDOR) Y QUE LA CONECTE AL SISTEMA QUE ESTARA EN OTRA COMPUTADORA.

ES DECIR, NECESITO SABER QUE HACER, POR DONDE COMENZAR Y COMO CONECTAR EN MI PROYECTO CON LA BASE DE DATOS QUE ESTARA EN EL SERVIDOR.

YA ESTOY AVANZANDO CON EL DISEÑO DE LA BASE DE DATOS EN EL SQL SERVER 2000

PERO SIENTO QUEME FALTA MUCHO

AYUDENME POR FAVOR.

MUCHAS GRACIAS

LEAN EL MENSAJE ANTERIOR

Puedes utilizar el siguiente ejemplo, en el defino en General unas variables Publicas e indico si son de conexión o recordset, luego las abro atraves de una function llamada Abrir, donde indico el driver que se utilizará, el servidor al cual accederá, el usuario administrador y su password, además de la base de datos. Este ejemplo especifico es para abrir dos tablas llamadas Citas y Vendedor. Espero sea de utilidad.

Declarar variables en (General) (Declarations)

Public cnn As ADODB.Connection
Public rstCitas As ADODB.Recordset
Public rstVendedor As ADODB.Recordset
Public strcnn As String

Nota: debes incluir en Project la referencia Microsoft Activex

Posteriormente puedes crear una Function llamada "Abrir" e incluirle el siguiente código:

Public Function Abrir()

Set cnn = New ADODB.Connection
strcnn = "Driver={SQL Server};" & _
"server=servidor;" & _
"Uid=SA;Pwd=123;database=ventas"
cnn.Open strcnn

Set rstCitas = New ADODB.Recordset
rstCitas.CursorType = adOpenKeyset
rstCitas.LockType = adLockOptimistic
rstCitas.Open "CRM_CITA", cnn, , , adCmdTable


Set rstVendedor = New ADODB.Recordset
rstVendedor.CursorType = adOpenKeyset
rstVendedor.LockType = adLockOptimistic
rstVendedor.Open "empresa.Vendedor", cnn, , , adCmdTable
rstVendedor.MoveFirst

End Function

Despues indicas donde deseas que se abra esta conexión puede ser desde el Form, Load por ejemplo.

Private Sub Form_load

Abrir

End sub

Saludos,

Geovanny Obando
Costa Rica