| Usuario |
De ListBox a DataList |
Desconocido
|
| Enviado - 19/5/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 |
| |
|
fmarredo
355 Mensaje(s)
|
| Enviado - 19/5/2003 |
| |
Para acceder al texto del elemento seleccionado podés usar la propiedad Text.
table_name = DataList1.Text |
| |
|
Desconocido
|
| Enviado - 20/5/2003 |
| |
| fmarredo tampoco me funciona de esa forma. De todas maneras si se te ocurre otra idea, avísame. Gracias... |
| |
|
|
|
Microsoft Certified