none
CONSULTAR VARIAS COLUMNAS EN DIFERENTES CONTROLES DE VISUAL BASIC RRS feed

  • Pregunta

  • buenas noches, disculpen las molestias.

    he realizado una base datos en access, he grabado datos en esta, ahora quiero consultar algunos datos en de esta en algunos controles.

    necesito 2 combobox que muestren informacion de 2 columnas diferentes, el codigo con el que estoy intentando es el seguiente:

    Public Class Tiendas
        Public conex As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=..\ctebd.accdb")
        Public comm As New OleDb.OleDbCommand
        Public da As OleDb.OleDbDataAdapter
        Public readr As OleDb.OleDbDataReader
        Dim sql As String

     Private Sub actualizacomboS()
            Dim readr As OleDb.OleDbDataReader
            cboempresa.Items.Clear()
           sql = "SELECT nombreempresa, razonsocial FROM empresas "
            comm.CommandText = sql
            Try
                readr = comm.ExecuteReader
                If readr.HasRows Then
                    Do While readr.Read
                        cboempresa.Items.Add(readr(0).ToString)
                    Loop
                End If
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End Sub

    hasta aqui me actualiza solo un combobox que es el de tienda, pero nesecito otro combobox, el cual me muestre la razòn zocial de la empresa, pero no logro conseguir que el otro combobox me muestre los datos de la columa razonsocial de la base de datos.

    para cargar los datos al inciar el form uso el siguiente codigo:

      Private Sub Tiendas_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
            Try
                conex.Open()
                comm.Connection = conex
                comm.CommandType = CommandType.Text
                actualizacomboS()


            Catch ex As Exception
                If Err.Number = 5 Then
                    MsgBox("No se puede continuar con el programa", MsgBoxStyle.Critical, "tiendas")
                    End
                Else
                    MsgBox(Err.Description, MsgBoxStyle.Exclamation, "tiendas")
                End If
            End Try
        End Sub

    espero poder contar con su ayuda.

    sábado, 7 de abril de 2018 2:26

Respuestas

  • Hola:

    No te muestra la razón social porque no está indicado en ningún sitio que te la muestre, solo estás cargando en eel cboempresa los ítems del nombreempresa, ya que solo lees la columna 0.

               If readr.HasRows Then
                    Do While readr.Read
                        cboempresa.Items.Add(readr(0).ToString)
                    Loop
                End If

    Añade debajo de esto otra lectura para la columna (1).

                If readr.HasRows Then
                    Do While readr.Read
                        cbotiendas.Items.Add(readr(1).ToString)
                    Loop
                End If

    Con eso bastará,

    Un saludo. 

    Gemma


    sábado, 7 de abril de 2018 3:34
  • muchas gracias, no habia razonado ese punto.
    • Marcado como respuesta SNAKE_ICE martes, 14 de agosto de 2018 18:25
    sábado, 7 de abril de 2018 6:06

Todas las respuestas

  • Hola:

    No te muestra la razón social porque no está indicado en ningún sitio que te la muestre, solo estás cargando en eel cboempresa los ítems del nombreempresa, ya que solo lees la columna 0.

               If readr.HasRows Then
                    Do While readr.Read
                        cboempresa.Items.Add(readr(0).ToString)
                    Loop
                End If

    Añade debajo de esto otra lectura para la columna (1).

                If readr.HasRows Then
                    Do While readr.Read
                        cbotiendas.Items.Add(readr(1).ToString)
                    Loop
                End If

    Con eso bastará,

    Un saludo. 

    Gemma


    sábado, 7 de abril de 2018 3:34
  • muchas gracias, no habia razonado ese punto.
    • Marcado como respuesta SNAKE_ICE martes, 14 de agosto de 2018 18:25
    sábado, 7 de abril de 2018 6:06