Mar
04 de Junio del 2003

Hola a todos!!!
De antemano gracias por su ayuda.
Tengo este ListBox que está escrito usando la Metodología DAO:

Private Sub List1_Click()
Dim table_name As String
Dim sql As String

table_name = List1.List(List1.ListIndex)

sql = "SELECT * FROM " & table_name

Data1.Caption = table_name
Data1.RecordSource = sql
Data1.Refresh

' Make the Data and DBGrid controls visible.
Data1.Visible = True
DBGrid1.Visible = True
End Sub

Ahora, necesito pasarlo a la Metodología ADO, claro usando un DataList mi pregunta es, como hago para cambiar esta línea de código (Esto hace que muestre el nombre de la bd):

table_name = List1.List(List1.ListIndex)

Lo demás lo tengo así:
Private Sub DataList1_Click()
Dim table_name As String
Dim sql As String


table_name = DataList1.... 'como lo escribo aquí???

sql = "SELECT nombre, cedula FROM " & table_name

Adodc1.Caption = table_name
Adodc1.RecordSource = sql
Adodc1.Refresh

' Make the Data and DBGrid controls visible.
Adodc1.Visible = True
DataGrid1.Visible = True
End Sub

lesmer
04 de Junio del 2003

Hola aqui te envío un ejemplo de Datalist con ADO.

Esta es una conexión hacia una Base de Datos de Access 2000 y allí tengo una taba que se llama Material, el cual tiene como campos c_codmat,c_desmat,...etc, pero estos son los principales ya que el c_codmat es el Primary Key

cad = "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=c:Materiales.mdb;" & _
cn.CursorLocation = adUseClient
cn.Open cad
Hasta aqui la conexion esta hecha.

Ahora como realizar el enlace de la tabla materiales hacia un Datalist, lo primero que se debe de tener en cuenta es que se desea mostrar y que se desea grabar, por ejemplo a mi me interesa grabar el código y mostrar la descripción para esta tabla "Matererial", por eso aqui te explico como hacer el open de la tabla.
en Declaraciones Generales puedes definir el Recordset y la varible de Conexión
por Ejm.
Dim Cn as New ADODB.Connection
Dim Rs as New ADODB.Recordset

Private Sub Form_Load()
'aqui abrimos la tabla
Sql="Select c_codmat,c_desmat From Material"
'Aquí abrimos el recordset, pero se debe tener en cuenta el modo a abrir si es dinamico,estatico,pesimista,optimista,etc...,
'depende como lo desees, pero asi abre el recordset por defecto.
Rs.open Sql,cn
'luego se procede al enlace.
Set DataList1.RowSource = Rs 'Enlaza el recordset hacia el Datalist
DataList1.ListField = "c_desmat" ' Indica el campo del recordset ha ser mostrado como en la lista (Datalist)
DataList1.BoundColumn = "c_codmat" ' Indica el Campo a ser Grabado en la tabla con la propiedad BoundText del Datalist
End Sub

Espero te sirva de algo, hasta luego, ya sabes si tiene alguna otra inquietud ya tienes mi mail.