conecta a base de datos de vb 6.0 a sql 2000 server

[crucifijo]

Hola amigos que tal fijense que quiero conectarme a la base de datos pubs que trae sql 200 server como ejemplo, atrvez de un componente Adodc de visual basic 6.0 me podrian decir como le hago o guiarme se los agradeceria muchisimo.

[reel]

A continuación se presenta un ejemplo del MSDN para trabajor con ADO desde código, talvez te guste trabjar más de esta forma.

Código:

Public Sub OpenX()

   Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String
   Dim varDate As Variant

   ' Abre una conexión.
      strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   Set cnn1 = New ADODB.Connection
   cnn1.Open strCnn
   
   ' Abre la tabla Empleados.
   Set rstEmployees = New ADODB.Recordset
   rstEmployees.CursorType = adOpenKeyset
   rstEmployees.LockType = adLockOptimistic
   rstEmployees.Open "empleado", cnn1, , , adCmdTable

   ' Asigna la fecha de contratación del registro del primer empleado
   ' a una variable y, después, cambia la fecha de contratación.
   varDate = rstEmployees!hire_date
   Debug.Print "Datos originales"
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date
   rstEmployees!hire_date = #1/1/1900#
   rstEmployees.Update
   Debug.Print "Datos que han cambiado"
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date

   ' Vuelve a consultar el objeto Recordset y restablece la 
   ' fecha de contratación.
   rstEmployees.Requery
   rstEmployees!hire_date = varDate
   rstEmployees.Update
   Debug.Print "Datos después de restablecer."
   Debug.Print "  Nombre – Fecha de contratación"
   Debug.Print "  " & rstEmployees!fName & " " & _
      rstEmployees!lName & " - " & rstEmployees!hire_date

   rstEmployees.Close
   cnn1.Close

End Sub

Saludes

[Neverhood]

Ésta es la única forma en que se puden acceder a los datos de SQL Server desde Visual Basic? o existen otras opciones?

[reel]

No es la única forma!

También se puede usar los adoDataControl, de esta forma te ahorras de pogramar la conexión a la BD. Para poder usar este control tienes que ir a componentes y seleccionar Microsoft ADO data control ...

Pero sin duda tienes más control cuando lo haces a pie..

Para conectarte a SQLServer 2000 solo necesitas de estas líneas:

Código:

Dim cnn1 As ADODB.Connection

strCnn = "Provider=sqloledb;" & _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

Set cnn1 = New ADODB.Connection

cnn1.Open strCnn

Todas la demás líneas estan relacionadas manipular los datos con el objeto RecordSet por medio de la conexión abierta y pues procesarlo segun se necesite.

Las siguiente líneas se encargan de crear el objeto RecordSet y luego extarer los datos de una o varias tablas con el objeto.

Código:

Dim rstEmployees As ADODB.Recordset
Set rstEmployees = New ADODB.Recordset
rstEmployees.CursorType = adOpenKeyset
rstEmployees.LockType = adLockOptimistic
rstEmployees.Open "empleado", cnn1, , , adCmdTable

En el caso anterior se esta abriendo la tabla empleado.

Saludes

[unholy]

Piensa mucho lo que quieres hacer, ya que hay una gran diferencia entre ambas formas de manejo, y cada una de ellas te permite hacer una serie de cosas de forma mas facil o mas dificil

Si lo que quieres es manejar los datos directamente, usa el "a pie" como lo ha llamado reel, pero si quieres usarlos en controles del tipo MSHGFLEXGRID o parecidos, usa para mostyrarlos el control ADO y para actualizarlos hazlo "a pie"