Paßwort für DB

Beppo

Hallo,

ich erstelle während der Laufzeit eine Datenbank.

{
AnsiString myTable = "Test.db";

TTable *NewTable = new TTable(Administrator);
NewTable->Active = false;
//NewTable->DatabaseName = "";
NewTable->TableName = myTable;
NewTable->TableType = ttDefault;
NewTable->FieldDefs->Clear();
//
//      Datenfeld " ID "
TFieldDef *NewField = NewTable->FieldDefs->AddFieldDef();
NewField->DataType = ftAutoInc;
NewField->Name = "ID";
//
//      Datenfeld " Integer "
NewField = NewTable->FieldDefs->AddFieldDef();
NewField->DataType = ftInteger;
NewField->Name = "integer";
//
//      Datenfeld " String "
NewField = NewTable->FieldDefs->AddFieldDef();
NewField->DataType = ftString;
NewField->Name = "string";
NewField->Size = 50;
//
/*NewTable->IndexDefs->Clear();
TIndexDef *NewIndex = NewTable->IndexDefs->AddIndexDef();
NewIndex->Name = "ID";
NewIndex->Fields = "Integer";
NewIndex->Options << ixPrimary << ixUnique;
*/
//
//      existiert Datenbank ?
bool CreateIt = (!NewTable->Exists);
if (!CreateIt)
if (Application->MessageBoxA((AnsiString("Überschreiben der Tabelle")
      + myTable + AnsiString("?")).c_str(),
      "Datenbank existiert !!!", MB_YESNO) == IDYES)
      CreateIt = true;
//
//      Datenbank erstellen/überschreiben
if (CreateIt)
NewTable->CreateTable();
//
//      neue elemente löschen
delete NewIndex;
delete NewField;
delete NewTable;
}

Code sind noch nicht vollständig.

Frage: wie teile ich der neuen Datenbank das Paßwort mit ???
habe darüber leider nichts gefunden.

Gruß Siegfried