型が一致しません

質問

クラスのメソッド（VBで作成したActiveXDLL）を実行する時、
型が一致しませんというエラーがでます。
クラスのパラメータをリテラルで埋め込むと正常に実行され、
変数を用いるとエラーとなります。
何かお気づきの方、教えてくれたら幸いです

<< asp側 >>
Set SxeObj = Server.CreateObject("sxejancheck.Jancheck")
下の書き方だとOK
ReturnResult = SxeObj.CheckJan ("000001", "1111111111111")
下の書き方だと駄目
pSellerCD = "000001"
pGtinCode = "1111111111111"
ReturnResult = SxeObj.CheckJan (pSellerCD , pGtinCode)

VB(DLL側）
Public Function CheckJan(pSellerCD As String, pGtinCode As String) As Boolean

環境はIE5.5+IIS5.0+WIN2000です。

回答No.1

osamuy · ベストアンサー

ASPはVariant型の変数しか使えません。お使いのActiveXの引数の型が

CheckJan( As String, As String )

だったら、エラーになると思います（String→VariantはOKだけど、Variant→StringはNG）。

CheckJan( As Variant, As Variant )

とし、内部で、Cstrして、DLLを呼び出してみては。

お礼

ありがとうございます。上手くいきました
ＶＢの知識が無くてお手数かけました