tagCANDY CGI VBレスキュー(花ちゃん) - Accessのクエリを元にデータグリッドにデータを表示(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
Accessのクエリを元にデータグリッドにデータを表示(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

Accessのクエリを元にデータグリッドにデータを表示(VB6.0) [No.133の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  VB6.0 用 トップページ
日時: 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

メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