次のように、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
私は何を間違っていますか?