RELACIONANDO ITENS DE VARIAS TABELAS
Citação::
dr.Close()
Vai FORA do loop... amigo, acho melhor vc parar e começar com o básico...
a questão é que eu estou desenvolvendo isso para uma empresa! que ja me comprou o programa!
eu presciso fazer isso, não sabe outra forma de fazer isso?
Não respondo mais nenhuma dúvida básica sua...
Dim conect As New OleDb.OleDbConnection(cs)
Try
conect.Open()
Dim cmd As New OleDb.OleDbCommand([Ô]Select Codigoitem, saldo from tb_itemkit where CodigoKit = [Ô] & txtcod.Text, conect)
[ô]conect.ConnectionString = cs
Dim dr As OleDbDataReader = cmd.ExecuteReader()
Do While dr.Read()
cmd.CommandText = ([Ô]update tb_estoque set saldo = saldo - [Ô] & CDbl(txtqt.Text) * dr([Ô]saldo[Ô]) & [Ô] Where cod_estoque = [Ô] & dr([Ô]CodigoProduto[Ô]))
Loop
Catch ex As Exception
End Try
Dim conect As New OleDb.OleDbConnection(cs)
Try
conect.Open()
Dim cmd As New OleDb.OleDbCommand([Ô]Select Codigoitem, saldo from tb_itemkit where CodigoKit = [Ô] & txtcod.Text, conect)
[ô]conect.ConnectionString = cs
Dim dr As OleDbDataReader = cmd.ExecuteReader()
Do While dr.Read()
cmd.CommandText = ([Ô]update tb_estoque set saldo = saldo - [Ô] & CDbl(txtqt.Text) * dr([Ô]saldo[Ô]) & [Ô] Where cod_estoque = [Ô] & dr([Ô]CodigoProduto[Ô]))
cmd.ExecuteNonQuery()
Loop
Catch ex As Exception
End Try
Citação::
Dim cs As String = My.Settings.EstoqueConnectionString1
Dim conect As New OleDb.OleDbConnection(cs)
Try
conect.Open()
Dim cmd As New OleDb.OleDbCommand([Ô]Select Codigoitem, saldo from tb_itemkit where CodigoKit = [Ô] & txtcod.Text, conect)
[ô]conect.ConnectionString = cs
Dim dr As OleDbDataReader = cmd.ExecuteReader()
Do While dr.Read()
cmd.CommandText = ([Ô]update tb_estoque set saldo = saldo - [Ô] & CDbl(txtqt.Text) * dr([Ô]saldo[Ô]) & [Ô] Where cod_estoque = [Ô] & dr([Ô]CodigoProduto[Ô]))
cmd.ExecuteNonQuery()
Loop
Catch ex As Exception
End Try
o amigo, não rolou, desculpa te encomodar, sei lá o que eu faço agora!
vou ter que pensar em uma forma de fazer isso de outro jeito, ou dizer que nao tem como eu fazer
Compacta tudo(incluindo o bd) e posta aqui que eu resolvo pra vc e acabamos com isso logo...
Citação::
Faz assim:
Compacta tudo(incluindo o bd) e posta aqui que eu resolvo pra vc e acabamos com isso logo...
ok o frm eu fiz em um form test só pra testar seu codigo, então esta no frmkit
ta bem mal arrumado o layout mas como disse é pra test o botão
mas nao vai dar pq o programa tem 3,5 mega
só se voce me adicionar no msn ou gttalk
tiago_renato_machado@hotmail.com
tidysofts@gmail.com
joaokiewel@hotmail.com