tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル パラメータ付きのSPの実行方法
投稿日: 2006/09/26(Tue) 10:39
投稿者WON
いつも、ありがとうございます。

VB2005で、パラメータ付きのストアドプロシージャを実行し
DataViewを取得する方法を教えて下さい。

DataViewを取得するSQL文の実行まではOKなのですが...

コードを載せておきます

FORM側
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim vw As New System.Data.DataView
        vw = gv.GetDv(fSQL(), "SQL")
End Sub

*****************************************************
クラス
Public Class AGetDv
    'Inherits System.ComponentModel.Component

    Public Function GetDv(ByVal pSQL As String, ByVal pCmdType As String) As DataView
        
        Dim MyCn As New SqlConnection
        Dim MyCmd As New SqlCommand
        Dim MyDA As New SqlDataAdapter
        Dim MyDS As DataSet = New DataSet

        Dim strConnection As String = "Persist Security Info=True;Integrated Security=false;
        User ID=inq;Password=winq;Initial Catalog=RDDB;Data Source=SV01 "

        With MyCmd
            Select Case pCmdType
                Case "SQL"
                    .CommandType = CommandType.Text
                Case "SP"
                    .CommandType = CommandType.StoredProcedure
                Case Else
                    .CommandType = CommandType.Text
            End Select
            '*********
            .CommandText = pSQL
            .Connection = MyCn
        End With
        '**************************************************************
        Try
            MyCn.ConnectionString = strConnection
            MyCn.Open()
            MyDA.SelectCommand = MyCmd
            MyDA.Fill(MyDS)
            MyCn.Close()
            Return MyDS.Tables(0).DefaultView
        Catch ex As Exception
            If (MyCn.State = ConnectionState.Open) Then
                MyCn.Close()
            End If
        End Try
        Return Nothing
    End Function

End Class


パラメータ付きのストアドプロシージャを実行しDataViewを取得する方法を
ご教授お願いします。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。