Beste allemaal,
Hoe kan ik in de BDE het level (native drivers) voor dBase aanpassen.
Bij de OnCreate vd form moet een procedure even checken of het level op 5 staat ipv 7, indien negatief zou de app dit zelf moeten aanpassen.
mvg,
Beste allemaal,
Hoe kan ik in de BDE het level (native drivers) voor dBase aanpassen.
Bij de OnCreate vd form moet een procedure even checken of het level op 5 staat ipv 7, indien negatief zou de app dit zelf moeten aanpassen.
mvg,
Hier heb je een stukje code die laat zien hoe je een dbase tabel
aanmaakt met een ander tabel niveau. Misschien heb je daar wat aan.
Zoniet kijk dan eens in de BDE help bestand BDE32.hlp
procedure CreateTable(hDb: hDBIDb; TableName: String; Fields: Word;
pFlds: pFLDDesc; TableLevel: Integer);
var
sLevel : String;
pOpDesc: pFLDDesc;
pOpData: pBYTE;
TblDesc: CRTblDesc;
begin
pOpDesc := AllocMem(3 * sizeof(FLDDesc));
pOpData := AllocMem(20);
try
{ Tabel niveau aangeven : dBASE III = 3 ; dBASE IV = 4 ;
dBASE V = 5 ; dBASE 7 = 7, default = 7 }
sLevel := IntToStr(TableLevel);
pOpDesc.iOffset := 0;
pOpDesc.iLen := Length(sLevel) + 1;
StrPCopy(pOpDesc.szName, 'LEVEL');
StrPCopy(PChar(pOpData), sLevel);
// Tabel opties aangeven...
FillChar(TblDesc, sizeof(TblDesc), #0);
StrPCopy(TblDesc.szTblName, TableName);
StrCopy(TblDesc.szTblType, szDBASE);
TblDesc.iOptParams := 1;
TblDesc.pFldOptParams := pOpDesc;
TblDesc.pOptData := pOpData;
TblDesc.iFldCount := Fields;
TblDesc.pFldDesc := pFlds;
// Tabel werkelijk aanmaken...
Check(DbiCreateTable(hDb, True, TblDesc));
finally
FreeMem(pOpDesc, 3 * sizeof(FLDDesc));
FreeMem(pOpData, 20);
end;
end;
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks