| |
お世話になっております。バンドルデューケンです。
ＤＡＯでテーブルから取得した情報を表示する物を作成しました。
実際には「AD-1012K」までしか表示されません。
「DC-0007P」まで表示したいのですが解りませんどうか教えて下さい
コードマスタ：テーブルの内容
標準価格 価格コード
100000 AD-1012K
30000 AX-101
40000 AH-506I
70000 DC-0007P
PG
MsgBox "DBへの接続を開始します。"
'*********************************************************************
'Excel側でDAOへの参照設定が必要です。
'VBE画面の「ツール」−「参照設定」で、
'Microsoft DAO 3.6 Object Library にチェックをつけてください。
'無ければ、DAO 3.5 でも、大丈夫です。
'*********************************************************************
Dim mdb As DAO.Database
Dim rst As DAO.Recordset
Dim intCnt As Integer
Dim str As String
Dim data As String
' str = "C:\db1.mdb"
str = "D:\Documents and Settings\t-umemoto\デスクトップ\テーブル表示\DB\テーブル表示.mdb"
Set mdb = OpenDatabase(str)
Set rst = mdb.OpenRecordset("コードマスタ")
For intCnt = 1 To rst.Fields.Count
MsgBox rst.Fields(intCnt - 1).Value
Next
MsgBox data & "終了!"
rst.Close
mdb.Close
Set rst = Nothing
Set mdb = Nothing
Exit Sub
End Sub
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
