Code: Select all
begin
Fields[i].Size := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);
Fields[i].DisplayWidth := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);
end;Code: Select all
begin
{$IFNDEF FPC} Fields[i].Size := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);{$ENDIF}
Fields[i].DisplayWidth := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);
end;Yes, I see that in fact the client encoding must be consistent with the encoding of the database on a server that was not errors.EgonHugeist wrote: Michal, i've started with MariaDB. And currently i've new fails with the tests. The most of them happen if the current client encoding differ from the database encoding. Did you recognize something like this?
It is not good with Size.
In order to properly limit the number of characters in Delphi dbcontrols I now use(in line 1757):
Code: [Erweitern] [mehr anzeigen] [Verkleinern] [Alles auswählen]
begin
{$IFNDEF FPC} Fields.Size := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);{$ENDIF}
Fields.DisplayWidth := ResultSet.GetMetadata.GetColumnDisplaySize(I+1);
end;
For Lazarus I can not see a good way of limiting the number of input characters.
Yes, I see that in fact the client encoding must be consistent with the encoding of the database on a server that was not errors.
Oh i've overlooked your hint. Well i'll make a test and check the reason for this nasty AV.Watch the Catalog for Oracle, about which I wrote in the previous post?
Well that's true.Is not bad but you can see that the missing batch insert in ZEOS.
Can you provide an example? I can't reproduce it...Why try to use Catalog (in TZConnection) for Oracle causes AV?!
Code: Select all
procedure TZCatalogPropertyEditor.GetValueList(List: TStrings);
var
DbcConnection: IZConnection;
Url: string;
begin
if GetZComponent is TZAbstractConnection then
try
URL := (GetZComponent as TZAbstractConnection).GetURL;
(GetZComponent as TZAbstractConnection).ShowSqlHourGlass;
try
DbcConnection := DriverManager.GetConnectionWithParams(Url,
(GetZComponent as TZAbstractConnection).Properties);
if Assigned(DbcConnection) then
if DbcConnection.GetMetadata.GetDatabaseInfo.SupportsCatalogsInDataManipulation then
with DbcConnection.GetMetadata.GetCatalogs do
try
while Next do
List.Append(GetStringByName('TABLE_CAT'));
finally
Close;
end
else if DbcConnection.GetMetadata.GetDatabaseInfo.SupportsSchemasInDataManipulation then
with DbcConnection.GetMetadata.GetSchemas do
try
while Next do
List.Append(GetStringByName('TABLE_SCHEM'));
finally
Close;
end;
finally
(GetZComponent as TZAbstractConnection).HideSqlHourGlass;
end;
except
// raise;
end;
end;