Ir para conteúdo
Fórum Script Brasil
  • 0

Várias PROCEDURES no mesmo botão


daniel_fonseca

Pergunta

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

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
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.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...