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