Dim dbs As Database Dim rst As Recordset Set dbs = CurrentDb Set rst = dbs.OpenRecordset("住所テーブル") With rst Do Until .EOF Debug.Print !ID, !氏名, !住所, !郵便番号 .MoveNext Loop .Close End With Dim cnn As Connection Dim rst As Recordset Set cnn = CurrentProject.Connection Set rst = New ADODB.Recordset With rst .Open "住所テーブル", cnn Do Until .EOF Debug.Print !ID, !氏名, !住所, !郵便番号 .MoveNext Loop .Close End Wit
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く