サクサク読めて、アプリ限定の機能も多数!
トップへ戻る
画力アップ
stella-cielo.hatenadiary.org
Public Sub Sample() Dim myDB As Database Dim myRS As DAO.Recordset Dim myQuery As QueryDef Dim mySQL As String 'SQLステートメントを定義する mySQL = "SELECT * FROM 社員テーブル;" 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'クエリを作成する Set myQuery = myDB.CreateQueryDef("", mySQL) 'クエリを実行してレコードセットを開く Set myRS = myQuery.OpenRecordset(dbOpenDynaset) 'レコードセットの内容を表示する Do Until myRS.EOF Debug.Print myRS!社員コード & " " & myRS!部署コード
このページを最初にブックマークしてみませんか?
『stella-cielo.hatenadiary.org』の新着エントリーを見る
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く