Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Public cconexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\proyecto\db\BASEDEDATOS.mdb;Persist Security Info=True;Jet OLEDB:Database Password=12345678"
Dim cnn As New OleDbConnection(cconexion)
Private Sub proyecto_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'ENVIA LOS DATOS A UN DATAGRIDVIEW
Dim Da As New OleDbDataAdapter
Dim Ds As New DataSet
Dim consulta As String
consulta = "select id, ESTADO " & _
" from TABLA order by ESTADO ASC "
Da = New OleDbDataAdapter(consulta, cnn)
Ds.Tables.Add("TABLA")
Da.Fill(Ds.Tables("TABLA"))
Dim myDataView As DataView = New DataView(Ds.Tables("TABLA"))
DataGridView1.DataSource = myDataView
Me.DataGridView1.Columns(0).Width = 5
Me.DataGridView1.Columns(0).HeaderText = "ID"
Me.DataGridView1.Columns(1).Width = 200
Me.DataGridView1.Columns(1).HeaderText = "ESTADO"
Me.DataGridView1.Columns(2).Width = 400
For Each columna As DataGridViewColumn In Me.DataGridView1.Columns
columna.SortMode = DataGridViewColumnSortMode.NotSortable
Next
Dim cellStyle As New DataGridViewCellStyle
cellStyle.Font = New System.Drawing.Font(DataGridView1.Font.Name, DataGridView1.Font.Size, FontStyle.Bold)
Me.DataGridView1.ColumnHeadersDefaultCellStyle = cellStyle
Cnn.Close()
End Sub
'AL SELECCIONAR UN REGISTRO CON DOBLE CLICK LLAMA EL REGISTRO
Private Sub DataGridView1_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim frm2 As New FORMA2
Dim fila As Integer = DataGridView1.CurrentCellAddress.Y
Dim Da As New OleDbDataAdapter
Dim Ds As New DataSet
Dim consulta As String
consulta = "select * from TABLA order by ESTADO ASC"
Da = New OleDbDataAdapter(consulta, cnn)
Ds.Tables.Add("TABLA")
Da.Fill(Ds, "TABLA")
Dim myDataView As DataView = New DataView(Ds.Tables("TABLA"))
frm2.Label_id.Text = (myDataView(fila)("id"))
frm2.Lable_estado.Text = (myDataView(fila)("estado"))
frm2.ShowDialog()
End Sub