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

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

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

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

Table of Contents

テーブルを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を印刷する! 送信失敗させない!

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

アイコスの煙がでないときに増やす方法

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

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

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

ランニングの走り方大きい足音はNG

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

一卵性双子が似てないのはなぜ? 影響するのは遺伝子?環境?

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

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

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

GetSupplier()の中身

StringBuilderクラス

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

android MySql接続 メッセージアプリ 自作② DB(MySql)の登録

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

Excel VBAの配列からtsv・csvを出力する

VBAでバーコード生成する

C# SQLServerへの接続方法

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

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

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

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

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

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

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

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

VBAで例外をcatchする書き方

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

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

アイコスの煙がでないときに増やす方法

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

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

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

ランニングの走り方 大きい足音はNG

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

一卵性双子が似てないのはなぜ? 影響するのは遺伝子?環境?

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

android MySql接続メッセージアプリ自作② DB(MySql)の登録

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

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

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

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

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

ランニングの走り方大きい足音はNG