conexion VB6 con sql2000

[a83]

hola estimados (a)

Tengo una duda de la cual no e podido sacar muchos logros, que es conectar una base de datos sql 2000 con VB6 . Hasta el momento e estado trabajando con access xp, pero la idea mia es trabajar en algo mas solido como sql 2000 por el momneto


y esta es la conecion que manejocon access por el momento que mando a llamrar a este que es un molulo :

Private Sub Form_Load()
'--------------------------------------------------------------------------
' Todo este código no es necesario si has hecho las conexiones manualmente
' en tiempo de diseño.
'--------------------------------------------------------------------------

' Indicar la base de datos a usar
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db2000.mdb"

Adodc1.CursorType = adOpenDynamic
' Conectarlo a la tabla de prueba
Adodc1.RecordSource = "Table1"
' Refresh es necesario para que se cargue la tabla
Adodc1.Refresh

' Conectar manualmente los Text1 al recordset
Dim i As Long
' Asignar el control data
For i = 0 To 2
Set Text1(i).DataSource = Adodc1
Next
' Asiganr los nombres de los campos
Text1(0).DataField = "Nombre"
Text1(1).DataField = "e-mail"
Text1(2).DataField = "Comentario"
End Sub

si me entendieron y me pueden ayudar agradecido

[ginitofl]

REEMPLAZA ESTO:

Código PHP:

  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\db2000.mdb" 
   

POR ESTO:

Código PHP:

  Adodc1.ConnectionString ="PROVIDER=SQLOLEDB.1;USER ID=sa;INITIAL CATALOG=AQUITUBASEDEDATOS;DATA SOURCE=(local)" 
   

SALUDILLOS

[a83]

ok muchas gracias por la ayuda

[Developer9]

juas juas... bonito pecesito

[a83]

no me esta funciona la deje de esta manera para ocuparla de forma modular

Código PHP:

  Option Explicit
 
Private cnn As ADODB.Connection
Private rst As ADODB.Recordset
 
Private Sub cmdAbrir_Click()
    Dim tField As ADODB.Field
    '
    ' Por si ya estaba abierta...
    Set cnn = Nothing
    Set rst = Nothing
    '
    ' Crear los objetos
    Set cnn = New ADODB.Connection
    Set rst = New ADODB.Recordset
    '
    ' abrir la base usando las credenciales de Windows
    
    cnn.Open "PROVIDER=SQLOLEDB.1;USER ID=sa;INITIAL CATALOG=AQUITUBASEDEDATOS;DATA SOURCE=(local)"
    ' Cerrar el recordset y la conexión
    rst.Close
    cnn.Close
    '
End Sub