Jump to content
xcau93

Combobox preencher Labels + Base de Dados

Recommended Posts

xcau93

Boas, preciso de uma ajuda para terminar um programa.

A minha duvida é esta: tenho um form, nesse form tem uma combobox ligada á base de dados, em que eu escolho a referência de um producto.

Agora a minha duvida é, como faço, ao escolher um valor na combobox(que corresponde a um produto), prencheer labels/textbox automaticamente com os dados desse produto que está na base de dados.

Se alguem me poder ajudar, agradeço .

Cumps.

Deixo aqui o load do form:

Private Sub encomenda_Load ...
        cmd.Connection = conn
        sql = "select * from produto"
        cmd.CommandText = sql
        dr = cmd.ExecuteReader

        While dr.Read
            ComboBox1.Items.Add(dr.Item("prod_codcliente"))
        End While
        dr.Close()
    End Sub

Share this post


Link to post
Share on other sites
HIT_Braga

Boas.

Antes de mais, esse código funciona???

Para preencheres o que desejas, vais ter de: Depois de selecionar o produto fazer uma nova query à base de dados a perguntar os dados relativos ao produto desejado, do tipo:

SELECT * FROM QUANTIDADES WHERE PRODUTONAME="BANANA"

o que isto faz? Consulta a tabela QUANTIDADES procura pelo produto banana e retorna todos os campos contidos.

A base de dados é Access?

Experimenta assim para preencher a combobox com produtos:

Private Sub Form_Load (bla bla bla)
Dim cmd as oledb.oledbcommand
Dim dr as oledb.oledbdatareader
dim adp as oledb.oledbdataadapter

cn=new oledb.oledbconnection("Provider=Microsoft.Jet.oledb.4.0;Data Source=C:\teste\teste.mdb;")

try
cn.open()
cmd=new oledb.oledbcommand ("Select * from PRODUTOS",cn)
dr=cmd.executereader
ComboBox1.Items.Clear() 'limpeza de todos os items da combobox
while dr.read()
combobox1.items.add(dr(0)) '0, 1, 2,3 depende da coluna que queres os dados
end while
catch
end try
dr.close()
cn.close()

Espero ter ajudado

Sds,

HIT


" Elogios não me elevam, ofensas não me rebaixam, sou o que sou e não o que acham! "

Share this post


Link to post
Share on other sites
HIT_Braga

Esqueci de fechar as tag de code...

Sorry jpaulino... :wallbash:


" Elogios não me elevam, ofensas não me rebaixam, sou o que sou e não o que acham! "

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.