Revision: 840
http://instantobjects.svn.sourceforge.net/instantobjects/revision/?rev=840&view=rev
Author: davidvtaylor
Date: 2009-08-18 04:44:31 +0000 (Tue, 18 Aug 2009)
Log Message:
-----------
Small catalog change to get AnyDAC working with Firebird
Modified Paths:
--------------
branches/BrokerDev/AnyDAC/InstantAnyDACCatalog.pas
Modified: branches/BrokerDev/AnyDAC/InstantAnyDACCatalog.pas
===================================================================
--- branches/BrokerDev/AnyDAC/InstantAnyDACCatalog.pas 2009-08-18 04:42:40 UTC (rev 839)
+++ branches/BrokerDev/AnyDAC/InstantAnyDACCatalog.pas 2009-08-18 04:44:31 UTC (rev 840)
@@ -83,6 +83,7 @@
ADFieldAttrib : TADDataAttributes;
IntValue : integer;
FieldRow : TADDatSRow;
+ ColumnLength : variant;
I : integer;
begin
ConnMetadata := Connector.Connection.ConnectionMetaDataIntf;
@@ -102,7 +103,9 @@
FieldMetadata.Name := ADFieldName;
FieldMetadata.DataType := FieldDataType;
FieldMetadata.AlternateDataTypes := FieldAltDataTypes;
- FieldMetadata.Size := Integer(FieldRow.GetData('COLUMN_LENGTH'));
+ ColumnLength := FieldRow.GetData('COLUMN_LENGTH');
+ if VarIsOrdinal(ColumnLength) then
+ FieldMetadata.Size := Integer(ColumnLength);
FieldMetadata.Options := [];
if (not (caAllowNull in ADFieldAttrib)) then
|
