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

1050 円（@1050YEN） · ベストアンサー

IBM製DBは使用したことはありませんが、、、
基本的なSQL文としてのアドバイスです。

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

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

お礼

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

回答No.2

1050 円（@1050YEN）

ってか

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

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

補足

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