+- Forum Pplware (http://forum.pplware.com)
+-- Fórum: Mais Tech (/forumdisplay.php?fid=11)
+--- Fórum: Programação e Web (/forumdisplay.php?fid=16)
+--- Tópico: Prova De Aptidão Profissional - SoS PeoPleWaRe (/showthread.php?tid=5988)
RE: Prova De Aptidão Profissional - SoS PeoPleWaRe - kasy - 01-07-2010 19:01
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
RE: Prova De Aptidão Profissional - SoS PeoPleWaRe - P3dr0 - 01-07-2010 21:17
pois mas isso já eh o que eu estou a fazer ^^
RE: Prova De Aptidão Profissional - SoS PeoPleWaRe - kasy - 01-07-2010 21:24
prontos entao ja ta a trabalhar entao
RE: Prova De Aptidão Profissional - SoS PeoPleWaRe - P3dr0 - 01-07-2010 21:27
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 -.-
RE: Prova De Aptidão Profissional - SoS PeoPleWaRe - kasy - 01-07-2010 21:39
nao te importas de postar aqui o codigo para ver
RE: Prova De Aptidão Profissional - SoS PeoPleWaRe - P3dr0 - 01-07-2010 21:43
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
RE: Prova De Aptidão Profissional - SoS PeoPleWaRe - kasy - 01-07-2010 22:03
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
RE: Prova De Aptidão Profissional - SoS PeoPleWaRe - P3dr0 - 01-07-2010 22:31
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
RE: Prova De Aptidão Profissional - SoS PeoPleWaRe - kasy - 01-07-2010 22:57
manda o projecto
RE: Prova De Aptidão Profissional - SoS PeoPleWaRe - P3dr0 - 01-07-2010 23:11
TA aqui ^^