VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/05/07(Mon) 10:24
投稿者： miura
Ｅメール：
ＵＲＬ：
タイトル： データグリッドに表示されない

お世話になります。

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

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -