Devart Forums

Code: Select all

SQL := 'CREATE TABLE ' + TableName + ' ('#13#10;
      while not UniMetaDataSrc.Eof do begin
        SQL := SQL + UniMetaDataSrc.FieldByName('COLUMN_NAME').AsString + ' ' +
                     UniMetaDataSrc.FieldByName('DATA_TYPE').AsString;
        if Pos('CHAR', UniMetaDataSrc.FieldByName('DATA_TYPE').AsString) > 0 then
          SQL := SQL + '(' + UniMetaDataSrc.FieldByName('DATA_LENGTH').AsString + ')';

Code: Select all

CREATE TABLE HTRXTBL ('#$D#$A'HTRX_ID 8,'#$D#$A'HTRX_TRX_DATE 35, .. ... etc

Code: Select all

function GetDataName(FieldType: Integer): string;
begin
  case FieldType of
    7: Result := 'SMALLINT';
    8: Result := 'INTEGER';
    10: Result := 'FLOAT';
    12: Result := 'DATE';
    13: Result := 'TIME';
    14: Result := 'CHAR';
    16: Result := 'BIGINT';
    27: Result := 'DOUBLE PRECISION';
    35: Result := 'TIMESTAMP';
    37: Result := 'VARCHAR';
    261: Result := 'BLOB';
  end;
end;