|
|
Postada em 25/01/2011 15:02 hs
Boa Tarde galera,
Estou encalhado no meu programa em visual basic, este programa é para calcular o peso do aço, a primeira coisa a se fazer é eslher o tipo de aço em uma combo box, o tipo de aço escolhido efetará o cálculo final, pois cada aço de um peso específico, ao lado da combo box que tem os tipos de material (aço), eu criei um botão para incluir novos tipo de aço (nome e peso específico), minha dúvida está na hora calcular, como faço para que quando eu selecionar o material na combo box, ele pegue o peso teórico cadastrado para este material selecionado.
Desde já agradeço.
|
|
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/01/2011 16:32 hs
bom se vc for puxar de uma tabela basta colocar um id para cada tipo de aço
exemplo
id tipo peso
1 GG50 127.08
para preencher usando um recordset seria assim
'rs é o objeto de conexao com o banco de dados (recordset)
While Not rs.EOF
Combo1.AddItem rs!Tipo
Combo1.ItemData(Combo1.NewIndex) = rs!id
rs.movenext
Wend
depois basta selecionar o item data do combo pra saber o peso
exemplo
no clique do combo
sql = "select * from tabela where id = " & combo1.Itemdata(combo1.ListIndex) & ""
Set Rs = Cnn.Execute(sql)
text1.text = Rs!peso
|
|
|
|
|
|
Postada em 26/01/2011 09:53 hs
Meus parabens treze
Essa dica foi boa, eu sempre tinha usado a pesquisa pela descrição selecionada no combo e nao pelo codigo que é adicionado no recordset assim:
sql = "select * from tabela where tipo = ' " & combo1.Text & " ' "
|
|
|
|
|
|
Postada em 26/01/2011 15:53 hs
Obrigado Treze, já me deu uma clareada, mas como sou novato no VB, eu estou usando DAO (ultrapassado mesmo), em vez de sql, tens alguma dica para banco de dados DAO?
Obrigado!
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/01/2011 18:49 hs
bom vamos lá é mais fácil vc postar como preenche o combo?
e qual a estrutura da tabela
|
|
|
|
|
|
Postada em 27/01/2011 08:08 hs
oi, estou preenchendo assim:
Do While Material.Recordset.EOF = False
cboTipoMaterial.AddItem Material.Recordset.Fields("Nome_Material")
Material.Recordset.MoveNext
Loop
|
|
|
|
