RecordSetにテーブルのデータを取得する

C#やVB.netを経験してからVBAを扱うと、DataTableってVBAにはないの？と思ってしまいますよね。

DataTableではなく、RecordSetを使うことで同じような感じで処理ができます。

使い方の備忘録として残しておきます。

テーブルをRecordSetに取得するコード

処理としては以下の抜粋から紹介します。

①テーブルからデータをSELECT
②RecordSetへ結果を取得
③csv、tsvに出力

RecordSetからcsv、tsvファイルを出力するAccessのテーブルからtsvファイルを出力しようとしたところ、意外と簡単に出す方法がありませんでした。備忘録のために残してお...

作成したAccessファイルはこちらからダウンロードできます。

テーブルをRecordSetに取得する書き方

以下のような書き方です。

※RecordSetにSELECT結果を格納しているのは13行目です。

'=============================================='
'処理　　　 ：csv出力ボタン押下時'
'=============================================='
Private Sub ExportCsv_Click()
　　
　　Dim db As DAO.Database　　　　　　　　　　　　　　　　　　'DBの変数
　　Dim RS_Supplier As DAO.Recordset　　　　　　　　　　　　'レコードセット
　　
　　'DBをセット
　　Set db = CurrentDb
　　
　　'レコードセットへテーブルのデータを取得
　　Set RS_Supplier = db.OpenRecordset(GetSupplier())
　　
　　'レコードセットをファイル出力
　　Call ExportRecordSet(",", RS_Supplier)
　　
End Sub

'=============================================='

'処理　　　：csv出力ボタン押下時'

'=============================================='

Private Sub ExportCsv_Click()

　　Dim db As DAO.Database　　　　　　　　　　　　　　　　　　'DBの変数

　　Dim RS_Supplier As DAO.Recordset　　　　　　　　　　　　'レコードセット

　　'DBをセット

　　Set db = CurrentDb

　　'レコードセットへテーブルのデータを取得

　　Set RS_Supplier = db.OpenRecordset(GetSupplier())

　　'レコードセットをファイル出力

　　Call ExportRecordSet(",", RS_Supplier)

End Sub

GetSupplier()の中身

SELECT文をGetSupplier()で作成しています。

SQLの知識が必要なので、ゼロからはじめるデータベース操作がおすすめです。

'=============================================='
'目的:　　　　Supplierテーブルからすべてを取得'
'引数：'
'戻り値:　　　SQL文'
'=============================================='
Public Function GetSupplier() As String
　　Dim SB As StringBuilder
　　'インスタンス化'
　　Set SB = New StringBuilder
　　SB.Clear
　　SB.AppendLine ("SELECT")
　　SB.AppendLine (" * ")
　　SB.AppendLine ("FROM Supplier")
　　GetSupplier = SB.GetString()
　　
End Function

'=============================================='

'目的:　　　　Supplierテーブルからすべてを取得'

'引数：'

'戻り値:　　　SQL文'

'=============================================='

Public Function GetSupplier() As String

　　Dim SB As StringBuilder

　　'インスタンス化'

　　Set SB = New StringBuilder

　　SB.Clear

　　SB.AppendLine ("SELECT")

　　SB.AppendLine (" * ")

　　SB.AppendLine ("FROM Supplier")

　　GetSupplier = SB.GetString()

End Function

VBA C# オススメ参考書プログラミングの参考書でオススメの紹介をしていきます。それぞれ私が使っている言語のみです。 VBAのオススメ参考書をExc...

StringBuilderについては次で解説しています。

StringBuilderクラス

StringBuilderもC#やVB.netには既存であるクラスなのですが、VBAにはありません。

なので簡単に作ってあります。

一つ作っておくと1つのAccessアプリでは使いまわせるので便利です。

'===================================================================='
' StringBuilderクラス'
'--------------------------------------------------------------------'
' create: 2018/02/20'
' update: 2018/02/20'
'===================================================================='
Option Compare Database
'========================================================='
' メンバ宣言'
'========================================================='
' 成形文字列'
Private strString As String
' 改行コード'
Private RTN_CODE As String
'========================================================='
' コンストラクタ'
'========================================================='
Private Sub Class_Initialize()
　　' 初期化'
　　strString = ""
　　RTN_CODE = Chr(13) & Chr(10)
End Sub
'========================================================='
' 成形した文字列を空文字にする'
'========================================================='
Public Sub Clear()
　　strString = ""
End Sub
'========================================================='
' 成形した文字列を取得する'
'---------------------------------------------------------'
' return　　　　　　　　　　成形した文字列'
'========================================================='
Public Function GetString()
　　GetString = strString
End Function
'========================================================='
' 文字列を追加'
'---------------------------------------------------------'
' param strAdd　　　　　　　追加する文字列'
'========================================================='
Public Sub Append(ByVal strAdd)
　　strString = strString & strAdd
End Sub
'========================================================='
' 文字列を追加'
'---------------------------------------------------------'
' param strAdd　　　　　　　追加する文字列'
'========================================================='
Public Sub AppendLine(ByVal strAdd)
　　Append (strAdd & RTN_CODE)
End Sub

'===================================================================='

' StringBuilderクラス'

'--------------------------------------------------------------------'

' create: 2018/02/20'

' update: 2018/02/20'

'===================================================================='

Option Compare Database

'========================================================='

' メンバ宣言'

'========================================================='

' 成形文字列'

Private strString As String

' 改行コード'

Private RTN_CODE As String

'========================================================='

' コンストラクタ'

'========================================================='

Private Sub Class_Initialize()

　　' 初期化'

　　strString = ""

　　RTN_CODE = Chr(13) & Chr(10)

End Sub

'========================================================='

' 成形した文字列を空文字にする'

'========================================================='

Public Sub Clear()

　　strString = ""

End Sub

'========================================================='

' 成形した文字列を取得する'

'---------------------------------------------------------'

' return　　　　　　　　　　成形した文字列'

'========================================================='

Public Function GetString()

　　GetString = strString

End Function

'========================================================='

' 文字列を追加'

'---------------------------------------------------------'

' param strAdd　　　　　　　追加する文字列'

'========================================================='

Public Sub Append(ByVal strAdd)

　　strString = strString & strAdd

End Sub

'========================================================='

' 文字列を追加'

'---------------------------------------------------------'

' param strAdd　　　　　　　追加する文字列'

'========================================================='

Public Sub AppendLine(ByVal strAdd)

　　Append (strAdd & RTN_CODE)

End Sub

プログラミング初心者の独学方法文系卒の経験談私はIT系の会社に勤めて4年目ですが、最初の1年は開発をさせてもらえませんでした。文系卒でプログラミング経験はなかったの...

プログラミングの独学とはエラーとの闘いプログラミングを勉強し始めた初心者の方はつまづくことが多いと思います。私も最初はエラーが出るたびにいちいちビビッて、意味...

・【Excel VBA】コピペ用：簡易StringBuilder
https://qiita.com/OneK/items/4f8ecdb33eac7bc840b5

おすすめ参考書

■Excelマクロ

てっとり早く確実にマスターできる Excel VBAの教科書

たった1秒で仕事が片づく Excel自動化の教科書

残業しらずのExcel術関数＆VBAでビジネスを加速

たった1秒で仕事が片づく Excel自動化の教科書

■Accessマクロ

よくわかる Microsoft Access 2016 基礎

Accessのデータベースのツボとコツがわかる本2013対応

AccessVBA逆引き大全 600の極意 2007~2016対応

Accessマクロ & VBA 開発工房

CD付 SQL ゼロからはじめるデータベース操作

Access VBA

テーブルをRecordSetに取得するコード

テーブルをRecordSetに取得する書き方

GetSupplier()の中身

StringBuilderクラス

2回の転職をして企業選びで大切に感じたこと給与以上に社風は大事

SESやめとけは本当? 対策は転職にある

VBAでフォルダ内のファイルを検索する

転職で上流SE・コンサルを目指した理由エンジニアも仕事がなくなるかも

VBAで例外をcatchする書き方

PrintSmash パスワード付きPDFを印刷する! 送信失敗させない!

SQL ヘッダー行と明細(データ)行で項目数が異なるデータを抽出する

プライバシーポリシー(サイト規約)

王将チャーハンのレシピ味を再現するヒミツはあれ

Excel VBA メール送信ツール(フリーメール)

RecordSetからcsv、tsvファイルを出力する

Access SQL 複数(2,3,4)テーブルの結合(JOIN)

SESやめとけは本当? 対策は転職にある

2回の転職をして企業選びで大切に感じたこと給与以上に社風は大事

Xserverをパソコンのエクスプローラで開く

テーブルをRecordSetに取得するコード

テーブルをRecordSetに取得する書き方

GetSupplier()の中身

StringBuilderクラス

転職/就活 SE･プログラマの仕事と向いている人

ツール作成の問合せ こんなのあったらいいな

C#アプリ開発 メールお知らせアプリ

RecordSetからcsv、tsvファイルを出力する

SEのプログラミングで副業･アルバイト

AndroidSudio MySqlでランダムにデータを取得する

C# SQLServerへの接続方法

VBA Access エクセル出力 色付け 罫線

androidメッセージアプリ 自作① 画面作成

android MySql接続 非同期処理(MySqlローカル接続エラー原因調査 2)

2回の転職をして企業選びで大切に感じたこと 給与以上に社風は大事

SESやめとけは本当? 対策は転職にある

VBAでフォルダ内のファイルを検索する

転職で上流SE・コンサルを目指した理由 エンジニアも仕事がなくなるかも

VBAで例外をcatchする書き方

PrintSmash パスワード付きPDFを印刷する! 送信失敗させない!

SQL ヘッダー行と明細(データ)行で項目数が異なるデータを抽出する

プライバシーポリシー(サイト規約)

王将チャーハンのレシピ 味を再現するヒミツはあれ

Excel VBA メール送信ツール(フリーメール)

RecordSetからcsv、tsvファイルを出力する

Access SQL 複数(2,3,4)テーブルの結合(JOIN)

SESやめとけは本当? 対策は転職にある

2回の転職をして企業選びで大切に感じたこと 給与以上に社風は大事

Xserverをパソコンのエクスプローラで開く

ツール作成の問合せこんなのあったらいいな

C#アプリ開発メールお知らせアプリ

VBA Access エクセル出力色付け罫線

androidメッセージアプリ自作① 画面作成

android MySql接続非同期処理(MySqlローカル接続エラー原因調査 2)

2回の転職をして企業選びで大切に感じたこと給与以上に社風は大事

転職で上流SE・コンサルを目指した理由エンジニアも仕事がなくなるかも

王将チャーハンのレシピ味を再現するヒミツはあれ

2回の転職をして企業選びで大切に感じたこと給与以上に社風は大事