RELACIONANDO ITENS DE VARIAS TABELAS
Citação::
Está correto sintaticamente sim.
tem um pequeno erro diz que o dr nao é um comando do executeReader
o erro esta caindo no dr.eof
Citação::
:
Está correto sintaticamente sim.
tem um pequeno erro diz que o dr nao é um comando do executeReader
o erro esta caindo no dr.eof
eu modifiquei o eof pra nextresult e nao ocorreu erros mas quando clico no botão da este erro ([Ô]Não existem dados para a linha ou coluna[Ô])
O valor que vc digitou, é o código de um kit existente?
sim digitei um codigo que existe 1 hehehe
Falha minha. Faça o loop assim:
do while dr.read()
cmd.CommandText = ([Ô]update tb_estoque set saldo = saldo - [Ô] & CDbl(txtqt.Text) * dr([Ô]saldo[Ô]) & [Ô] Where cod_produto = [Ô] & dr([Ô]CodigoProduto[Ô]))
If cmd.ExecuteNonQuery Then
MsgBox([Ô]![Ô])
End If
loop
do while dr.read()
cmd.CommandText = ([Ô]update tb_estoque set saldo = saldo - [Ô] & CDbl(txtqt.Text) * dr([Ô]saldo[Ô]) & [Ô] Where cod_produto = [Ô] & dr([Ô]CodigoProduto[Ô]))
If cmd.ExecuteNonQuery Then
MsgBox([Ô]![Ô])
End If
loop
Citação::
O valor que vc digitou, é o código de um kit existente?
sera que o erro nao é por causa do nextresult ali depois do dr
Do While Not dr.NextResult
cmd.CommandText = ([Ô]update tb_estoque set saldo = saldo - [Ô] & CDbl(txtqt.Text) * dr([Ô]saldo[Ô]) & [Ô] Where cod_estoque = [Ô] & dr([Ô]codigoProduto[Ô]))
If cmd.ExecuteNonQuery Then
MsgBox([Ô]![Ô])
End If
Loop
Não é dr.NextResult
é dr.Read()
é dr.Read()
uma conversa paralela, me diga uma coisa, eu uso o VB 2010 express! eu estou limitado a que??
eu nao tive paciencia de ler o que o express nao pode fazer em relação ao ultimate
eu nao tive paciencia de ler o que o express nao pode fazer em relação ao ultimate
Citação::
Não é dr.NextResult
é dr.Read()
deu este erro
Já existe um DataReader aberto associado a este Command que deve ser fechado primeiro.
Já pesquisou no google? Tem muuuuuuuuitos tópicos que mostram...
Tópico encerrado , respostas não são mais permitidas