SQLSERVERからデータを取得する方法
SQLSERVERに商品テーブルを作り
ACCESSにローカルテーブル(下記の例では入力テーブル)を
作りました。
ACCESS VBAで
ACCESSのローカルテーブルを1件ずつ読み
SQLSERVERの商品テーブルを検索したいのですが
下記の例 どちらが処理スピードが速いのですか?
なお下記以外にも処理スピードが速い方法が
あったら教えてください。
●例1
Dim db As DATABASE
Dim rs As Recordset
dim rt as Recordset
Set db = CurrentDb
Set rt = db.OpenRecordset("入力テーブル", dbOpenDynaset)
sql = "SELECT 商品名 FROM 商品テーブル "
sql = sql & "where 商品ID = '" & rt![商品ID] & "'"
Set rs = db.OpenRecordset(sql)
If rs.RecordCount = 0 Then
MsgBox "NG"
Else
MsgBox rs![商品名]
End If
●例2
Dim db As DATABASE
Dim rs As Recordset
dim rt as Recordset
Set db = CurrentDb
Set rt = db.OpenRecordset("入力テーブル", dbOpenDynaset)
Set rs = db.OpenRecordset("商品テーブル", dbOpenDynaset)
rs.FindFirst "商品CD = '" & rt![商品CD] & "'"
If rs.NoMatch Then
MsgBox "NG"
Else
MsgBox rs![商品名]
End If
よろしくお願いします。
お礼
ありがとうございます。 市場流通を考えたのですが、ちょっとそちらの方が難しいみたいで、ISBNも慎重に検討してみます。