構造体のメンバについて (ID:87061)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 GetRowsの前に普通にレコードセットは作ったのですよね？ 今VB5の環境がないのでVB6での話しで書きます。 上の例で言うとarrayのところの変数を例えば Dim RsArray As Variant として宣言しておきます。 でもってあとは普通にレコードセット作ります。 Dim Rs As ADODB.Recordset Set Rs = New ADODB.Recordset '毎回ここでNew初期化 'Rs作成 Rs.Open SQL, gCnSrc, adOpenStatic, adLockReadOnly, adCmdText If RsSrc.EOF Then Exit Function RsArray = RsSrc.GetRows() '既にRsArrayがあろうとなかろうと上書きさせる仕様 'いったんRsArrayに格納したのですみやかにRsをクローズしておく RsSrc.Close: Set RsSrc = Nothing