Spalten in Paradox Datenbank einfügen

[DavidKlimas]

Hallo,

ich habe eine Datenbank mit den spalten :
Spalte1 - Spalte2 - Spalte3
Wie kann ich neue spalten einfügen?
Spalte4 - Spalte5 etc.

Danke für Hilfestellungen

D.K.

[RavenIV]

benutze den SQL-Befehl "ALTER TABLE".
Näheres findest Du in der Delphi-Hilfe unter dem Stichwort "local SQL"

[DavidKlimas]

Mit der Hilfe komme ich nicht weiter. Kann ch irgendwo ein Beispielprogramm finden? 'Alter' kennt mein Delphi nicht...

[mkinzler]

Es stand auch nicht Delphi sonder SQL-Befehl:

SQL-Code:

alter table <Tabelle> add <Feld><Typ>;

[DavidKlimas]

Wie kann ich diesen 'sql' befehl in mein delphi einbauen?

[mkinzler]

TQuery
Oder schaust mal dort:
http://www.dsdt.info/tutorials/?cat=6

genauer hier: http://www.dsdt.info/tutorials/dbteil2/?page=5&x=4&y=5

[DavidKlimas]

Danke,

da ist bestimmt was für mich dabei...

[DavidKlimas]

Also ich hab jetzt folgendes versucht :

Delphi-Quellcode:

  Table2.active:=false;
  with Table2.FieldDefs.AddFieldDef do
  begin
    name := 'Spalte4';
    DataType := ftInteger;
  end;
  Table2.CreateTable;

Das füg die gewünchte spalte hinzu aber löscht sämtliche einträge... Gibt es ein anderen Befehl als CreateTable?

[hoika]

Hallo,

alter table benutzen, wo ist jetzt das Problem ?

Delphi-Quellcode:

Query:= TQuery.Create(NIL);
try
  with Query do
  begin
    DataBaseName:= 'alias_bla' oder 'c:\data\'

    SQL.Clear;
    SQL.Add('Alter Table Personal');
    SQL.Add('Add Name2 Char(30)');
    ExecSQL;
  end;
finally
  Query.Free;
end;

Das "SQL.Clear;" ist nicht notwendig, lass es einfach drin.


Heiko

[DavidKlimas]

OK, so ein Beispiel hab ich gesucht. Danke, das erspart mir die umwege die ich gerade schreibe...

[DavidKlimas]

Beim ausführen bekomm ich eine Fehlermeldung, die mir sagt 'Table is Busy'. Woran kann das liegen?

1000 Dank...

[DavidKlimas]

Ok. Ich hab den Fehler schon gefunden. TableEigenschaft 'activ' war auf True...

[DavidKlimas]

Wie kann ich anstelle des Namens eine Variable einbinden nach folgendem prinzip :

Delphi-Quellcode:

SQL.Add('Add Name+IntToStr(i)+Char(30)');

?

[DelphiProgrammierer]

Zitat:

Zitat von DavidKlimas

Wie kann ich anstelle des Namens eine Variable einbinden nach folgendem prinzip :

Delphi-Quellcode:

SQL.Add('Add Name+IntToStr(i)+Char(30)');

?

Probiere mal:

Delphi-Quellcode:

SQL.Add('Add Name'+IntToStr(i)+' Char(30)');

Für i=1 würde damit das Feld Name1 angelegt und so weiter...

[DavidKlimas]

Danke für den Tip. Beim ausführen kommt jedoch die Fehlermeldung 'Invalid use of Keyword'.

[mkinzler]

Versuche mal:

Delphi-Quellcode:

s := 'Add Name'+IntToStr(i)+' Char(30)';
SQL.Add(s);

[DavidKlimas]

Sorry, Mein Fehler. Funktioniert. Danke...

[hoika]

Hallo,

zeig mal den kompletten Code (alter table add).


Heiko

[DavidKlimas]

Das ist die komplette procedure aus dem Fahrplanprogramm...

Delphi-Quellcode:

procedure TMainForm.SaveButtonClick(Sender: TObject);
var
  int1: integer;
  int2: Integer;
  AllradyExist: Boolean;
  Query:  TQuery;
  Str1: String;
