Atuda en ADODB
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)
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)
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.
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.
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'
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'
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
TEXT24.DATASOURCE=MISREGISTROS
TEXT24.DATAFIELD=MISREGISTROS.FIELDS("ID_CLIENTE")
SOY ALEX MI CORREO ES [email protected]
ESCRIBEME COMO TE FUE CHAU
SUERTE
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.
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.