alfinete
12-06-2007, 01:24
If pedido_posto <= stock_prod Then
Dim table_exist As DataTable
Dim cont As Integer
table_exist = ds_ped_exist.Tables.Item(0)
cont = table_exist.Rows.Count
If cont = 0 Then
inserir_sql_stock = " Insert into Tab_Pedidos_requisitados( " & _
" Data,Quantidade,Id_utilizador,Id_produto) " & _
" values (@Data,@Quantidade,@id_utilizador,@id_produto)"
Dim comando = New SqlCommand(inserir_sql_stock, ligacao_stock)
' cria as variaveis tipo sql parameter associadas aos respectivos tipos
Dim data As SqlParameter = New SqlParameter("@Data", SqlDbType.VarChar)
Dim Quantidade As SqlParameter = New SqlParameter("@Quantidade", SqlDbType.BigInt)
Dim Id_utilizador As SqlParameter = New SqlParameter("@id_utilizador", SqlDbType.BigInt)
Dim Id_produto As SqlParameter = New SqlParameter("@id_produto", SqlDbType.Int)
'atribui o valor inserido no formulario de cada caixa de texto
' a variavel criada a cima
data.Value = dia
Quantidade.Value = pedido_posto
Id_utilizador.Value = id_util
Id_produto.Value = id_prod
' insere os valores na bd
comando.Parameters.Add(data)
comando.Parameters.Add(Quantidade)
comando.Parameters.Add(Id_utilizador)
comando.Parameters.Add(Id_produto)
num = comando.executenonquery
If num = 1 Then
Me.Lbl_teste.Text = "Pedido feito com sucesso"
Response.Redirect("http://localhost:8080/site/pedidos.aspx")
Else
Me.Lbl_teste.Text = "erro no pedido"
End If
Else
Me.Lbl_teste.Text = "Pedido Já existente"
End If
End If
ligacao_stock.close()
tenho este code para gravar um registo numa base de dados
queria perguntar uma coisa , porque é que se eu tirar a linha de code :
Response.Redirect("http://localhost:8080/site/pedidos.aspx")
ele me grava 2 registos iguais , e caso contrario so grava 1 ?
eu queria que ele so grava-se um sem essa linha
obrigado
Dim table_exist As DataTable
Dim cont As Integer
table_exist = ds_ped_exist.Tables.Item(0)
cont = table_exist.Rows.Count
If cont = 0 Then
inserir_sql_stock = " Insert into Tab_Pedidos_requisitados( " & _
" Data,Quantidade,Id_utilizador,Id_produto) " & _
" values (@Data,@Quantidade,@id_utilizador,@id_produto)"
Dim comando = New SqlCommand(inserir_sql_stock, ligacao_stock)
' cria as variaveis tipo sql parameter associadas aos respectivos tipos
Dim data As SqlParameter = New SqlParameter("@Data", SqlDbType.VarChar)
Dim Quantidade As SqlParameter = New SqlParameter("@Quantidade", SqlDbType.BigInt)
Dim Id_utilizador As SqlParameter = New SqlParameter("@id_utilizador", SqlDbType.BigInt)
Dim Id_produto As SqlParameter = New SqlParameter("@id_produto", SqlDbType.Int)
'atribui o valor inserido no formulario de cada caixa de texto
' a variavel criada a cima
data.Value = dia
Quantidade.Value = pedido_posto
Id_utilizador.Value = id_util
Id_produto.Value = id_prod
' insere os valores na bd
comando.Parameters.Add(data)
comando.Parameters.Add(Quantidade)
comando.Parameters.Add(Id_utilizador)
comando.Parameters.Add(Id_produto)
num = comando.executenonquery
If num = 1 Then
Me.Lbl_teste.Text = "Pedido feito com sucesso"
Response.Redirect("http://localhost:8080/site/pedidos.aspx")
Else
Me.Lbl_teste.Text = "erro no pedido"
End If
Else
Me.Lbl_teste.Text = "Pedido Já existente"
End If
End If
ligacao_stock.close()
tenho este code para gravar um registo numa base de dados
queria perguntar uma coisa , porque é que se eu tirar a linha de code :
Response.Redirect("http://localhost:8080/site/pedidos.aspx")
ele me grava 2 registos iguais , e caso contrario so grava 1 ?
eu queria que ele so grava-se um sem essa linha
obrigado