Re: Spalten in Paradox Datenbank einfügen
Beim ausführen bekomm ich eine Fehlermeldung, die mir sagt 'Table is Busy'. Woran kann das liegen?
1000 Dank... |
Re: Spalten in Paradox Datenbank einfügen
Ok. Ich hab den Fehler schon gefunden. TableEigenschaft 'activ' war auf True...
|
Re: Spalten in Paradox Datenbank einfügen
Wie kann ich anstelle des Namens eine Variable einbinden nach folgendem prinzip :
Delphi-Quellcode:
?
SQL.Add('Add Name+IntToStr(i)+Char(30)');
|
Re: Spalten in Paradox Datenbank einfügen
Zitat:
Delphi-Quellcode:
Für i=1 würde damit das Feld Name1 angelegt und so weiter...
SQL.Add('Add Name'+IntToStr(i)+' Char(30)');
|
Re: Spalten in Paradox Datenbank einfügen
Danke für den Tip. Beim ausführen kommt jedoch die Fehlermeldung 'Invalid use of Keyword'.
|
Re: Spalten in Paradox Datenbank einfügen
Versuche mal:
Delphi-Quellcode:
s := 'Add Name'+IntToStr(i)+' Char(30)';
SQL.Add(s); |
Re: Spalten in Paradox Datenbank einfügen
Sorry, Mein Fehler. Funktioniert. Danke...
|
Re: Spalten in Paradox Datenbank einfügen
Hallo,
zeig mal den kompletten Code (alter table add). Heiko |
Re: Spalten in Paradox Datenbank einfügen
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; |
Re: Spalten in Paradox Datenbank einfügen
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:03 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz