最新トピック
1
19 日前
排他制御 19 日前
2
1 ヶ月前
Hatena様にご質問 1 ヶ月前
6
3 ヶ月前
モジュールでカレントフォームのコントロールを使うには 3 ヶ月前
7
4 ヶ月前
日付のテキストボックスからフォームが開けません 4 ヶ月前
9
4 ヶ月前
レポートにおける数値の間隔を広げる方法 4 ヶ月前
12
4 ヶ月前
リストボックスから複数選択しそれをテーブルに格納したい 4 ヶ月前
11
5 ヶ月前
SQLの型が一致ませんエラー 5 ヶ月前
タグリスト
Markdown テーブル生成
Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。
ご回答ありがとうございます。
なるほど、可能ではあるのですね。それが分かっただけでも嬉しいです。
フォームで表示させる場合はおおよそ以下のような感じです。
ADODBパススルーを行い、レコードセットを取得、「Me.Recordset」でフォームのレコードセットに受け渡し、これを表示させます。
これと同じ内容をレポートで行った場合、空欄になって表示できませんでした。
おそらくレポートでは「Me.Recordset」ではだめなのかと考えたのですが、結局実現できませんでした。
'接続用のクラスです
Dim db As DataBaseAccess
Dim mySQL As String
Dim rs As ADODB.Recordset
'データベースの接続処理
Set db = DatabaseFactory.creater
db.connect
'実行するクエリの文字列をセット。
mySQL = "SELECT " & _
"[取引先マスタ_ID] , [取引先コード], [取引先名]" & _
" FROM [dbo].[取引先マスタ]"
'実行してレコードセットに格納します。
Set rs = db.execute(mySQL)
'ここでデータソースに取得したDBの結果をセット
Set Me.Recordset = rs
'オブジェクト変数を終了、破棄します。
rs.Close
db.disconnect
Set rs = Nothing
Set db = Nothing