Olá para rodar uma procedure do SQL no VB eu uso o seguinte código !!! você precisa abrir uma function.... como por exemplo!! Private Function Carregagrid_ConsCup() As DataTable Try If conexao.State = ConnectionState.Open Then conexao.Close() conexao.Open() Dim da_sp As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter("NOME DA PROCEDURE", conexao) da_sp.SelectCommand.CommandType = CommandType.StoredProcedure da_sp.SelectCommand.CommandTimeout = 480 'Cria Parâmetro da_sp.SelectCommand.Parameters.Add(New SqlClient.SqlParameter("@PARAMETRO DA PROCEDURE", SqlDbType.Int)) da_sp.SelectCommand.Parameters.Add(New SqlClient.SqlParameter("@PARAMETRO DA PROCEDURE", SqlDbType.DateTime)) da_sp.SelectCommand.Parameters.Add(New SqlClient.SqlParameter("@PARAMETRO DA PROCEDURE", SqlDbType.DateTime)) da_sp.SelectCommand.Parameters.Add(New SqlClient.SqlParameter("@PARAMETRO DA PROCEDURE", SqlDbType.Int)) 'Informa Parâmetro da_sp.SelectCommand.Parameters("@PARAMETRO DA PROCEDURE").Value = Me.Cbox_loja.Text.ToString da_sp.SelectCommand.Parameters("@PARAMETRO DA PROCEDUREd").Value = Me.Data_ini.Text.ToString da_sp.SelectCommand.Parameters("@PARAMETRO DA PROCEDURE").Value = Me.Data_fin.Text.ToString da_sp.SelectCommand.Parameters("@PARAMETRO DA PROCEDURE").Value = Me.txt_cx.Text Dim sourceDataSet As New DataSet da_sp.Fill(sourceDataSet, "NOME DA PROCEDURE") Dim table As New DataTable table = sourceDataSet.Tables(0) Dim dtt As New DataTable For Each col As DataColumn In table.Columns Dim colString As DataColumn = New DataColumn(col.ColumnName) If col.DataType.ToString = "System.Object" Then colString.DataType = System.Type.GetType("System.Double") Else colString.DataType = col.DataType End If dtt.Columns.Add(colString) Next da_sp.Fill(dtt) da_sp.Dispose() table.Dispose() dtt.Dispose() sourceDataSet.Dispose() conexao.Close() Return dtt Catch strErro As Exception conexao.Close() MessageBox.Show("Erro ao Carregar Dados no Grid", "Aviso", MessageBoxButtons.OK, MessageBoxIcon.Error) Return Nothing Exit Function End Try End Function ''''''''''''''' E DEPOIS É SÓ CHAMAR ELA NO BACKGROUNDWORKER OU COMO você QUISER........ SEGUE ABAIXO O EXEMPLO DO MEU CÓDIGO!!!! Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted Me.GridControl1.DataSource = Nothing Me.GridView1.Columns.Clear() Me.GridControl1.DataSource = Carregagrid_ConsCup() SubFormataGrid(Me.GridView1) Ctrl_MsgEspera1.Visible = False Ctrl_MsgEspera1._Executar() End Sub