begin
  If CheckListBox1.ItemIndex < 0 then
  begin
    ShowMessage('Select a TrainType');
    exit;
  end;
  For int1 := 1 to DKStringGrid4.RowCount -1 do
  begin
    If (StrToInt(DKStringGrid4.Cells[0, int1-1]) = CheckListBox1.ItemIndex+1) and (StrToInt(DKStringGrid4.Cells[1, int1-1]) = DKStringGrid2.RowCount - 1) then
    begin
      AllradyExist := true;
      For int2 := 0 to DKStringGrid2.RowCount-2 do
      begin
        If DKStringGrid2.Cells[0, int2] <> DKStringGrid4.Cells[int2+2, int1-1] then   
          AllradyExist := False;
      end;
      If AllradyExist = True then
      begin
        ShowMessage('Allrady exist in List');
        exit;
      end;
    end;
  end;
  If DKStringGrid4.ColCount < DKStringGrid2.RowCount + 1 then
    DKStringGrid4.ColCount := DKStringGrid2.RowCount + 1;
  DKStringGrid4.Cells[0, DKStringGrid4.RowCount-1] := IntToStr(CheckListBox1.ItemIndex+1);
  DKStringGrid4.Cells[1, DKStringGrid4.RowCount-1] := IntToStr(DKStringGrid2.RowCount-1);
  For int1 := 0 to DKStringGrid2.RowCount - 1 do
  begin
    DKStringGrid4.Cells[int1+2, DKStringGrid4.RowCount-1] := DKStringGrid2.Cells[0, int1];
  end;
  DKStringGrid4.RowCount := DKStringGrid4.RowCount + 1;
  Int2 := LineTable.FieldCount-1;
  For int1 := Int2 to DKStringGrid2.RowCount-1 do
  begin
    LineTable.Active := False;
    LineTable.Close;
    Query := TQuery.Create(nil);
    try
      Query.DatabaseName := LineTable.DatabaseName;
      Query.SQL.Clear;
      Query.SQL.Add('Alter Table Lines');
      Query.SQL.Add('Add Stop'+IntToStr(int1)+' Char(5)');
      Query.ExecSQL;
    finally
      Query.Free;
    end;
    LineTable.Active := True;
    LineTable.Open;
  end;
  LineTable.Append;
  LineTable.Edit;
  LineTable.FieldByName('NumberOfStops').Value := DKStringGrid2.RowCount - 1;
  LineTable.FieldByName('TrainType').Value := CheckListBox1.ItemIndex+1;
  For int1 := 1 to DKStringGrid2.RowCount - 1 do
  begin
     LineTable.FieldByName('Stop'+IntToStr(Int1)).Value := DKStringGrid2.Cells[0,int1-1];
  end;
  LineTable.Post;
  //Departure :
  For int1 := 1 to DKStringGrid2.RowCount - 2 do
  begin
    Str1 := 'City'+DKStringGrid2.Cells[0, int1-1];
    if DepartureTable.Locate('City', Str1, [] ) = false then
    begin
      DepartureTable.Append;
      DepartureTable.FieldByName('City').Value := Str1;
      DepartureTable.FieldByName('NumberOfDepartures').Value := 0;
      DepartureTable.Post;
    end;
    Str1 := 'City'+DKStringGrid2.Cells[0, int1-1];
    DepartureTable.Locate('City', Str1, [] );
    DepartureTable.Edit;
    DepartureTable.FieldByName('NumberOfDepartures').Value := DepartureTable.FieldByName('NumberOfDepartures').Value + 1;
    DepartureTable.Post;
    If DepartureTable.FieldByName('NumberOfDepartures').AsVariant > DepartureTable.FieldCount-2 then
    begin
      Str1 := 'Line'+IntToStr(DepartureTable.FieldCount-1);
      DepartureTable.Active := False;
      DepartureTable.Close;
      Query := TQuery.Create(nil);
      try
        Query.DatabaseName := DepartureTable.DatabaseName;
        Query.SQL.Clear;
        Query.SQL.Add('Alter Table Departure');
        Query.SQL.Add('Add '+Str1+' Char(5)');
        Query.ExecSQL;
      finally
        Query.Free;
      end;
      DepartureTable.Active := True;
      DepartureTable.Open;
    end;
    Str1 := 'City'+DKStringGrid2.Cells[0, int1-1];
    DepartureTable.Locate('City', Str1, [] );
    DepartureTable.Edit;
    Str1 := 'Line'+DepartureTable.FieldByName('NumberOfDepartures').AsString;
    DepartureTable.FieldByName(Str1).Value := LineTable.RecordCount;
    DepartureTable.Post;
  end;
  //Arrival :
  For int1 := 2 to DKStringGrid2.RowCount - 1 do
  begin
    Str1 := 'City'+DKStringGrid2.Cells[0, int1-1];
    if ArrivalTable.Locate('City', Str1, [] ) = false then
    begin
      ArrivalTable.Append;
      ArrivalTable.FieldByName('City').Value := Str1;
      ArrivalTable.FieldByName('NumberOfArrivals').Value := 0;
      ArrivalTable.Post;
    end;
    Str1 := 'City'+DKStringGrid2.Cells[0, int1-1];
    ArrivalTable.Locate('City', Str1, [] );
    ArrivalTable.Edit;
    ArrivalTable.FieldByName('NumberOfArrivals').Value := ArrivalTable.FieldByName('NumberOfArrivals').Value + 1;
    ArrivalTable.Post;
    If ArrivalTable.FieldByName('NumberOfArrivals').AsVariant > ArrivalTable.FieldCount-2 then
    begin
      Str1 := 'Line'+IntToStr(ArrivalTable.FieldCount-1);
      ArrivalTable.Active := False;
      ArrivalTable.Close;
      Query := TQuery.Create(nil);
      try
        Query.DatabaseName := ArrivalTable.DatabaseName;
        Query.SQL.Clear;
        Query.SQL.Add('Alter Table Arrival');
        Query.SQL.Add('Add '+Str1+' Char(5)');
        Query.ExecSQL;
      finally
        Query.Free;
      end;
      ArrivalTable.Active := True;
      ArrivalTable.Open;
    end;
    Str1 := 'City'+DKStringGrid2.Cells[0, int1-1];
    ArrivalTable.Locate('City', Str1, [] );
    ArrivalTable.Edit;
    Str1 := 'Line'+ArrivalTable.FieldByName('NumberOfArrivals').AsString;
    ArrivalTable.FieldByName(Str1).Value := LineTable.RecordCount;
    ArrivalTable.Post;
  end;
  GenerateLineList;
