| |
おはようございます。
> 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("コードマスタ")
>
Do Until rst.EOF
> For intCnt = 1 To rst.Fields.Count
>
> MsgBox rst.Fields(intCnt - 1).Value
> Next
rst.MoveNext
Loop
> MsgBox data & "終了!"
>
> rst.Close
> mdb.Close
> Set rst = Nothing
> Set mdb = Nothing
>
> Exit Sub
>End Sub
こんな感じでしょうか？
|
|
小僧
- 05/3/16(水) 9:11 -
