Indsætte et ekstra field i en Paradox tabel i runtime

Du kan bruge SQL:
ALTER TABLE "employee.dbf" ADD BUILDING_NO SMALLINT
-----------------------

Her er mere tekst fra hjælpen:
Local SQL supports the following subset of the ANSI-standard ALTER TABLE statement. You can add new columns to an existing table using this ALTER TABLE syntax:

ALTER TABLE table ADD column_name data_type [, ADD column_name data_type ...]

For example, the following statement adds a column to a dBASE table:

ALTER TABLE "employee.dbf" ADD BUILDING_NO SMALLINT

You can delete existing columns from a table using the following ALTER TABLE syntax:

ALTER TABLE table DROP column_name [, DROP column_name ...]

For example, the next statement drops two columns from a Paradox table:

ALTER TABLE "employee.db" DROP LAST_NAME, DROP FIRST_NAME

ADD and DROP operations can be combined in a single statement. For example, the following statement drops two columns and adds one:

ALTER TABLE "employee.dbf" DROP LAST_NAME, DROP FIRST_NAME, ADD FULL_NAME CHAR[30]

Lige et godt tip, brug en anden db end Paradox, den er forældet og bliver ikke vedligeholdt, du kan bruge ADO / Firebird / eller MyDB :)

... og skip brugen af TTable-nedarvinger. De er meget tunge at åbne da de flytter al data, struktur og sekundære indekser over, mens en TQuery-nearving kun henter det man har brug for.

En mellemvej der ligner TTable men er TQuery er at sætte RequestLive = true;

En endnu bedre løsning er at bruge TClientDataSet som helt ligner TTable, men arbejder med SQL-queries i baggrunden. Endelig bliver opdateringer af datasættet ikke skrevet til databasen før man laver en ApplyUpdates.

Hvordan ser syntaxen ud?

ALTER TABLE "employee.dbf" ADD BUILDING_NO SMALLINT
ALTER TABLE "Blok.db" ADD SlagsNr INTEGER;

De to der æder den i hvert fald ikke.

Hvilken fejl får du?

Jeg har lige forsøgt på en paradox tabel og det virker fint.

Query1.SQL.Text:='ALTER TABLE "MedlemsKartotek.db" ADD SlagsNr INTEGER';
Query1.ExecSQL;

Hvor kommer Query1 fra?
Jeg forsøgte at lægge en TADOQuery på min form og kalde den 'Query1'.
Så ville den godt compilere, men da jeg startede programmet fik jeg en Application error.
'Exception EOleSysError in module Radio.exe at 000710F9.
Colnitialize er ikke blevet kaldt.'.

Nu nævnte du ikke at du bruge ADO komponenter, desværre kender jeg intet til ADO komponenter.
Men hvad sker der hvis du kalder:
CoInitialize(nil);

lige inden du kalder:
ADOConnection1.Open();

Jeg tror vi snakker to forskellige sprog.
Jeg har aldrig snakket om at jeg bruger ADO komponenter.
Jeg har aldrig brugt SQL før.
Du kom med en SQL sætning som kunne tilføje et felt til en tabel. Jeg spurgte om syntaksen, som du så kom med.
Jeg undrede mig over hvor 'Query1' kommer fra.
Det eneste jeg kunne finde som mindede lidt om en Query var ovennævnte TADOQuery.
Lige nu ved jeg mindre en da jeg stillede spørgsmålet.

ok, så skal jeg lige høre hvad du benytter til at forbinde til dine paradox tabeller?
Bruger du BDE?
Bruger du TTable?

Bruger du TADOQuery skal den forbindes til database-tabellerne vha. en ConnectionString (der er en ...-knap i "Object Inspectoren" der kan hjælpe dig med det). Men det er det forkerte sted at lave forbindelsen. Det bliver lettere at forbinde vha. TADOConnection som du forbinder din TADOQuery til.

TADOConnectionen skal naturligvis åbnes før du kan bruge TADOQuery.

Jeg bruger BDE
Normalt tilgår jeg mine tabeller sådan her:
Tabel1.DataSet.Open;
Tabel1.DataSet.First;
Str1 := Tabel1.DataSet.FieldByName('Slags').AsString;
Tabel1.DataSet.Close;

Det jeg har brug for et et ekstra felt, så jeg kan skrive:
Vaerdi := Tabel1.DataSet.FieldByName('Nummer').AsInteger;

Derfor skal der tilføjes et ekstra felt til tabellen.
Da programmet kører flere steder, skal der laves en opdatering som kan tilføje dette felt i runtime, og konvertere nogle data som skal gemmes deri. Derefter skal der laves en opdatering som udnytter disse ekstra data.

På samme fane som du har din TTable findes der en TQuery og det er den du skal bruge.

Hej Kroning drop et svar så du kan få dine point.
Du hjalp mig godt på vej, du glemte dog at skrive at tabellen skal være lukket imens.

      Global.Blok.DataSet.Close;
      Query1.SQL.Text:='ALTER TABLE "Blok.db" ADD SlagsNr INTEGER';
      Query1.ExecSQL;
      Global.Blok.DataSet.Open;

Det her det virkede.

ok