Results 1 to 2 of 2

Thread: dBase level aanpassen tijdens runtime.

  1. #1
    Senior Member
    Join Date
    Dec 2001
    Location
    Belgisch Limburg
    Posts
    244

    dBase level aanpassen tijdens runtime.

    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,

  2. #2
    Member
    Join Date
    Nov 2001
    Location
    Hengelo (OV)
    Posts
    39
    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;

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. runtime aanmaken van een DBASE IV table
    By pillejunior in forum Databases
    Replies: 54
    Last Post: 13-Oct-04, 10:56
  2. events maken tijdens runtime
    By Luig?¡ in forum Algemeen
    Replies: 1
    Last Post: 08-Jan-04, 15:31
  3. Forms aanpassen at runtime
    By r.nijenhuis in forum Algemeen
    Replies: 29
    Last Post: 14-Jul-03, 09:38
  4. connection string runtime aanpassen
    By jakees in forum Databases
    Replies: 3
    Last Post: 05-Feb-03, 21:45
  5. TQuery vullen tijdens runtime vs designtime
    By hansmoorman in forum Algemeen
    Replies: 4
    Last Post: 23-Jan-02, 23:09

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •