LLenar Datagrid
Publicado por HAF (178 intervenciones) el 09/10/2006 12:18:29
Aqui les dejo como llenar un datagrid.
Private Sub LLENAGRID()
Dim DA2 As New OleDbDataAdapter
Dim Oconn As OleDbConnection
Dim ds As New DataSet
strsql = "select * from inventario"
Oconn = New OleDbConnection(funciones.conexion_ACCESS)
DA2.SelectCommand = New OleDbCommand(strsql, Oconn)
DA2.Fill(ds)
Me.DataGrid1.DataSource = ds
Me.DataGrid1.DataMember = ds.Tables(0).TableName
End Sub
*NOTA conexion_ACCESS: está dentro de una función:
Public Shared ReadOnly Property conexion_ACCESS() As String
Get
Return "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\DATOS\datos.mdb"
End Get
End Property
Private Sub LLENAGRID()
Dim DA2 As New OleDbDataAdapter
Dim Oconn As OleDbConnection
Dim ds As New DataSet
strsql = "select * from inventario"
Oconn = New OleDbConnection(funciones.conexion_ACCESS)
DA2.SelectCommand = New OleDbCommand(strsql, Oconn)
DA2.Fill(ds)
Me.DataGrid1.DataSource = ds
Me.DataGrid1.DataMember = ds.Tables(0).TableName
End Sub
*NOTA conexion_ACCESS: está dentro de una función:
Public Shared ReadOnly Property conexion_ACCESS() As String
Get
Return "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\DATOS\datos.mdb"
End Get
End Property
Valora esta pregunta
0