Newsgroup: it.comp.lang.delphi
Titolo: creare un nuovo database

Salve, ho sviluppato una piccola applicazione che usa un database access.
Ho impostato anche il percorso archivi e l'aggancio al database.
Adesso mi chiedo: se dovessi creare il mio database vuoto magari per dare la
mia applicazione a qualcuno.
Vorrei darli il mio database vuoto come fare ?
Sapete darmi un consiglio.
Ci sono dei componenti che accelerano la procedura di creazione o aggancio
database?
-- 
Daniele Napoli
s_mu...@tin.it

Quando consegni l'applicazione devi inpacchettarla con Install
Shields(pacchetto fornito nello stesso disco che contiene qualsiasi versione
di Delphi). Qui definisci la dir della applicazione e la dir del programma.
Ciao
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 aggancio database?
Scusa la domanda stupida, eh, perň non potresti semplicemente
creare una routine che copia il tuo DB con un altro nome, vi
accede e cancella tutti i records?
Puň sembrare stupido, ma probabilmente č la soluzione in assoluto
meno complicata.
Ciao,
Andrea

Andrea
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

 bruciato solo 123 record nel testing :)
Mah, al limite puň "pensarci prima" e fare una copia del suo
database da tenere in disparte e distribuire.
Ciao,
Andrea

database da tenere in disparte e distribuire.
la penso anch'io cosě :)


)

 ha scritto nel messaggio
news:yyEHc.14074$tj3.6...@news3.tin.it...

Cosi puoi crearlo a runtime.
A)  Aggiungi i seguenti componenti al tuo delphi cosi:
*Reference ADOX type library*
*************************
1. Select Project | Import Type Library
2. Choose "Microsoft ADO Ext 2.x for DDL and Security
(Version 2.x)"
3a. Change "TTable" to "TADOXTable"
3b. Change "TColumn" to "TADOXColumn"
3c. Change "TIndex" to "TADOXIndex"
3d. Change "TCatalog" to "TADOXCatalog"
4. Press Install button (rebuilding packages)
5. Press OK once and Yes twice
6. File | Close All | Yes
B) Crei il tuo DB (file + tabella) Runtime cosi piazzando un TADOXCatalog
(crea DB) ed un ADOCOmmand (crea la tabell ) su di un form
ConnStr :=
    'Provider=Microsoft.Jet.OLEDB.4.0' +
    ';Data Source=' + Path + 'MioDB.mdb'+
    ';Jet OLEDB:Database Password=' + '';
   if not FileExists(Path +  'MioDB.mdb') then
    begin
     try
       Catalog1.Create1(ConnStr)
     except
       Application.MessageBox('(UDM) Errore creazione file
database.','Errore Critico!',16);
     end;
    end;
   Connection.ConnectionString := ConnStr;
   try
    Connection.Connected:=True;
   except
    Application.MessageBox('(UDM)  Errore di connessione al
database.','Errore Critico!',16);
    Exit;
   end;
   ADOCommand.Connection := Connection;
   if not TabEsiste('Logbook') then begin
    //Crea tabella voli -------------------------
    cs:='CREATE TABLE Logbook ('+
                               'IDREC COUNTER, DataAtt DATE, Attivita
TEXT(30), AttivitaVariata YESNO'+
                               ',Dep TEXT(3), Arr TEXT(3), SchDep TEXT(5),
SchArr TEXT(5), OffBlk TEXT(5), ONBlk TEXT(5),Model TEXT(20)'+
                               ',Registration TEXT(5), SPTse TEXT(5), SPTme
TEXT(5), MPT TEXT(5)'+
                               ',TotTimeFlt TEXT(5), NamePIC TEXT(100),
TOday YESNO, TOnite YESNO'+
                               ',LNDday YESNO, LNDnite YESNO, Nite Text(5),
IFR Text(5)'+
                               ',PIC TEXT(5), COP TEXT(5), Dual TEXT(5),
InstrEx TEXT(5)'+
                               ',SimType TEXT(15), SimTime TEXT(5), Remarks
TEXT (250)'+
                               ')';
    ADOCommand.CommandText := cs;
    ADOCommand.Execute;
    end;
C)"TabEsiste" e' una funzione che serve per controllare se una tabella e'
gia' esistente
function TabEsiste(mytablename : string) : boolean;
var SL : TStringList;
begin
  SL := TstringList.create;
  try
    DM.Connection.GetTableNames(SL, false);
    result:=SL.indexof(mytablename) >= 0;
  finally
     SL.free;
  end;
end;
Scusa per il pessimo copia ed incolla, ma ora non ho molto tempo...
Ciao
   Miyomo

database?
Piu' professionale ma per il tuo caso specifico e' un surplus, una procedurina
che azzeri il db da programma anziche' manualmente come quelle che ti hanno
suggerito.
Ciao
-- 
Morde. (
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/
Firefox, il miglior browser: 
http://www.gxware.org/mozilla/