command和SqlDataAdapter执行存储过程的方法

1.   Dim cmd As SqlCommand = New SqlCommand()
        TC_Data()
        cmd.Connection = cn
      cmd.CommandType = CommandType.Text  'z注意这里不是commandType.StoredProcedure
        cmd.CommandText = "ckda"    '后接存储过程名字
        cmd.ExecuteNonQuery()

2.

  Dim str1 As String = "exec BZBOM_bt '','" & str.Trim() & "','',''" ‘带参数的存储过程
        Try
            TC_Data()
            Dim da As SqlDataAdapter = New SqlDataAdapter(str1, cn) ‘执行存储过程的参数地方
            ds_dgv1.Clear()
            da.Fill(ds_dgv1, "产品资料")
            ds_chaxun_sub = ds_dgv1
            ' msfg1.AutoGenerateColumns = False
            msfg1.RowHeadersWidth = 20
            msfg1.DataSource = ds_dgv1.Tables("产品资料").DefaultView
            add = False
            cn.Dispose()
            da.Dispose()
            ds.Dispose()
            add = False
            cn.Dispose()
            da.Dispose()
            ds.Dispose()
        Catch ex As Exception
            ds_dgv1.Clear()
            ds_dgv2.Clear()
            ds_dgv3.Clear()

        End Try