Laissez tomber, j'ai trouvé... j'avais oublié le .... db.connect !!
Par contre je ne comprends pas pourquoi après le db.sqlexecute j'avais
db.error qui ne me renvoyais pas d'erreur ??
Le 16/06/07, Pascal PLUCHON <pascal dot pluchon at gmail dot com> a écrit :
Je n'arrive pas à modifier la structure de ma base REALSQLDatabase pour
ajouter une colonne....
J'ai essayé de plusieurs façons, mais rien n'y fait, la colonne n'est pas
ajoutée !!
Voilà à peu près le code que j'ai utilisé (j'ai fait pleins de manip sans
résultat)
dim msg_erreur as string
dim db as REALSQLDatabase
dim f as FolderItem
f = GetFolderItem( App.gDBFileName )
if f<>nil then
db= New REALSQLdatabase
db.databaseFile=f
db.SQLExecute( "alter table nom_table add column Reference varchar" )
if db.Error then
MsgBox db.ErrorMessage
else
MsgBox "Mise à jour de la table effectuee"
end if
db.Commit
db.Close
end if
J'ai essayé d'exécuter directement "alter table nom_table add column
Reference varchar" en utilisant le programme SQLite Database Browser et
l'execution ajoute bien le champs, mais rien à faire depuis REALBasic :-(
|