end;

[hoika]

Hallo,

1. nehm den Update-Code raus und mache einen eigenen Menüpunkt "Datenbank-Update"
du kannst nicht sicherstellen, dass nicht jemand anders gerade die Tabelle aufhat
sie muss exclusive geöffnet werden (das macht die Query elber)

Das ist bei Paradox leider so.
Ich würde gerade wegen sowas (und den vielen anderen Features)
eh auf Firebird wechseln.
Du kannst (solltest aber nicht) die BDE auch mit Firebird benutzen.
Ich würde aber uib oder fibplus nehmen

2. Führe eine Datenbank-Nummer ein (Integer, einfach hochzählen)
dann kannst du dir unnötige DB-Updates sparen,
die schon erledigt sind

die DB-Nummer steht z.B. in einer eigenen Tabelle,
deren Daseinsberechtigung nur diese eine Zahl ist

3. Der Fehler hier ist, dass du auf jeden Fall ein DB-Update
machen willst, auch wenn die entsprechenden Felder schon drin sind.
Existiert das Feld schon, erzeugt alter table aber eine Fehlermeldung.

Du musst vorher prüfen, ob das Feld schon drin ist.
Ich mache das immer über eine Query mit
select * from table

und dann die geöffnet Query an folgende Funktion übergeben.

Delphi-Quellcode:

function FieldExists(theDataSet: TDataSet; const theFieldName: String): Boolean;
var
  iFieldIndex: Integer;
begin
  Result:= False;

  for iFieldIndex:=0 to theDataSet.FieldCount-1 do
  begin
    if CompareText(theDataSet.Fields[iFieldIndex].FieldName,theFieldName)=0 then
    begin
      Result:= True;
      Exit;
    end;
  end;
end;  { FieldExists }

4. Deine Feldnamen (1,2,3,viele...) weisen darauf hin, dass vielleicht du einen
Fehler in deinem DB-Design hast.
Solche Felder schreien geradezu nach einer eigenen Tabelle.

Heiko

[DavidKlimas]

Spalten einfügen ist nur für mich von nutzen beim Füllen der Datenbank und nicht für den späteren Benutzer. Im Anhang ist eine der Vier Datenbanken. Man sieht gut dass jedesmal, wenn die spalten nicht ausreichten, neue hinzugefügt wurden. Wegen dem "Fehler", die zeilen der datenbank müssen erweiterbar sein. Jede zeile hat "n" einträge, deren summe sich erst aus den anderen zeilen ergibt. Deswegen hat eine zeile nur 2 spalten, eine andere aber 50. Es ist als vereinfachte mehrdimensionale Datenbank gedacht.

[DavidKlimas]

Hier ist das 1.Projekt, dass nur dazu dient, die datenbanken, die beim HauptProject genutzt werden, zu füllen...

[hoika]

Hallo,

das kuck ich mri an, wenn ichmal viiiieeelll Zeit habe ;)
ja, denke aber daran, das Paradox(5) nur 255 Spalten pro Tabelle erlaubt
(bei der 7er weiss ich nicht).

Falls viele Spalten meistens leer sind, ist das Platzverschendung (naja, Pladde is gross),
aber vor allen nicht erweiterbar.

