Hej Hej Hej. TableGenerator hittar du på sidan http://www.torry.net/tools_codegen.htm. Vet inte om det är Access du jobbar med men på About.com finns flera hyffsade artiklar om Delphi och Access. Tackar för hjälpen, kommetr att ta lite tid innan jag kommit igenom allt detta. Hej igen >Fråga ??? finns det någon anledning att överhuvudtagetSkapa databaser
Ä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.
BGMSv: Skapa databaser
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
DSSv: Skapa databaser
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.
BGMSv: Skapa databaser
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.Sv: Skapa databaser
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.Sv: Skapa databaser
MVH
BGMSv: Skapa databaser
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
SvenSv: Skapa databaser
>implemntera Access i Delphi ?.
>Jag tror inte det "Vi klarar oss nog ändå"
Vad ville du ha sagt med detta?