02-07-2010, 10:28
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?
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?