sally
User
Junior Boarder
| Posts: 18 |   |
Karma: 0
|
|
partial fix for unquoted names.
|
|
Posted: 2007/09/18 07:59 |
|
|
|
|
if you have a field name which is not quoted, such as:
dbTest.FieldByName('AAA').AsString := 'Hello';
the Metadata resolver resolves it as upper-case because the params are unquoted.
I partially fixed this by:
function TADPhysConnectionMetadata.NormObjName(const AName: String; APart: TADPhysNamePart): String;
begin
Result := AName;
if FConnectionObj.DriverObj.GetDriverID = 'IB' then
begin
Result := QuoteName(Result);
end else begin
if Result <> '' then
if not IsNameQuoted(Result, GetNameQuotaChar1, GetNameQuotaChar2)
... // your code.
end;
end;
since you are setting dialect 3 as default, you need to make parameters quoted.
thank you.
|
|
