Database vapros
2 отговора
89 прегледа
Database vapros
Zdraveite.Vaprosa mi e sledniq.
Imam forma s Button1 imam i SaveDialog1.
Kak moga da sazdam .db file s 2 kulonki. I da go seifam s kakvoto si iskam ime.I taka da sazdavam bezbroi mnogo db s po 2 kulonki.
Imam forma s Button1 imam i SaveDialog1.
Kak moga da sazdam .db file s 2 kulonki. I da go seifam s kakvoto si iskam ime.I taka da sazdavam bezbroi mnogo db s po 2 kulonki.
Re: Database vapros
Imam primerno 1.db sas 2 kuloni v neq.
Primerno "a" ot memo i "b" ot Alpha.
Iskam po vreme na izpalnenie na programata da moga da seifam fail sas sashtite harakteristiki samo che s drugo ime.
Primerno "a" ot memo i "b" ot Alpha.
Iskam po vreme na izpalnenie na programata da moga da seifam fail sas sashtite harakteristiki samo che s drugo ime.
Re: Database vapros
От това което си се опитал да опишеш
разбирам, че имаш някаква Paradox-а табличка и искаш да можеш да си създаваш нови празни такива по време на изпълнението на програмата, така ли?
Ако е така трябва да направиш следното. Плясваш си на формичката едно TTable, описваш му филдовете и индексите, които искаш да има таблицата ти, за DatabaseName му слагаш директорията, където искаш да се създаде таблицата и за TableName му пишеш името на файла (с .db отзад за всеки случай) и викаш метода CreateTable. SaveDialog-а може да ти послужи тука единствено потребителя да може да си избере директория и име на таблицата:
if SaveDialog1.Execute then
begin
Table1.DatabaseName := ExtractFilePath(SaveDialog1.FileName);
Table1.Table := ExtractFileName(SaveDialog1.FileName);
Table1.CreateTable;
end;
или нещо такова...
Ако е така трябва да направиш следното. Плясваш си на формичката едно TTable, описваш му филдовете и индексите, които искаш да има таблицата ти, за DatabaseName му слагаш директорията, където искаш да се създаде таблицата и за TableName му пишеш името на файла (с .db отзад за всеки случай) и викаш метода CreateTable. SaveDialog-а може да ти послужи тука единствено потребителя да може да си избере директория и име на таблицата:
if SaveDialog1.Execute then
begin
Table1.DatabaseName := ExtractFilePath(SaveDialog1.FileName);
Table1.Table := ExtractFileName(SaveDialog1.FileName);
Table1.CreateTable;
end;
или нещо такова...