VB2005 データグリッドについての質問です。

質問

はじめまして。
VB2005にてデータグリッドについて質問です。
データグリッドの初期化がうまくいかなく困っています。
ネットでもいろいろ探しましたが解決策が見つからない為、投稿しました。
下記にソースの一部を記述します。

Dim User_Clone As New ADODB.Recordset

Private Sub AAA_Load()
User_Clone = XXXX
'-- XXXXにはデータベース接続情報が入っている。
DataGrid1.DataSource = User_Clone
'-- ↑XXXXの内容が正しくDataGrid1に表示される。
End Sub

Private Sub BBB_Click
DataGrid1.DataSource = Nothing
DataGrid1.Refresh()
'-- ↑DataGrid1にはXXXXの内容が表示されたままとなっている。
End Sub

なんとか対応をと思い、下記方法で試しましたが
いまいち納得いきません。
Private Sub BBB_Click
User_Clone = New ADODB.Recordset
DataGrid1.DataSource = User_Clone
'-- ↑DataGrid1には何も表示されませんが
'-- Refresh等で初期化できれば・・・。
End Sub

長文ですみませんが、どなたかご教授願います。

回答No.1

korin_ · ベストアンサー

> User_Clone = New ADODB.Recordset
こうやって新たにインスタンスを生成するよりは、
参照を解放する方が良いのではないでしょうか。

Set User_Clone= Nothing
DataGrid1.DataSource = User_Clone
DataGrid1.Refresh()

ちなみに私はDataGrid触った事ないのですが、
Clearメソッド等は存在しないのですね。。。

回答No.2

korin_

#1で回答した者です。

> Set User_Clone = Nothing
すみません。VB6の癖で、Set をつけてしまいました・・・

VB.NETでは Set は不要ですね。

お礼

korin_様。回答有難うございます。

>こうやって新たにインスタンスを生成するよりは、
>参照を解放する方が良いのではないでしょうか。
>User_Clone= Nothing
>DataGrid1.DataSource = User_Clone
>DataGrid1.Refresh()

参照解放というやり方があるんですね。
参照解放を使用したところ、DataGrid1の内容が破棄されました。
有難うございます。

ただ、
(1)DataGrid1.DataSource = User_Cloneにて表示。
(2)参照解放にてDataGrid1の内容を破棄。
(3)再度、DataGrid1.DataSource = User_Cloneにて表示。
をすると、(3)にて表示した際スクロールバーが正しく表示
されなくなってしまいます。
(1)では正しく表示されていたのに・・・。
また別の問題ですかね。