none
Combo Box RRS feed

  • Pregunta

  • Hola!! como andan? tengo una pequña duda, o complicacion, o ya nose, les paso a comentar, tengo un combobox, en donde les pongo los datos que tienen que ir, o sea en este caso el nombre, pero despues necesito relacionarlo con otra tabla  pero que en este caso no tiene el nombre tiene el Id, a ver si alguien me puede ayudar, o dar alguna suderencia yo les dejo parte del codigo... saludos

     

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    db = New OleDbConnection(ConfigurationManager.ConnectionStrings("ConeccionSQL").ConnectionString)

    db.Open()

    Try

    SQL = "SELECT * FROM Establecimientos"

    Dim builder As OleDbCommandBuilder = New OleDbCommandBuilder(dAdapter)

    Dim cmd As New OleDbCommand(SQL, db)

    cmd.CommandText() = SQL

    dAdapter.SelectCommand() = cmd

    dAdapter.Fill(dataSet, "Establecimientos") --->establecimientos seria la tabla

    Me.cboLista.DataSource = dataSet.Tables("Establecimientos")--->establecimientos seria la tabla

    Me.cboLista.DisplayMember = "Est_Nombre"---> est_Nombre pertenece a la tabla Establecimientos

    Me.cboLista.ValueMember = "Est_IdEstablecimiento"----> est_IdEstablecimiento pertenece a la tabla Animales

    Catch ex As Exception

    MsgBox(ex.ToString, MsgBoxStyle.Critical, "error no controlado")

    End Try

    End Sub

    Private Sub btnBuscar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBuscar.Click

    SQL = "SELECT A_IdAnimal, A_Nombre, A_RP FROM DHM_Animales WHERE Est_IdEstablecimiento =" & cboLista.Text & ""

    Dim cmd As New OleDb.OleDbCommand(SQL, db)

    dAdapter1.SelectCommand() = cmd

    Dim dataSet1 As New DataSet()

    dAdapter1.Fill(dataSet1, "Animales")----> error que me lanza Line 1: Incorrect syntax near 'Atalv'.

    Me.dgDatos.DataSource = dataSet1.Tables("Animales")

    End Sub

    lunes, 22 de septiembre de 2008 20:44

Todas las respuestas

  • bueno que tul?? me respondo a mi misma, juasss. tenia que poner SQL = "SELECT A_IdAnimal, A_Nombre, A_RP FROM DHM_Animales WHERE Est_IdEstablecimiento =" & cboLista.selectValue& "" en vez de

    SQL = "SELECT A_IdAnimal, A_Nombre, A_RP FROM DHM_Animales WHERE Est_IdEstablecimiento =" & cboLista.Text & ""

     ahora tengo una duda, si quiero eliminar la informacion del combobox, no puedo hacerlo con el cboLista.items.clear()

    alguna sugerencia please!!

    beshitos!!!!!!!

    martes, 23 de septiembre de 2008 20:20
  • Hola Julieta,

     

    ¿Porque no puedes hacerlo así?¿no quieres de esa forma?

     

    Un Saludo

     

    miércoles, 24 de septiembre de 2008 20:57
  • Hola fran!!! bueno no lo puedo hacer porque me da este error:No se puede modificar la colección Items cuando está establecida la propiedad DataSource.

    en fin nose como hacerle...

    besos

    miércoles, 24 de septiembre de 2008 21:43
  • prueba con nothing.

     

     

     

    lunes, 6 de octubre de 2008 2:51