Tout a fait mon cher thierry.
ça marche.
Un très grand merci.
C'est sans problème que je vais creusé le sujet puisque je sait que ça
fonctionne.
J'avais juste besoin d'un exemple.
MERCI Thierry..... :-)
bon dimanche à tous.
JM
----- Original Message -----
From: "Thierry Nauze" <ohmi at orange dot fr>
To: "REALbasic NUG French" <realbasic-nug dot fr at lists dot realsoftware dot
com>
Sent: Saturday, September 15, 2007 6:46 PM
Subject: Re: Fichier Data
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
|