スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

VBAに、テーブルからデータを取得

Dim currs() As String, n As Integer
Dim adoCON As ADODB.Connection
Dim adoRS As ADODB.Recordset

'DBへの接続
Set adoCON = Application.CurrentProject.Connection
Set adoRS = adoCON.Execute("select * from Currencies")

n = 0
'最終レコードまで順読み込みを行う
Do Until adoRS.EOF = True
ReDim Preserve currs(n)
currs(n) = adoRS("Currency") 'DBより情報取得(Currencyは項目名)

adoRS.MoveNext 'レコードの順読み
n = n + 1
Loop

'後処理
adoRS.Close
adoCON.Close
Set adoRS = Nothing
Set adoCON = Nothing
スポンサーサイト

トラックバック

コメント

コメントを残す

Secret



上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。