Ich hatte hier auch mal ne Tabelle für Rechte
Id, UserId,AccessRightNo1,AccessRightNo2,AccessRightNo 3

Nach 2 Jahren war Paradox "voll", also 255 Rechte erreicht.


Heiko

[mkinzler]

Schon mal überlegt:
-ne andere DBMS zu verwenden?
-die Struktur mal aufzuräumen?

[DavidKlimas]

Überlegt schon. Vor nicht mal zwei wochen hatte ich die gesamte datenbank noch als ini datei. Ich hab sämtliche anfänger-kurse durchforstet und Paradox war das was ich am ehesten verstand. Zur zeit ist das das einzige was ich kann also ein Umstieg auf andere DBMS würde ich sehr willkommen heissen aber die zeit ist noch zu früh. Ich schon gesagt, arbeite ich erst seit zwei wochen mit datenbanken. Erst wenn Paradox richtig läuft kann ich weitergehen...

[hoika]

Hallo,

falsch, jetzt baust du ein Programm mit TTable(?),
investierst einen Haufen Arbeit, den du u.U. später wegwerfen kannst#
(Bsp autoinc, was einige DB's nicht so unterstützen)

Falls du umsteigst, wirfst du die BDE wahrscheinlich auch weg.
(BDE ist deprecated, veraltet, wird nicht mehr gepflegt ...)

Du musst also den ganzen DB-Code umstellen
(bridge pattern hilft da vielleicht).

Ich habe den einen Teil (pdx -> interbase/firebird) schon hinter mir,
war nen Riesenaufwand (ok > 1 Mio. Zeilen Code)

Paradox hat ne Menge Problem im Netz (es sei denn, der Server ist Novell3.11 ...).

Such mal nach "index out of date", "blob has been modified"
das sind so die Standard-Fehler unter NTFS als Dateisystem.

Ein interessanter Link
http://www.ibphoenix.com/main.nfs?a=...&page=ibp_skip
oder http://www.ibphoenix.com/main.nfs?a=...e=ibp_document


Heiko

[DavidKlimas]

Also das scheint mir nicht besonders verstädlich...Zum beispiel das :

Delphi-Quellcode:

var
DPB_Buffer: array [0..255] of Char;
DPB_Index: Integer;
DBName_Cstr: array [0..255] of Char;

begin
{Initialise the buffer index and set the first character
value which is always the parameter buffer version number}
DPB_Index := 0;
DPB_Buffer[DPB_Index] := Char(isc_dpb_version1);
Inc(DPB_Index);

{Set the user name parameter identifier and copy the name 
from the user name edit field on the form}
DPB_Buffer[DPB_Index] := Char(isc_dpb_user_name);
Inc(DPB_Index);
DPB_Buffer[DPB_Index] := Char(Length(Edit_Username.Text));
Inc(DPB_Index);
StrPCopy(@DPB_Buffer[DPB_Index], Edit_Username.Text);
Inc(DPB_Index, Length(Edit_Username.Text));

{Set the password parameter identifier and copy the name 
from the password edit field on the form}
DPB_Buffer[DPB_Index] := Char(isc_dpb_password);
Inc(DPB_Index);
DPB_Buffer[DPB_Index] := Char(Length(Edit_Password.Text));
Inc(DPB_Index);
StrPCopy(@DPB_Buffer[DPB_Index], Edit_Password.Text);
Inc(DPB_Index, Length(Edit_Password.Text));

{Copy the database name from the edit field on the form to a
C-string style character array}
StrPCopy(DBName_Cstr, Edit_DBName.Text);

{Initialise the database handle to nil - mandatory}
db_handle := nil;

{Attach to the database}
isc_attach_database(@Status_Vector, Length(Edit_DBName.Text),
@DBName_Cstr, @db_handle, DPB_Index, DPB_Buffer);

{Check for errors…}

Gibts irgendwo einsteigrkurse (als Pdf) mit beispielen?

[hoika]

Hallo,

wo hast du den den Code her ?
Das ist quasi wie Assembler.
Für Interbase/Firebird gibt es z.B. uib, zeos, fibplus.
Gerade Zeos ist praktisch eine direkte "Kopie" zur Bde.

Allerdings gibt es dort (noch) kein hardcommit (nur softcommit, commit retaining)
Falls dir das nix sagt, nimm Zeos nicht.


Heiko

[DavidKlimas]

:wiejetzt:
Also ich glaube das ist mir noch zu kompliziert. De code hab ich von der seite http://www.ibphoenix.com/main.nfs?a=i ... 413:1070865&page=ibp_document

[hoika]

Halo,

klick die Links mal direkt an ohne zu koopieren.
Der 2. Link ist die "Startseite" der Dokumentation von ibphoenix.


Heiko