É a 1º vez que escreve em um forum e já vou pedido ajuda...
Estou com sérios problemas, tenho que entregar um sistema na segunda-feira e preciso saber como faço apra atribuir mais de um procedure vinda do sql server 2005, para o vb 2008
São três procedures ao total, duas de insert na base de dados e uma de update de valor.
Na base de dados as procedures funcionam, mas no vb não tem jeito, diz que não reconhece a minha segunda procedure e consequente nem executa a última, será que alguém pode me ajudar?!?! segue as linhas de código inseridas no botão salvar do front end
Private Sub btn_salvar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_salvar.Click
Dim myConnection As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=D:\Arquivos de programas\Microsoft SQL Server\MSSQL.1\MSSQL\Data\LOJA_ESPORTES_EMBU.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"
Using connect As New SqlConnection(My.Settings.LOJA_ESPORTES_EMBUConnectionString)
connect.Open()
''CONNECT COM A 1º PROCEDURE''
Dim command As New SqlCommand("sp_vendas", connect)
command.CommandType = CommandType.StoredProcedure
If txtbox_num_pedido.Text <> String.Empty Then
command.Parameters.Add("@cod_venda", SqlDbType.Int).Value = txtbox_num_pedido.Text
End If
If cmb_tp_pgto.Text <> String.Empty Then
command.Parameters.Add("@frm_pgto", SqlDbType.Char).Value = cmb_tp_pgto.Text
End If
If txtbox_dtpedido.Text <> String.Empty Then
Convert.ToDateTime(txtbox_dtpedido.Text).ToString("yyyy/MM/dd")
command.Parameters.Add("@dat_venda", SqlDbType.SmallDateTime).Value = txtbox_dtpedido.Text
End If
If txtbox_qtditem.Text <> String.Empty Then
command.Parameters.Add("@total_venda", SqlDbType.Int).Value = 0
End If
If txtbox_num_pedido.Text <> String.Empty Then
txtbox_codproduto.Clear()
txtbox_codproduto.Clear()
txtbox_qtditem.Clear()
End If
Dim reader As SqlDataReader = command.ExecuteReader()
reader.Close()
reader = Nothing
End Using
Using connect As New SqlConnection(My.Settings.LOJA_ESPORTES_EMBUConnectionString)
connect.Open()
''CONNECT COM A 2º PROCEDURE''
Dim command As New SqlCommand("sp_itens_vendas_02", connect)
Command.CommandType = CommandType.StoredProcedure
If txtbox_codproduto.Text <> String.Empty Then
Command.Parameters.Add("@cod_produto", SqlDbType.Int).Value = txtbox_codproduto.Text
End If
If txtbox_qtditem.Text <> String.Empty Then
Command.Parameters.Add("@qtd_item", SqlDbType.Int).Value = txtbox_qtditem.Text
End If
If txtbox_qtd_itens.Text <> String.Empty Then
calculaNumeroItens()
Command.Parameters.Add("@cod_item", SqlDbType.Int).Value = txtbox_qtd_itens.Text
End If
Dim reader As SqlDataReader = command.ExecuteReader()
reader.Close()
reader = Nothing
End Using
Using connect As New SqlConnection(My.Settings.LOJA_ESPORTES_EMBUConnectionString)
''CONNECT COM A 3º PROCEDURE''
Dim command As New SqlCommand("sp_up_total_vendas", connect)
Command.CommandType = CommandType.StoredProcedure
If txtbox_num_pedido.Text <> String.Empty Then
Command.Parameters.Add("@cod_venda", SqlDbType.Int).Value = txtbox_num_pedido.Text
End If
Dim reader As SqlDataReader = Command.ExecuteReader()
reader.Close()
reader = Nothing
Me.ViewSELECT_VENDASTableAdapter.Fill(Me.LOJA_ESPORTES_EMBUDataSet.ViewSELECT_VENDAS)
End Using
calculaNumeroRegistro()
End Sub
No aguardo
Editado por quintelab Removido Caixa Alta do Tópico e Adicionado BBCode Code
Pergunta
daniel_fonseca
Boa noite!
É a 1º vez que escreve em um forum e já vou pedido ajuda...
Estou com sérios problemas, tenho que entregar um sistema na segunda-feira e preciso saber como faço apra atribuir mais de um procedure vinda do sql server 2005, para o vb 2008
São três procedures ao total, duas de insert na base de dados e uma de update de valor.
Na base de dados as procedures funcionam, mas no vb não tem jeito, diz que não reconhece a minha segunda procedure e consequente nem executa a última, será que alguém pode me ajudar?!?! segue as linhas de código inseridas no botão salvar do front end
No aguardo
Editado por quintelabRemovido Caixa Alta do Tópico e Adicionado BBCode Code
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.