Prova De Aptidão Profissional - SoS PeoPleWaRe

[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