none
Una duda con un combobox RRS feed

  • Pregunta

  • Les pido una disculpa por esta pregunta pero soy nuevo en esto:

    Estoy haciendo un  pequeño sistema para la tienda de mi mama y lo que traro de hacer es esto.

    suponiendo que en su miscelanea vende articulos. Va a comprar un cliente y si le preguntan que si hay en existencia x articulo, ella lo buscaria con un combobox, ahi seleccionaria el articulo que busca, pero mi duda. Como hago para que en un textbox aparezca el costo de dicho articulo seleccionado ? ? ?

    Este es el codigo que tengo en el Form_load()

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Systema.mdb"
    rs1.Open "Select Nombre From Articulo", cn
    rs1.MoveFirst
    Do While rs1.EOF = False
    Me.Combo1.AddItem rs1("Nombre")
    rs1.MoveNext
    Loop
    rs1.Close
    cn.Close

    Gracias de antemano.

    lunes, 12 de abril de 2010 11:24

Respuestas

  • Hola.

    Cuando seleccionas el elemento del combo, en el evento click, haces una consulta por el elemento seleccionados:

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Systema.mdb"
    rs1.Open "Select precio From Articulo where nombre='" & combo1.text & "'", cn
    rs1.MoveFirst

    textbox1.text=rs1("precio")

    rs1.Close
    cn.Close

    Espero que te sirva

    • Marcado como respuesta adrianxcito jueves, 22 de julio de 2010 13:29
    miércoles, 14 de julio de 2010 6:37

Todas las respuestas

  • Una manera es atraves de un procedimiento que dispara luego de seleccionar un item del combo. Debes colocar el id del item en la propiedad itemdata(x) del combobox. El proc. busca en la base de datos el precio del insumo, el cual lo colocas en cuadro de texto.

    cj

    lunes, 12 de abril de 2010 14:24
  • ps si, al moneto de hacer la consulta hazlo asi:

    "Select Nombre, Precio From Articulo" y te regresa tambien el precio


    DavidDDR david_fer1@hotmail.com
    miércoles, 14 de julio de 2010 6:20
  • Hola.

    Cuando seleccionas el elemento del combo, en el evento click, haces una consulta por el elemento seleccionados:

    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\Systema.mdb"
    rs1.Open "Select precio From Articulo where nombre='" & combo1.text & "'", cn
    rs1.MoveFirst

    textbox1.text=rs1("precio")

    rs1.Close
    cn.Close

    Espero que te sirva

    • Marcado como respuesta adrianxcito jueves, 22 de julio de 2010 13:29
    miércoles, 14 de julio de 2010 6:37
  • asi es lo puedes hacer con el evento selectedindexchange o algo asi
    DavidDDR david_fer1@hotmail.com
    miércoles, 14 de julio de 2010 6:41
  • hola ,

    Que has visto Adrian , te ayudado las informaciones que te han proporsionado ?

    enmanuel grullard

    republica dominicana

     

    miércoles, 21 de julio de 2010 17:37