Que hago mal??
Publicado por Chema (7 intervenciones) el 08/06/2008 14:04:41
Me estoy pasando de visual 6 a .NET y quiero recuperar datos de una base de datos MSQL_Server.
La conexion me la hace bien, pero al intentar recuperar un dataset no lo consigo. Lo he echo paso a paso con un manual y no consigo que funcione.
Aqui hos dejo el código que utilizo en el formulario al cargarlo:
Private Sub FRM_Prueba_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DataAd As New SqlDataAdapter("SELECT * FROM Pureba", Conec)
Dim DataSe As New Data.DataSet
Dim Tabla As DataTable
Dim fila As DataRow
Conectar(us, co, sr, bd)
DataAd.Fill(DataSe, "Prueba")
Tabla = DataSe.Tables("Prueba")
For Each fila In Tabla.Rows
Me.LST_Prueba.Items.Add(fila.Item("id") & " " & fila.Item("des"))
Next
DesConectar()
End Sub
Gracias de antemano.
La conexion me la hace bien, pero al intentar recuperar un dataset no lo consigo. Lo he echo paso a paso con un manual y no consigo que funcione.
Aqui hos dejo el código que utilizo en el formulario al cargarlo:
Private Sub FRM_Prueba_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim DataAd As New SqlDataAdapter("SELECT * FROM Pureba", Conec)
Dim DataSe As New Data.DataSet
Dim Tabla As DataTable
Dim fila As DataRow
Conectar(us, co, sr, bd)
DataAd.Fill(DataSe, "Prueba")
Tabla = DataSe.Tables("Prueba")
For Each fila In Tabla.Rows
Me.LST_Prueba.Items.Add(fila.Item("id") & " " & fila.Item("des"))
Next
DesConectar()
End Sub
Gracias de antemano.
Valora esta pregunta


0