Le portail francophone de la géomatique

De: Luquet Florent
Bonjour,

Plusieurs solutions s'offrent a vous.

Solution 1. Si vous enregistrez toujours dans le meme dossier rien ne vous empeche de regarder l'ensemble des fichiers et d'extraire la derniere lettre (le numero dans votre cas) et de l'incrementer une fois recuperee.

Solution 2. La plus simple je pense. A chaque enregistrment, stocker la variable dans une table a la racine du prog (par exemple) ou fichier texte... puis la rappeller et l'incrementer.

Si quelqu'un voient d'autres solutions je suis preneur etant donne qu'a chaque ouverture et fermeture d'un mbx les variables en memoire sont reinitialisees (comme sous les autres langages d'ailleurs, il faut stocker en dur.)

Bon courage

dans les declaration le nom de champ c'est
dim nom_champ as alias

et peut-etre que ce serait plutot
ID = ID from BDphoto Where Rowid = tableinfo(BDphoto,TAB_INFO_NROWS) ??

De: maud
Bonjour,

merci beaucoup pour les infos que tout le monde m'a envoye,
j'ai encore un probleme
le programme se compile bien mais dans
Select ID from BDphoto Where Rowid = tableinfo(BDphoto,TAB_INFO_NROWS)

quand je lance le programme il me dit Variable ou champ BDphoto non defini j'ai essaye de mettre des guillemets, j'ai essaye de remplacer BDphoto par table pour voir et la il me dit que la table table n'est pas ouverte

j'ai essaye aussi de marquer l'extension par exemple BDphoto.mdb

mais la encore il me dit que le resultat de l'expression ne correspond pas a une table

je suis perplexe, je ne comprend pas pourquoi il ne reconnait pas la table BDphoto puisqu'elle est ouverte depuis le debut du programme et que je l'ai sollicitee dans d'autres parties du programme sans probleme

si vous avez une idee du pourquoi ca ne fonctionne pas je veux bien!

merci d'avance

maud

De: maud
Merci pour toute les reponses
j'ai trouve, il fallait faire
Sub localisation
Dim chemin as string
Dim ID As alias
Dim numrow as integer

numrow = tableinfo(BDphoto,TAB_INFO_NROWS)

chemin = "C:\Mes documents_Projet\realisationsMapbasic\mes productions\essaiphotos" + Str(numrow) + ".jpg"
Path_localisation = FileopenDlg( "C:" , ""," JPG" , "Localisation de la Photo" )
Save File Path_localisation As chemin
Update BDphoto set NOMphoto = chemin Where Rowid = tableinfo(BDphoto,TAB_INFO_NROWS)
Commit Table BDphoto

merci a tous