Hej

Är det någon som vet var man kan hitta ett ex. på ett program som skapar en databas med olika tabeller och uppslagstabeller och innebördes relationer med varandra.

Ev skall formulären ochså skapas när jag begär nya tabeller.

BGM

Hej
Ok BGM , jag skall lägga upp ett exempel på min första Db
i Delphi. Delphi har ett stort fel i DataBas hantering.
Det är kvalificerat "bullshit" angående Alias i DataDesktop.

Förstår inte varför dom envisas med denna knäppa lösning.
Men fö så är Delphi kanonbra. "By the way" är det någon som
lyckats implementera Access97 i ett Delphi projekt ?

Så om du stöter på att tillverka Alias så skippa detta,helsjukt.

mvh
Sven
Skickar min första databas.zip till dig om en stund
DS

Hej.

Tack för Ditt brev, men jag har inte haft något problem med Databas hanteringen med Alias.

I programmet Du sände mig saknas "Min_Db.res" filen vilket gör att att det är lite problem.

Men min fråga var lite mer än så, hur gör jag för att skapa en ny tabell/er i programkod. Och hur får jag kopplat dessa tabeller med varandra och köra dessa från ett formulär.

Kopplingen mellan tabellerna och ett nytt "alias" till formuläret undrar jag över.

Obegripligt! Vad jag vill göra är att skapa ett nytt okänt kundnummer där varje kundnummer har sina egna tabeller då jag inte kan blanda med de övriga.

Skriv om Ni inte begriper.

BGM

TableGenerator hittar du på sidan http://www.torry.net/tools_codegen.htm.
Verktyget skapar kod från en befintlig tabell som du kan infoga i ditt program för att skapa tabeller i runtime. Det finns säkert fler verktyg av denna typ.

Ett exempel på lite kod:
unit ;

interface

uses sysUtils, BDE, DB, DBTables;

procedure CreateTableStructs(const DstAliasOrDir : PChar);
procedure BuildTables(AliasOrDir: string);

var
DataBase1 : TDatabase;
Detail : tTable;
Master : tTable;

implementation

procedure CreateTableStructs(const DstAliasOrDir : PChar);
begin
Detail := tTable.create(nil);
Master := tTable.create(nil);
DataBase1 := TDatabase.create(nil);
DataBase1.Name := 'DB1';
DataBase1.DataBaseName := 'DataBase';
DataBase1.DriverName := 'STANDARD';
DataBase1.Connected := TRUE;
DataBase1.Directory := DstAliasOrDir;
Detail.DatabaseName := DataBase1.DataBaseName;
Master.DatabaseName := DataBase1.DataBaseName;

BuildTables(DstAliasOrDir);

DataBase1.free;
Detail.free;
Master.Free;
end;


Procedure BuildTables(AliasOrDir: string);
var Table: tTable; {Uses Delphi units DB and DBTables.}
begin {Code generated 05-07-2002 08:36}
Table := tTable.Create(nil);
With Table do
Try{Finally}
DatabaseName := AliasOrDir;
{ Code to create table animals.dbf.}
IndexDefs.Clear;
FieldDefs.Clear;
TableType := ttDefault;
TableName := 'animals.dbf';
With FieldDefs do
begin
Add('NAME',ftString,10,false);
Add('SIZE',ftSmallint,0,false);
Add('WEIGHT',ftSmallint,0,false);
Add('AREA',ftString,20,false);
Add('BMP',ftTypedBinary,1,false);
end{with FieldDefs};
With IndexDefs do
begin
Add('NAME','NAME',[]);
end{with IndexDefs.Items[i]};
CreateTable;
Finally
Table.Free;
End{Finally};
end {BuildTables};
end.

Vet inte om det är Access du jobbar med men på About.com finns flera hyffsade artiklar om Delphi och Access.
Du kan ju ta en titt på dennna som kanske delvis löser ditt problem.
http://delphi.about.com/library/weekly/aa072401a.htm?terms=access

Tror även att Sven kan hitta nåt nyttigt på About.com ang Access och Delphi.

Tackar för hjälpen, kommetr att ta lite tid innan jag kommit igenom allt detta.

MVH

BGM

Hej igen

Tack för ditt svar anonyme PB

Fråga ??? finns det någon anledning att överhuvudtaget
implemntera Access i Delphi ?.
Jag tror inte det "Vi klarar oss nog ändå"

mvh
Sven

>Fråga ??? finns det någon anledning att överhuvudtaget
>implemntera Access i Delphi ?.
>Jag tror inte det "Vi klarar oss nog ändå"

Vad ville du ha sagt med detta?