| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Добавление поля в таблицу Paradox в режиме выполнения [D6, Paradox]

Игорь П ©   (2005-05-29 01:02:00) 

Как правильно выполнить добавление нового поля в существующую таблицу Paradox в режиме выполнения программы?
Хотелось бы, чтобы поле вставилось, а не добавилось, т.е. при просмотре таблицы, допустим, в Datebase Desktop, порядковый ноиер поля был, например, 5 из 8 полей.
Заранее спасибо.

---

Игорь П   (2005-05-30 22:25:00) [1]

Большое спасибо за помощь

---

CyberStorm   (2005-05-30 17:33:00) [2]

Совсем забыл :)


 ChangeRec = record
   szName: DBINAME;
   iType: Word;
   iSubType: Word;
   iLength: Word;
   iPrecision: Byte;
   end;
{ для iType действуют следующие константы

Paradox physical types dBASE and FoxPro physical types

fldPDXCHAR fldDBCHAR
fldPDXNUM fldDBNUM
fldPDXMONEY fldDBMEMO
fldPDXDATE fldDBBOOL
fldPDXSHORT fldDBDATE
fldPDXMEMO fldDBFLOAT
fldPDXBINARYBLOB fldDBLOCK (dBASE only)
fldPDXFMTMEMO fldDBBINARY (dBASE only)
fldPDXOLEBLOB fldDBOLEBLOB
fldPDXGRAPHIC fldDBBYTES
fldPDXBLOB fldDBLONG (dBASE 7.0 table format only)
fldPDXLONG fldDBDATETIME (dBASE 7.0 table format only)
fldPDXTIME fldDBDOUBLE (dBASE 7.0 table format only)
fldPDXDATETIME fldDBAUTINC (dBASE 7.0 table format only)

fldPDXBOOL
fldPDXAUTOINC
fldPDXBYTES
fldPDXBCD
}



---

CyberStorm   (2005-05-30 17:32:00) [3]


procedure AddField(Table: TTable; NewField: ChangeRec);
var
 Props: CURProps;
 hDb: hDBIDb;
 TableDesc: CRTblDesc;
 pFlds: pFLDDesc;
 pOp: pCROpType;
 B: byte;

begin
 if Table.Active = False then
   raise EDatabaseError.Create('таблица должны быть открыта для изменения структуры!!!');
 if Table.Exclusive = False then
   raise EDatabaseError.Create('Таблица должна быть открыта в эксклюзивном режиме!!!');

 Check(DbiSetProp(hDBIObj(Table.Handle), curxltMODE, integer(xltNONE)));
 Check(DbiGetCursorProps(Table.Handle, Props));
 pFlds := AllocMem((Table.FieldCount + 1) * sizeof(FLDDesc));
 FillChar(pFlds^, (Table.FieldCount + 1) * sizeof(FLDDesc), 0);
 Check(DbiGetFieldDescs(Table.handle, pFlds));

 for B := 1 to Table.FieldCount do begin
   pFlds^.iFldNum := B;
   Inc(pFlds, 1);
 end;
 try
   StrCopy(pFlds^.szName, NewField.szName);
   pFlds^.iFldType := NewField.iType;
   pFlds^.iSubType := NewField.iSubType;
   pFlds^.iUnits1  := NewField.iLength;
   pFlds^.iUnits2  := NewField.iPrecision;
   pFlds^.iFldNum  := Table.FieldCount + 1;
 finally
   Dec(pFlds, Table.FieldCount);
 end;

 pOp := AllocMem((Table.FieldCount + 1) * sizeof(CROpType));
 Inc(pOp, Table.FieldCount);
 pOp^ := crADD;
 Dec(pOp, Table.FieldCount);

 FillChar(TableDesc, sizeof(TableDesc), 0);
 Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
 StrPCopy(TableDesc.szTblName, Table.TableName);
 StrPCopy(TableDesc.szTblType, Props.szTableType);
 TableDesc.iFldCount := Table.FieldCount + 1;
 Tabledesc.pfldDesc := pFlds;
 TableDesc.pecrFldOp := pOp;
 Table.Close;
 try
   Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, FALSE));
 finally
   FreeMem(pFlds);
   FreeMem(pOp);
   Table.Open;
 end;
end;


---

Shuric   (2005-05-29 21:21:00) [4]

ALTER TABLE
UPDATE
DROP

Набор для садомазо :)

---

Desdechado   (2005-05-29 20:58:00) [5]

bde32.hlp

---

Игорь П   (2005-05-29 20:34:00) [6]

Извините за невежество, но я не знаю как использовать функцию dbiDoRestructure. В своём Delphi6 я в help не смог найти её описание.
Хотелось бы, если об этом в данном форуме рассказывать слишком долго, узнать ссылки в I-Net, где можно про неё почитать.

---

Kuzya   (2005-05-29 11:48:00) [7]

ИМХО Через обычное добовление и последующию сортировку при помощи
TQuery

---

Anatoly Podgoretsky   (2005-05-29 11:08:00) [8]

dbiDoRestructure

---

Наверх