VBA（ＳＱＬ使用）でiseriesのデータ取得できない

iseriesのＤＢにエクセルのＶＢＡを使ってデータをとりたいのですが、１レコードも取得できずにいます。ソースを提示しますのでどこが間違っているか教えていただけますでしょうか。ＶＢＡの初心者なんですが前任の見よう見まねで作っているところです。よろしくお願いします。


Public PARM As String 　'PARMには入力してあります。　
Sub 受信()
ReDim SHINA(5000)
ReDim BANGO(5000)
GYO2 = 5
GYO1 = 1

Set ASCON = New ADODB.Connection
ASCON.CursorLocation = adUseClient
ASCON.Open = "DSN=" & DSN1 & "; UID=" & UID1 & ";PWD=" & PWD1

QSQL = ""
QSQL = QSQL & "SELECT MISE SHINA BANGO "
QSQL = QSQL & " FROM " & LIBLRY1 & ".DATAB"
QSQL = QSQL & " WHERE MISE =" & PARM 　'MISEは文字列です
Set RS = New ADODB.Recordset
RS.Open QSQL, ASCON, adOpenDynamic, adLockOptimistic

Do While Not RS.EOF 　　'データがないのでloopで抜けてしまう
SHINA2(GYO1) = RS("SHINA")
BANGO2(GYO1) = RS("BANGO")

Cells(GYO2, 1) = RS("SHINA")
Cells(GYO2, 3) = RS("BANGO")

GYO1 = GYO1 + 1
GYO2 = GYO2 + 1

Loop

　　RS.Close
Set RS = Nothing

ASCON.Close
Set ASCON = Nothing
　　end sub

No.1 ベストアンサー 回答者： 1050YEN 回答日時： 2010/04/17 23:12

IBM製DBは使用したことはありませんが、、、

基本的なSQL文としてのアドバイスです。


WHERE句は文字列が抽出条件であれば、

QSQL = QSQL & " WHERE MISE =" & PARM 　'MISEは文字列です
を
QSQL = QSQL & " WHERE MISE ='" & PARM & "'" 　'MISEは文字列です
にしてみたらどうでしょう？

この回答へのお礼

できました！ありがとうございました！

お礼日時：2010/04/18 00:41

No.2 回答者： 1050YEN 回答日時： 2010/04/17 23:14

ってか

iseriesをググッたらIBMが出たので勝手にDBだと思いこんだんだけど、、、

IBM製のDBであっているのだろうか？

この回答への補足

説明不足ですみません。ＩＢＭ製です。正式には「ＤＢ２　ＵＤＢ」というそうです。

補足日時：2010/04/17 23:59