Skift Database

Jeg har tidligere lavet det (der hjemme - så jeg har ikke lige soucen ved hånden) ved hjælp af et DataModule som indeholde en TDataBase til formålet.

Er det forskellige database typer (paradox, Interbase, MS SQL, o.s.v.) du skal skifte mellem eller er det altid den samme ?

Hvis det f.eks. er paradox, og du i runtime vil skifte mellem et sæt tabeller der peges på af alias \"A1\" og et andet sæt tabeller der peges på af alias \"A2\", så er det nok at have f.eks en table, en datasource og en dbgrid på formen. ved at lade dbgrip bruge datasource1 og lade datasource1 bruge table1, kan du nøjes med følgende, hvis du forestiller dig at dbgrid1 viser indholdet af en tabel i Alias A1:

table1.close;
table1.database  := \'A2\';
table1.tablename := \'XXX.DB\'; // XXX skal selvfølgeligt være navnet på din tabel
table1.open;

Dermed skulle dbgrid1 vise indholdet af table XXX der er i alias A2.

Der er ingen grund til at ændre alias. Der er lettere at oprette 2 forskellige og så bare skifte mellem dem.

Ved i stedet at bruge en TDataBase i et DataModule så er der kun EET sted at ændre og det virker på hele applikationen

Jeg burde nok have uddybet mit spørgsmål. Brugeren har mulighed for at oprette forskellige databaser (runtime), som han kan arbejde i. Min plan var/er at oprette alias\'er til disse databaser i formcreate evt. ved at læse fra en bruger.ini fil eller lignende. Og så netop gøre som sjensen skriver. Hvor jeg mener det skal være (DataBaseName i stedet for database)

  Table1.close;
  Table1.DataBaseName:=\'A2\';
  Table1.TableName:=\'XXX.DB\';
  Table1.Open;

Men indtil jeg har set pellelil\'s løsning på \"skrift\" kan jeg ikke vurdere, hvem der skal have point.

Til pellelil
Kunne du evt. sende mig koden?
jacob.hansen@mail1.stofanet.dk

Jacob

Jeg skal kigge efter den når jeg kommer hjem

clavo> Jeg beklager at du ikke hørte fra mig i går aftes, men jeg havde travlt med andre gøremål. Jeg vil se om jeg ikke kan få kigget på det i aften

Clavo> Jeg har ledt, men tilsyneladende er mit program (hvor I jeg \"lavede det\") blevet slettet.

Måden jeg gjorde det på var (så vidt jeg husker) at jeg lavede et DataModule hvor I jeg placerede et TDataBase component. Det var således dette component der blev brug at de enkelte forms (som \"Usede\" dette datamodule). Tabeller og  querys på de enkelte forms brugte således denne TDatabase some property\'en \"database\" (i stedet for at bruge alias til databasen). Når du således i dit DataModule skifter database så har alle dine tabeller/querys fat i den med det samme (dog skal du muligvis åbne/lukke tabeller/querys før det virker - men dette kan nemt løses ved at lade dit DataModule sende en \"Meddelelse\" som \"fanges\" af dine forms).

Er dette ikke \"svar nok\" (til at du selv kan finde ud af resten) så giv pointene til Sjensen.

Pellelil> Tak for dine store anstrengelser. Det lyder rigtig fornuftigt. Jeg vil dog tillade mig at lade spørgsmålet stå åbent lidt endnu for at se om der kunne komme noget kode. Ellers skal du nok få dine point.

Det var da så lidt. Jeg havde håbet at jeg kunne finde source og det genere mig at jeg har lavet det men ikke længer har det / kan finde det. Dog genere det mig ikke nok til at jeg \"gider\" at lave det een gang til, \"bare\" for at demonstrere det :-)

Man skal altid huske at gemme sine \"kreationer\" :-)