We intercepted a COM error

[cajadeavila]

Any ideas for this error?

The piece of code is this...

$prueba="Informatica-Sistemas"
Dim $nombredbdepart = "E:\mapeando2.mdb"    
Dim $query2 = "SELECT UNIDAD FROM "& $nombredbdepart &" WHERE DEPARTAMENTO = "& $prueba

    $adoCon = ObjCreate("ADODB.Connection")
    $adoCon.Open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & $nombredbdepart)
                    $adoRs = $adoCon.Execute($query2)
                    $usergroups = $oUsr.GetEx ("memberof")

            While Not $adoRs.EOF --------> (HERE IS THE COM ERROR)<---------------------------
                $salida2 = $adoRs.Fields("UNIDAD").value 
                DriveMapAdd("*",$salida2)
                $len2 = StringLen($salida2)     
                $result = StringTrimRight($salida2, $len2)
                $adoRs.MoveNext
            WEnd
    $adoCon.Close

[water]

Hi,

I never worked with a MS Access database but here you'll find a MSAccess UDF. The UDF and the discussion on the thread should get you started.

[trancexx]

This is all very clear. And has nothing to do with experience with Microsoft Access.

All cajadeavila needs is to learn how and when to use IsObj() function.