AJUDA VB 2008
Olá PEssoal, estou com um prolbleminha, Criei um sistema de estoque e meu cliente me pediu para eu criar um relátorio que avise automaticamente todos os produtos que estão com estoque no minimo.
estou usando banco de dados Access, na tabela produtos criei o campo minimo e o campo saldo
eu criei um formulário onde diz o seguinte
IF saldoTextbox.text = < minimotextbox.text then
Message.show ([Ô]Produto abaixo do estoque mÃnimo[Ô]!)
end if
mas eu teria que passar pelo produto para ver isso. e eles querem que avise a partir de eu abrir o formulario ja um aviso dos produtos que esttão abaixo. eu tentei criar no load do formulário mas também nao ficaria como eles querem pq apenas avisa que tem algun produto abaixo e nao expecifica o produto. se alguem puder me ajudar eu agradeço muito
obrigado e Deus abençe os
estou usando banco de dados Access, na tabela produtos criei o campo minimo e o campo saldo
eu criei um formulário onde diz o seguinte
IF saldoTextbox.text = < minimotextbox.text then
Message.show ([Ô]Produto abaixo do estoque mÃnimo[Ô]!)
end if
mas eu teria que passar pelo produto para ver isso. e eles querem que avise a partir de eu abrir o formulario ja um aviso dos produtos que esttão abaixo. eu tentei criar no load do formulário mas também nao ficaria como eles querem pq apenas avisa que tem algun produto abaixo e nao expecifica o produto. se alguem puder me ajudar eu agradeço muito
obrigado e Deus abençe os
Crie um select,se voce tem as informaçoes de quantidade no banco de dados,voce pode retornar isso com uma ddl,agora,eu nao sei como está modelado o seu banco,mas vou mandar um exemplo simples:
Sub New
using comando as new oledbcommand([Ô]select * from tabela_estoque,conexao)
Dim Adapt As New OleDbDataAdapter(comando)
Dim Table As New DataTable([Ô]tabela_estoque[Ô])
Try
Adapt.Fill(Table)
For I = 0 To (Table.Rows.Count - 1)
If(Table.Rows(I)([Ô]estoque_atual) < Table.Rows(I)([Ô]estoque_minimo)) Then
Listbox_minimo.Items.Add(Table.Rows(I)([Ô]Produto_Nome[Ô]))
End If
Next
Catch ex As Exception
msgbox(ex.message)
Finally
conexao.close()
End Try
End Using
End Sub
Obrigado amigo,o campo saldo e o campo minimo vai ser o proprio cliente que vai digitar ao cadastrar o produto.mas creio que oque voce me passou vai dar certo, pelo que li o codigo vai me trazer na list box somente o nome dos produtos em que o valor do campo saldo estiver igual ou menor que o campo saldo da tabela produtos, vc eh um genio obrigado!
Obrigado TIDY!...
Se for Ultil o codigo,por favor me de 4 pontinhos hehe!
Abraços!1
Se for Ultil o codigo,por favor me de 4 pontinhos hehe!
Abraços!1
amigo eu fiz assim e nem msg de erro da, nao aparece nada.
eu tinha feito de outra forma que nao me lembro e apareceu esta msg:
(THE SELECTCOMMAND PROPERTY HAS NOT BEEN INITIALIZED BEFORE CALLING [ô]FILL[ô].)
mas desta forma nem erro deu me ajude
Dim con As New OleDb.OleDbConnection(My.Settings.ESTOQUEConnectionString)
Using comando As New OleDb.OleDbCommand([Ô]Select * FROM tb_estoque [Ô], con)
Dim adapt As New OleDb.OleDbDataAdapter(comando)
Dim Table As New DataTable([Ô]tb_estoque[Ô])
Try
con.Open()
adapt.Fill(Table)
For I = 0 To (Table.Rows.Count - 1)
If (Table.Rows(I)([Ô]saldo[Ô]) <= Table.Rows(I)([Ô]qt_min[Ô])) Then
listprod1.Items.Add(Table.Rows(I)([Ô]nome_produto[Ô]))
End If
Next
Catch ex As Exception
MsgBox(ex.Message)
Finally
End Try
con.Close()
End Using
Tópico encerrado , respostas não são mais permitidas