Atuda en ADODB

Manuel Acosta Aceves
11 de Junio del 2004
Antes usaba esto a la hora de cargar un formulario (Form_Load)

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path & "pepe.mdb" + ";Persist Security Info=False;"
Adodc1.RecordSource = "SELECT * FROM Clientes"

Set Text24.DataSource = Adodc1
Text24.DataField = "id_Cliente"


Pero ahora uso puro codigo que es esto:

Dim MiConexion As ADODB.Connection
Dim MisRegistros As ADODB.Recordset
Set MiConexion = New ADODB.Connection
Set MisRegistros = New ADODB.Recordset
MiConexion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + App.Path & "PEPE.mdb" + ";Persist Security Info=False"
MiConexion.Open

MisRegistros.Open "Clientes", MiConexion, adOpenDynamic, adLockOptimistic



MisRegistros.Close
Set MisRegistros = Nothing
MiConexion.Close
Set MiConexion = Nothing



Mi duda es como hago esto de abajo por codigo ahora que uso el ADODB solamente
Set Text24.DataSource = Adodc1
Text24.DataField = "id_Cliente"

Espero alguien me pueda ayudar Gracias

Por cierto una sugerencia, es mejor usar el ADODB o el ADODC ? es que he cambiado porque oi que es mas rapido el primero (ADODB)

Orlando
11 de Junio del 2004
Prueba a poner directamente:
Set Text24.DataSource = MisRegistro
..la otra propiedad (Datafield), vale como está.
Creo que es mas rápido, o consume menos memoria
el trabajar directamente con los recordsets que mediante Control Datas. Saludos.

Manuel Acosta Aceves
11 de Junio del 2004
Pues le di como me dijiste

Set Text24.DataSource = MisRegistros
text24.datafield="id_Cliente"

Pero me dice el sig. mensaje:

No se puede enlazar con el campo o DataMember: 'id_cliente'


krizall
11 de Junio del 2004
hola manuel,
puedes hacer esto
text24=mirecordset!id_cliente

ALEX AGUIRRE RIVERA
11 de Junio del 2004
HOLA ESPERO QUE ESTO TE AYUDE
TEXT24.DATASOURCE=MISREGISTROS
TEXT24.DATAFIELD=MISREGISTROS.FIELDS("ID_CLIENTE")
SOY ALEX MI CORREO ES [email protected]
ESCRIBEME COMO TE FUE CHAU
SUERTE

Manuel Acosta Aceves
11 de Junio del 2004
Gracias a Todos por su ayuda

Bartolom
11 de Junio del 2004
Sería así:

Set Text24.Datasource = MisRegistros
Text24.DataField = MisRegistros.Fields(n).Name

Donde n corresponde al subíndice de la columna de id_cliente

Saludos!
Bartolom
Chile

PD: Yo también utilizo conexiones ADODB, no sé si será más rápido, pero así no dependo de un control Adodc y además son mucho más configurables y reutilizables en cuanto a código y parámetros.