seleccion de tabla en el data grid
Publicado por kike torres (29 intervenciones) el 12/07/2012 02:55:24
hola a todos: estoy haciendo mis pininos en vb.net 2005 y tengo un problema: En un formulario tengo
un group box y un datagrid view , segun la teroria , gracias a los mecanismos del data binding el propio datagrid ofrece la facilidad de seleccionar la tabla a mostrar, he trabajado con dos tablas. El codigo es el siguiente pero cuando corro el programa solo muestra el group box y el data grid vacios, que estoy haciendo mal o que falta??? Gracias por su ayuda.
Imports System.Data.OleDb
Public Class FrmVarTab
Inherits System.Windows.Forms.Form
'creo objetos ado net
Private Cn As OleDbConnection
Private Ds As DataSet
Private Adap1 As OleDbDataAdapter
Private Adap2 As OleDbDataAdapter
Private Sub FrmVarTab_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'establesco la conexion
Cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\gymbd.mdb;")
'establesco el adaptador
Adap1 = New OleDbDataAdapter("SELECT * FROM clave ORDER BY clave", Cn)
Adap2 = New OleDbDataAdapter("SELECT * FROM clientes ORDER BY ruc_cli", Cn)
'crear dataset
Ds = New DataSet()
'abro conexion
Cn.Open()
'lleno el adaptador
Adap1.Fill(Ds, "Clave")
Adap2.Fill(Ds, "clientes")
Cn.Close()
' asigno dataset a datagrid
Me.Dg.DataSource = Ds
End Sub
End Class
un group box y un datagrid view , segun la teroria , gracias a los mecanismos del data binding el propio datagrid ofrece la facilidad de seleccionar la tabla a mostrar, he trabajado con dos tablas. El codigo es el siguiente pero cuando corro el programa solo muestra el group box y el data grid vacios, que estoy haciendo mal o que falta??? Gracias por su ayuda.
Imports System.Data.OleDb
Public Class FrmVarTab
Inherits System.Windows.Forms.Form
'creo objetos ado net
Private Cn As OleDbConnection
Private Ds As DataSet
Private Adap1 As OleDbDataAdapter
Private Adap2 As OleDbDataAdapter
Private Sub FrmVarTab_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'establesco la conexion
Cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\gymbd.mdb;")
'establesco el adaptador
Adap1 = New OleDbDataAdapter("SELECT * FROM clave ORDER BY clave", Cn)
Adap2 = New OleDbDataAdapter("SELECT * FROM clientes ORDER BY ruc_cli", Cn)
'crear dataset
Ds = New DataSet()
'abro conexion
Cn.Open()
'lleno el adaptador
Adap1.Fill(Ds, "Clave")
Adap2.Fill(Ds, "clientes")
Cn.Close()
' asigno dataset a datagrid
Me.Dg.DataSource = Ds
End Sub
End Class
Valora esta pregunta


0