Le 15 sept. 07 à 19:33, Jean-Marie Dubasik a écrit :
Puis-je me permettre ?
"Prends 5 minutes pour voir l'exemple donné et crée une base par
programmation. C'est très simple."
Ou ?
Très simple !
Valable pour la version standard ?
Teste ça :
1 : Ouvre un nouveau projet.
2 : Ajoute un module contenant cette proriété :
zeBase as REALSQLDatabase
3 : et cette méthode :
Sub zeBaseCREE(nom as string)
dim fichierBase as folderItem
dim cestOK as boolean
fichierBase=desktopFolder.child(nom+".rsd")
if fichierBase.exists then fichierBase.delete
' Création de l'objet BASE et Association de la base au fichier
zeBase= new REALSQLDatabase
zeBase.DatabaseFile=fichierBase
CestOK = zeBase.CreateDatabaseFile
if CestOK then
' Création des tables
zeBase.SQLExecute("CREATE TABLE individus (id integer unique not
null, prenom varchar default '', nom varchar default '', sexe varchar
default '') ")
' ETC ...
else
MsgBox "Création impossible"
QUIT
end
' pas d'EXCEPTION s'il y a un risque de QUITter !
End Sub
4 : Dans l'évènement OPEN de la fenêtre place ce code :
zeBaseCREE("test")
5 : Lance l'appli et normalement tu as sur le bureau le base test.rsd.
Tu sauras alors si ça marche en version standard.
--
Thierry NAUZE Saint-Denis de la Réunion
|