Un ejemplo que saque de El Guille. Fijate que aca estan llenando un combo "a
mano". ademas esta reorriendo todos los Fields (Eso quiza no sea necesario
hacerlo asi)
Private rst As ADODB.Recordset
Private Sub cmdAbrir_Click()
Dim tField As ADODB.Field
'Definimos las variables ADODB...
Dim cnn as ADODB.Connection
Dim rst as ADODB.Recordset
'
' 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
'
'
' Por si ya estaba abierta...
Set cnn = Nothing
Set rst = Nothing
End Sub
Saludos y espero que te sirva
CarlosMag
From: [email protected]
To: [email protected]
Subject: [vbusers] adodc
Date: Thu, 26 Nov 2009 12:27:10 -0200
Como seria, pues yo uso lo siguiente
Dim cn as new adodb.connection
Abro la connexion.
.Adodc1.ConnectionString = cn
.Adodc1.RecordSource = "select …...
.Adodc1.Refresh
De: [email protected] [mailto:[email protected]] En nombre de Carlos Maggiotti
Enviado el: jueves, 26 de noviembre de 2009 12:05
Para: vbusers List Member
Asunto: [vbusers] adodc
Usa los objetos ADODB.Connection. Los ADO dataControl siempre fueron
problemáticos
Saludos
CarlosMag
From: [email protected]
To: [email protected]
Subject: [vbusers] adodc
Date: Thu, 26 Nov 2009 08:24:08 -0200
Buenos dias lista, estoy trabajando con VB6 y sql2005 express, y al tratar de
usar el control adodc para editar una tabla, me dice que no puede iniciar
sesión, y es raro porque en otras máquinas sí me deja, hay algún parámetro a
nivel de servidor que puedo estar omitiendo?
Uso la siguiente cadena de conexión.
"Provider=SQLNCLI;Server=server\sqlexpress;Database=base;UID=sa;PWD=clave;"
Muchas gracias
Internet Explorer 8 especial para MSN - ¡Gratis! Descargalo ahora haciendo clic
aquí
__________ Información de ESET Smart Security, versión de la base de firmas de
virus 4638 (20091126) __________
ESET Smart Security ha comprobado este mensaje.
http://www.eset.com
_________________________________________________________________
¿Vos ya tenés SMS Messenger en tu celular? Registrate Aquí
http://www.somosmessengersiempre.com
