[[20061219135901]]　『配列について』（よねっち）　ページの最後に飛ぶ

『配列について』（よねっち）

こんにちは。
以下のようなコードがあります。
フォームがあって、コマンドボタンと、テキストがひとつづあります。
テキストに、抽出したいデータの一文字を渡すと、その分のデータが抽出できるような
仕組みです。

それで、一文字はＯＫだったのですが、３つ指定してデータを出したいのですが、
配列が上手くいきません。
「Ａｒｒａｙ」関数を使っていますが、どうしたら上手くいくでしょうか？
よろしくお願いいたします。

Private Sub CommandButton2_Click()

    Dim wsql As String
    Dim wCon      As ADODB.Connection
    Dim wRs       As ADODB.Recordset
    Dim wCmd      As ADODB.Command

    Dim sCon    As String

    Dim sPrm   As String
    Dim tPrm    As String
    Dim uPrm    As String

    Worksheets("抽出").Activate

    Cells.Clear

    'パスの取得
    sCon = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & ThisWorkbook.Path & "\Y0023940.mdb"

    Set wCon = New ADODB.Connection
    wCon.Open sCon

    Set wRs = New ADODB.Recordset
    Set wCmd = New ADODB.Command

    wCmd.ActiveConnection = wCon
    wCmd.CommandText = "Q_受注"

’配列をここから指定

    sPrm = Trim(TextBox1.Text)
    tPrm = Trim(TextBox2.Text)
    uPrm = Trim(TextBox3.Text)

    Set wRs = wCmd.Execute(Parameters:=array(sPrm,tPrm,uPrm)

    Range("A1").CopyFromRecordset wRs

    Set wCmd = Nothing
    wRs.Close: Set wRs = Nothing
    wCon.Close: Set wCon = Nothing

End Sub

コメント返信：