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