はじめまして。
くぼたと申します。
このメーリングリストに適している質問かはわかりませんが、
わからず困っているので投稿させていただきました。

現在、VB6.0＋MSDE1.0(SQL7.0)で開発を行っております。
プログラム中でストアドを実行し、レコードセットを作成、そ
のレコードセットに対して更新を行いたいのですが、エラーと
なりうまくできません。

ストアドで作成したレコードセットは更新できないのでしょう
か。
よろしければ教えて下さい。

以下、ストアドとプログラムソースです。

◆ストアド
　EXECUTE('SELECT ' + @text + ' FROM Test_tbl 
          WHERE Kojin = ' + @no);

◆ＶＢ
    Dim oTest_rec       As New ADODB.Recordset
    Dim oComm           As New ADODB.Command
    Dim sSQL            As String
    Dim iKojin          As Integer

　　sSQL = "EXEC sap_Sel @text=Kanri_cd,'"
    For iIdx = 1 To iIdx
        If (○○) Then
           sSQL = sSQL & " ,Haita_flg_" & iIdx
        End If
    Next iIdx
    sSQL = sSQL + "' ,@shokuin='" + Form1.txtBango + "'"

    With oComm
        .ActiveConnection = g_oDb_cnn［コネクション情報
］
        .CommandType = adCmdText
        .CommandText = sSQL［取得する項目名が格納されて
います］
    End With
    With oTest_rec
        .CursorLocation = adUseServer
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
    End With
    oTest_rec.Open oComm

    oTest_rec("Kanri_cd") = 1  ←ここでエラー

わかりにくいプログラムで申し訳ありません。
エラー番号は「3251」
メッセージは「オブジェクトまたはプロバイダは要求された操
作を実行できません」

もし何かご存知の方がいらっしゃればアドバイスをお願いしま
す。



__________________________________________________
Do You Yahoo!?
Yahoo! BB is Broadband by Yahoo!
http://bb.yahoo.co.jp/