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 :-(
|