31/08/2005, 23:35
|
| | | Fecha de Ingreso: agosto-2005
Mensajes: 5
Antigüedad: 18 años, 8 meses Puntos: 0 | |
Código:
Dim strConexion As String
strConexion = "server=localhost; user id=root; password=sona; database=base;"
Dim strComando AS String
strComando = "SELECT * FROM agenda"
Dim adaptador As MySqlDataAdapter
Dim ds As New DataSet()
adaptador = New MySqlDataAdapter (strComando,strConexion)
adaptador.Fill (ds, "agenda")
ObjectList1.DataSource = ds
ObjectList1.DataBind()
|