SRES. ESPERO QUE ME PUEDAN DAR UNA MANO, ESTOY TRATANDO DE HACER UNA PEQUEÑA APLICACION QUE LEA DATOS DE UNA TABLA, LOS MUESTRE, PERMITA QUE SE HAGAN LOS CAMBIOS Y LUEGO REGISTRARLO EN UNA NUEVA BD. PARA ELLO ESTOY USANDO EL SQL SERVER 2000 + VISUAL BASIC 6.0
ENCONTRE CODIGO PARA LLENAR UN COMBO BOX, PERO SOLO LLENA LOS NOMBRES DE LAS TABLAS. QUE DEBO MODIFICAR PARA QUE ME MUESTRE LOS DATOS DE UN DETERMINADO CAMPO?????
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; " & _
"Initial Catalog=pubs; " & _
"Data Source=(local)\NETSDK; " & _
"integrated security=SSPI; persist security info=True;"
'
' abrir el recordset indicando la tabla a la que queremos acceder
rst.Open "SELECT * FROM authors", cnn, adOpenDynamic, adLockOptimistic
'
' Asignar los nombres de los campos al combo
With cboCampos
.Clear
For Each tField In rst.Fields
.AddItem tField.Name
Next
.ListIndex = 0
End With
'
' Cerrar el recordset y la conexión
rst.Close
cnn.Close
'
End Sub
LES PIDO ME DEN UNA AYUDA.
GRACIAS
