[Bug 5755] New: oleaut32: MS Dao3.5 fails to evaluate "SELECT ... WHERE "X" & FieldName & "X" LIKE "XXX"" query

[Wine Bugs]

http://bugs.winehq.org/show_bug.cgi?id=5755

           Summary: oleaut32: MS Dao3.5 fails to evaluate "SELECT ... WHERE
                    "X" & FieldName & "X" LIKE "XXX"" query
           Product: Wine
           Version: 0.9.17.
          Platform: Other
        OS/Version: other
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: wine-ole
        AssignedTo: wine-bugs(a)winehq.org
        ReportedBy: paolo.salvan(a)xvision.it


Using DAO 3.5 (the engine for MS Access 97 databases) and Wine 0.9.17
I've got a trouble:

when I launch a query that uses expression like this:
SELECT CategReport FROM TReport WHERE "X" & DefaultFor & "X" LIKE "XXX"
the query fails...

The console log says:
----
fixme:variant:VarCat Failed to convert right side from vt 1 to VT_BSTR?
----
Replacing the builtin OLEAUT32.DLL with the native DLL everything works
ok.

The attached minimal project reproduce the problem; before starting it, install
standard Dao 3.5 setup from MS or install
http://download.danea.it/demo/def2006demo09b.exe (that is my SW, it install a
minimal Dao3.5)

BTW, this is the minimal bit of Delphi code to reproduce the problem:

procedure TForm1.Button3Click(Sender: TObject);
var
    daodbeng: DAODBEngine;
    daodb: DAODatabase;
    daors: DAORecordset;
begin
    try
        daodbeng:= OpDAO35.CreateEngine;
        daodb:= daodbeng.OpenDatabase(ChangeFileExt(Application.ExeName,
'.mdb'), false, false, '');

        // This works under Windows, fails under Wine:
        // log: fixme:variant:VarCat Failed to convert right side from vt 1 to
VT_BSTR?
        daors:= daodb.OpenRecordset('SELECT CategReport FROM TReport WHERE "X" &
DefaultFor & "X" LIKE "XXX"', dbOpenDynaset, _, _);

        showmessage('OK');

        daors.Free;
        daodb.Free;
        daodbeng.Free;
    except
        on e: Exception do
            ShowMessage('Exception: ' + e.ClassName + '; Msg: ' + e.Message);
    end;
end;

-- 
Configure bugmail: http://bugs.winehq.org/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are the assignee for the bug, or are watching the assignee.