作りながら学ぶVBAプログラミング

簡易データベースファイル、よく使うサブルーチンライブラリ

FileIO.bas

簡易データベースファイルの操作を行います。

データベースとは、検索システムではなく、フィールドがフリーになるファイル構造です。

1レコードは、1ファイルとして処理します。


簡易データベースレコードを開く

書籍 Function Get_DBfile(wsht, flsmbl, FileName) wsht:作業用ワークシート
flsmbl:データベースシンボル
FileName:データベースレコードファイル


使用例
'dim dbname
'
'dbname = "db1"
'stat = Get_DBfile(wsht,dbname,filename)
'buff = get_xValue(wsht,dbname,"DATA",buff)



簡易データベースレコード書き出し

書籍 Function Put_DBfile(wsht, flsmbl, FileName) wsht:作業用ワークシート
flsmbl:データベースシンボル
FileName:データベースレコードファイル


使用例
'dim dbname
'
'dbname = "db1"
'buff = put_xValue(wsht,dbname,"DATA",buff)
'stat = Put_DBfile(wsht,dbname,filename)



簡易データベースフィールド読み込み

書式 Function get_xValue(wsht, flsmbl, smbl, rval) wsht:作業用ワークシート
flsmbl:データベースシンボル
smbl:フィールド名
rval:戻り


使用例
'dim dbname
'
'dbname = "db1"
'stat = Get_DBfile(wsht,dbname,filename)
'buff1 = get_xValue(wsht,dbname,"DATA1",buff1)
'buff2 = get_xValue(wsht,dbname,"DATA2",buff2)



簡易データベースフィールド書き込み

書式 Function put_xValue(wsht, flsmbl, smbl, rval) wsht:作業用ワークシート
flsmbl:データベースシンボル
smbl:フィールド名
rval:書き込み値


使用例
'dim dbname
'
'dbname = "db1"
'buff1 = put_xValue(wsht,dbname,"DATA1",buff1)
'buff2 = put_xValue(wsht,dbname,"DATA2",buff2)
'stat = Put_DBfile(wsht,dbname,filename)






  • このエントリーをはてなブックマークに追加

関連記事

ゆずまる・ゆぅべぇ

システムエンジニア/プログラマ歴数十年のゆずまるです。

バナーにもあるように変体的な犬マニアで生まれてからこのかた犬のいない日は経験していません。
中でもコッカースパニエルとラブラドールが死ぬほど好き!

そんなゆずまるは、20数種類の様々な言語を使用してシステム開発をおこなってきました。

そこで使ってきた各言語の自作ライブラリ中のVBAのライブラリを公開しています。

※姉妹サイトに C,PHP などのサイトもネット上に浮遊させております。そちらでもお役にたてましたら無上の喜びw

あなたの一助になれば幸いです。