Prova De Aptidão Profissional - SoS PeoPleWaRe

[kasy]

já o que fazia era sacava o valor total para uma variável depois fazia subtracção com o valor da combobox e ai sim podias actualizar a bd
exprimenta

[P3dr0]

pois mas isso já eh o que eu estou a fazer ^^

[kasy]

prontos entao ja ta a trabalhar entao

[P3dr0]

nop ele faz isso tudo faz a parte da subtracçao...

faz o código do update...

não da nenhum erro de syntax...

corre o codigo todo sem problemas, mas depois nao actualiza o stock dos produtos -.-

[kasy]

nao te importas de postar aqui o codigo para ver

[P3dr0]

Const constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Pedro Fernandes\Desktop\my precious\escola\PRojecto final de curso\Gesturo\Gesturo\GesturoDB.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim db As New SqlConnection(constr)
db.Open()
Dim varsql As String
varsql = "UPDATE Produto SET Quantidade_Em_Stock = '" & Quantidade_pos_venda & "' WHERE Cod_produto ='" & Codigo_produto & "'"
Dim cmd As New SqlCommand(varsql, db)
cmd.ExecuteNonQuery()
db.Close()
MsgBox("Venda realizada com sucesso!", MsgBoxStyle.Information, "Sucesso!")

ja tinha metido em baixo...

o quantidade pos venda é a subtracção em questao...

e ele corre isto tudo sem problemas e mostra a msg box sem erro nenhum e tal, mas dpx pimba, vou consultar a tabela e a quantidade continua igual xD

[kasy]

Const constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Pedro Fernandes\Desktop\my precious\escola\PRojecto final de curso\Gesturo\Gesturo\GesturoDB.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Dim db As New SqlConnection(constr)
db.Open()
Dim varsql As String

//dim verificar as sqldatareader
//Dim varsql1 As String = "select distinct Quantidade_Em_Stock from Produto"
Dim cmd As New SqlCommand(varsql1, db)
verificar = cmd.ExecuteReader
While verificar.Read()
info_stok = verificar.Item("Quantidade_Em_Stock")
End While

dim resultado as integer
resultado = info_stok-combobox1.SelectedItem


varsql = "UPDATE Produto SET Quantidade_Em_Stock = '" & resultado & "' WHERE Cod_produto ='" & Codigo_produto & "'"

Dim cmd As New SqlCommand(varsql, db)
cmd.ExecuteNonQuery()
db.Close()
MsgBox("Venda realizada com sucesso!", MsgBoxStyle.Information, "Sucesso!")

ve assim se da

[P3dr0]

ele da um erro que diz:

"ja existe um datareader aberto neste comando, tem que ser fechado primeiro"

---

epa meti um:

verificar.Close()

debaixo da condição while, ele deixou de dar o erro mas continua a não fazer nada xD

---

Dim num As Integer

num = cmd.ExecuteNonQuery()
db.Close()
If num = 1 Then
MsgBox("Venda realizada com sucesso!", MsgBoxStyle.Information, "Sucesso!")

Else

MsgBox("Erro a realizar compra", MsgBoxStyle.Information, "Sucesso!")

End If

opah fiz agora um teste ao executenonquery e ele deu me a 2 mensagem, o que quer dizer que ta a dar mal... e agora? LOLOLOL

[kasy]

manda o projecto

[P3dr0]

TA aqui ^^