- 日時： 2007/09/16 11:08
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[データベース][グリッド関係][] *
* キーワード：データグリッド,,,,, *
***********************************************************************************
元質問：データグリッドに表示されない - miura 2007/05/07-10:24 No.9092
WinXPでVB6.0 + Access2003の環境です。
Accessのクエリを元に、データグリッドにデータを表示するだけの単純な作業です。
しかし、データグリッドに何も表示されません。エラーも出ません。
データは間違いなく存在しますし、msgboxでは表示されます。
Private Sub Form_Load()
strPath = App.Path & "\..\誕生日.mdb"
Set cn = New ADODB.Connection
cn.ConnectionString = "provider=microsoft.jet.oledb.4.0;" _
& "data source=" & strPath
cn.Open
Call Settei_rtn
Call Kensaku_rtn
Set rs = New ADODB.Recordset
rs.Open "Q_誕生日", cn, adOpenStatic, adLockOptimistic
Set dgdSub.DataSource = rs
MsgBox rs!社員コード & rs!氏名
'dgdSub.Columns("ID").Visible = False
'dgdSub.Columns("会社コード").Width = 60 * 15
'dgdSub.Columns("社員コード").Width = 150 * 15
'dgdSub.Columns("氏名").Width = 60 * 15
'dgdSub.Columns("性別").Width = 60 * 15
'dgdSub.Columns("誕生日").Width = 60 * 15
'dgdSub.Columns("年齢").Width = 60 * 15
End Sub
-----------------------------------------------------------------------------------
Re: データグリッドに表示されない - 魔界の仮面弁士 2007/05/07-10:58 No.9093
-----------------------------------------------------------------------------------
> Accessのクエリを元に、データグリッドにデータを表示するだけの
> 単純な作業です。
DataGrid に表示する際は、CusorLocation = adUseClient にしておいた方が無難です。
データ量の都合から、adUseServer モードを使う必要がある場合には、
Set rs = New ADODB.Recordset
With rs
Set .ActiveConnection = cn
.CursorLocation = adUseServer
.Properties("IRowsetIdentity").Value = True '★
.Open SQL, , adOpenKeyset, adLockOptimistic, adCmdText
End With
のように、IRowsetIdentity ダイナミックプロパティを True にすれば OK です。
http://msdn.microsoft.com/library/ja/jpoledb/reference35.asp
|
Accessのクエリを元にデータグリッドにデータを表示(VB6.0)