<％
classrlmandbcls
privatesdbpath、rlconn、sdbtype、sservername、susername、spassword
publicCount
privatesubclass_initialize（）
sdbtype = ""
Endingub
privatesubclass_terminate（）
ifisobject（rlconn）then
rlconn.close
setrlconn =何もない
endif
Endingub
publicPropertyletdbtype（byvalstrvar）
sdbtype = strvar
Endproperty
publicPropertyletservername（byvalstrvar）
sservername = strvar
Endproperty
publicPropertyletusername（byvalstrvar）
susername = strvar
Endproperty
publicPropertyletpassword（byvalstrvar）
Spassword = strvar
Endproperty
'データベースパスを設定します
publicPropertyletdbpath（byvalstrvar）
sdbpath = strvar
selectcasesdbtype
ケース「SQL」
strserver = sservername 'データベースサーバー名
struid = susername'yourログインアカウント
strsapwd = spassword'yourログインパスワード
strdbname = sdbpath'yourデータベース名
sdbpath = "driver = {sqlserver}; server ="＆strserver＆ "; uid ="＆struid＆ "; pwd ="＆strsapwd＆ "; database ="＆strdbname
ケース「アクセス」、 "