修正RO6.0.43中Oracle取字段长度不正确的问题.

环境:RemObjects 6.0.43.801+UniDac3+Oracle9

  笔者发现正在进行的一个基于Oracle的项目在取字段的长度时,如果表中含有Varchar2类型的字段,取出来的长度往往不是实际的定义长度,因为项目中采用了DA,开始怀疑是否是Undac的问题,在直接用Unidac访问Oracle测试的情况下,其字段返回的长度是正确的,遂排除它的问题,怀疑是否RO&DA的问题,一路跟踪下来,果然发现了问题:

 

  在uDAUniDACDriver.pas 757行处:

 procedure TDAEUniDACConnection.DoGetTableFields(const aTableName: string; out Fields: TDAFieldCollection); begin {$IFNDEF UNIDAC_NATIVE_ONLY} case fDriverType of dauMSSQL: MSSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields); dauInterBase: IB_GetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields); dauMySQL: MYSQL_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName),GetDatasetClass.Create(Self),Fields, fConnection.Database,GetMySQLVersion); dauOracle: Oracle_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields); //这里调用了Oracle_DoGetTableFields方法 dauPostgreSQL: Postgres_DoGetTableFields(QuoteIdentifierIfNeeded(aTableName), GetDatasetClass.Create(Self), Fields); else {$ENDIF} native_DoGetTableFields(aTableName, Fields); {$IFNDEF UNIDAC_NATIVE_ONLY} end; {$ENDIF} end;

 

  跟踪到uDAOracleInterfaces.pas第268行:

procedure Oracle_DoGetTableFields(const aTableName: string; Query: IDADataset; out Fields: TDAFieldCollection); const // CHARACTER_SET_NAME, CHAR_LENGTH SQL_TABLEINFO ='SELECT C.COLUMN_NAME, C.DATA_TYPE, C.DATA_LENGTH, C.DATA_PRECISION, C.DATA_SCALE, C.NULLABLE, C.DATA_LENGTH, CC.COMMENTS '+ 'FROM USER_TAB_COLUMNS C LEFT OUTER JOIN USER_COL_COMMENTS CC on (CC.TABLE_NAME = C.TABLE_NAME AND CC.COLUMN_NAME = C.COLUMN_NAME) '+ 'WHERE (C.TABLE_NAME=''%s'')'; SQL_PRIMARYKEY = 'SELECT ACC.COLUMN_NAME, ACC.POSITION FROM USER_CONSTRAINTS AC, USER_CONS_COLUMNS ACC '+ 'WHERE (AC.TABLE_NAME=''%s'') AND (ACC.TABLE_NAME = AC.TABLE_NAME) AND '+ '(AC.CONSTRAINT_NAME = ACC.CONSTRAINT_NAME) AND AC.CONSTRAINT_TYPE = ''P'''; var fld: TDAField; ltable: string; ldt: TDADataType; begin Fields := TDAFieldCollection.Create(nil); try ltable := aTableName; ltable:= AnsiDequotedStr(ltable,'"'); Query.Close; Query.SQL:= Format(SQL_TABLEINFO, [ltable]); Query.Open; While not Query.Eof do begin fld := Fields.Add; fld.Name:=Query.Fields[0].AsString; ldt:=OracleTypeToDADataType(Query.Fields[1].AsString,Query.Fields[3].AsInteger,Query.Fields[4].AsInteger); fld.DataType:=ldt; If ldt = datDecimal then begin fld.DecimalPrecision :=Query.Fields[3].AsInteger; fld.DecimalScale :=Query.Fields[4].AsInteger; if fld.DecimalScale < 0 then fld.DecimalScale := 0; end; fld.Required := Query.Fields[5].AsString = 'N'; if ldt in [datString, datWideString] then begin if (Query.Fields[1].AsString = 'ROWID') or (Query.Fields[1].AsString = 'UROWID') then fld.Size := 18 else fld.Size := Query.Fields[6].AsInteger; end; fld.Description := Query.Fields[7].AsString; Query.Next; end; // pk Query.Close; Query.SQL:= Format(SQL_PRIMARYKEY,[aTableName]); Query.Open; While not Query.Eof do begin fld := Fields.FindField(Trim(Query.Fields[0].AsString)); if Fld <> nil then fld.InPrimaryKey := True; Query.Next; end; finally Query := nil; end; end;

 

字段的长度是返回的USER_TAB_COLUMNS表的'DATA_LENGTH'字段值,而准确的字符字段长度应该为CHAR_LENGTH

聪明的你应该知道怎么做了.