0

次のように、DataBase から値を取得して変数に設定しようとしています。

Dim prefferedAgencieUser
Dim agenciePermission

sSql = "SELECT ag.UserTeamLeader "
sSQL = sSQL &  " FROM dbo.BigAgencies ag "
sSQL = sSQL &  " inner join TCL01_cliente cl on cl.preferred_agency=ag.id "
sSQL = sSQL &  " where cl.Cod_cliente = '" & nCodCliente & "'"

Set prefferedAgencieUser = oSelect.ExecuteQuery(sSql)

if prefferedAgencieUser = UserName then
agenciePermission = 1
end if

DB への接続は正常に機能しますが、次のようなエラーが発生しました。

Microsoft VBScript runtime error '800a000d'

Type mismatch

私は何を間違っていますか?

4

1 に答える 1