Prova De Aptidão Profissional - SoS PeoPleWaRe

[P3dr0]

Const constr As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Users\Pedro Fernandes\Desktop\my precious\escola\PRojecto final de curso\Gesturo\Backup\Gesturo\GesturoDB.mdf;Integrated Security=True;Connect Timeout=90;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)

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

Bem ja consegui fazer as vendas

o código é o mesmo, so que ontem nao dava e hoje ja da xD

bem vou agora começar por ai a vaguear na internet de que como fazer recibos, alguem me consegue dar uma dica?