Visual Basic.NET - leer una tabla creada en access mediante visual

   
Vista:

leer una tabla creada en access mediante visual

Publicado por kevin (7 intervenciones) el 24/06/2016 00:40:29
hola amigos pido su ayuda para este problema, tengo una tabla y quiero leer los datos, la tabla se trata de una habitacion de hotel y quiero que me lea el campo "estado" los cuales contienen el estado actual de la habitacion la cuel es ocupado o disponible. para luego estos ponerlos en un label debajo del boton que representa cada habitacion. si me podrian ayudar les agradeceria es para un proyecyo en el cole. saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Edward

leer una tabla creada en access mediante visual

Publicado por Edward (61 intervenciones) el 27/06/2016 20:33:04
Buen día, primero debes especificar si ya tienes la conexión a la base de datos realizada.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Hugo

leer una tabla creada en access mediante visual

Publicado por Hugo (72 intervenciones) el 12/07/2016 18:24:13
Para conectarte a una tabla de Access

Creas la form con datagridview y el código: pon:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar