Le portail francophone de la géomatique

benjamin.norrito · Mon 26 July 2010 17:05

Bonjour,

cela fait une journée que je galère à quelque chose que je sais simple...et pourtant ça coince!

j'aurais aimer avoir le code entier d'un "mb" qui permette juste de selectionner le fichier que l'on veut enregistrer puis d'avoir une commande qui permette de demander où l'enregistrer et avec quel nom (fonction FileSaveAsDlg). Autrement dit, j'aurais souhaiter avoir la même fonction que "enregistrer sous" lorsque plusieurs fichiers sont ouvert!

merci d'avance!

jean94 · Mon 26 July 2010 17:16

Bonjour

Code:

dim FilePathSpecs As string
dim FileDirectory As String
dim FileName As String
dim FilePath As String

FilePathSpecs = FileSaveAsDlg("C:\","","Tab","Save File") 'Change path after debugging
FileDirectory = PathToDirectory$(FilePathSpecs)
FileName = PathToFileName$(FilePathSpecs)
FilePath = FileDirectory + FileName

Commit table FileName As FilePath TYPE NATIVE Charset "WindowsLatin1" Interactive

Ceci?

JF

benjamin.norrito · Mon 26 July 2010 17:19

Ca y ressemble! je fais un test et je vous dit! en tout cas merci pour la rapidité de la reponse

benjamin.norrito · Mon 26 July 2010 17:25

non en fait c'est pas bon, je ne peux pas choisir le fichier que je souhaite enregistrer...

jean94 · Mon 26 July 2010 17:49

En fait il faut te créer un dialog avec un listbox....
Voici le code pour créer la liste de ton listbox

Code:

sub listbox_valeurs 

Dim strNumcols As string
dim i as smallint
dim a_list as string


for i =1 to NumTables( )

strNumcols = TableInfo(i, TAB_INFO_NAME)
a_list=a_list+strNumcols)+";"
i=i+1
next

a_list=left$(a_list, len(a_list)-1)
Alter Control 7 Title a_list ' 7 étant l'ID ton listbox

end sub

JF

benjamin.norrito · Mon 26 July 2010 18:01

hum...merci mais comme je suis debutant je sais pas trop ce que c'est une liste box...tu pourrais pas tout regrouper si c'est possible que je vois comme ça s'agremente ? merci:)

jean94 · Mon 26 July 2010 19:18

Veux-tu simplement enregistrer ta selection sous forme d'un save as ou il faut absolument la liste de toute les tables ouverte... car ceci pourrait faire l'affaire

dim FilePathSpecs As string
dim FileDirectory As String
dim FileName As String
dim FilePath As String

FilePathSpecs = FileSaveAsDlg("C:\",TaSelection,"Tab","Save File") ' Ajoute de ta sélection...select * from... into ' TaSelection
FileDirectory = PathToDirectory$(FilePathSpecs)
FileName = PathToFileName$(FilePathSpecs)
FilePath = FileDirectory + FileName

Commit table FileName As FilePath TYPE NATIVE Charset "WindowsLatin1" Interactive

benjamin.norrito · Tue 27 July 2010 08:26

je suis desolé mais ça ne marche toujours pas, il me met en message d'erreur "le resultat de l'expression n'est pas un nom de table ou de colonne".
Decidement je n'arrive vraiment pas à voir comment marche cette fonction...Lol! mais merci de m'aider

benjamin.norrito · Tue 27 July 2010 08:47

c'est bon j'ai compris!
en fait comme je voulais enregistrer une certaine table mais à l'endroit que je voulais il suffisait de faire :

commit table ZSRAdes as FileSaveASDLG ("G:\","","tab","OUVRIR TABLE")

en tout cas merci pour l'aide ça m'a quand même beaucoup aidé ( et je risque encore d'en avoir besoin!)

Communauté	Ressources	L'emploi	Le marché	L'association	Fils RSS
Forum Blogs Wiki Planet Sites amis	Agenda Biblio Fiches AMO-CNIG Paris PCGIS Téléchargements	Offres d'emploi Banque de CV Formations Démarche Métiers	Geo-Entreprises Geo-Communiqué Appels d'offres	L'association Qui sommes-nous ? Nous aider Bienfaiteurs Partenaires Historique Statuts	Tout le site Job Géomatique Services GeoBlogs ...	Faire un don Mentions légales

Le portail francophone de la géomatique

#1 Mon 26 July 2010 17:05

[mapbasic 9.5] selectionner et enregistrer table sous

#2 Mon 26 July 2010 17:16

Re: [mapbasic 9.5] selectionner et enregistrer table sous

Code:

#3 Mon 26 July 2010 17:19

Re: [mapbasic 9.5] selectionner et enregistrer table sous

#4 Mon 26 July 2010 17:25

Re: [mapbasic 9.5] selectionner et enregistrer table sous

#5 Mon 26 July 2010 17:49

Re: [mapbasic 9.5] selectionner et enregistrer table sous

Code:

#6 Mon 26 July 2010 18:01

Re: [mapbasic 9.5] selectionner et enregistrer table sous

#7 Mon 26 July 2010 19:18

Re: [mapbasic 9.5] selectionner et enregistrer table sous

#8 Tue 27 July 2010 08:26

Re: [mapbasic 9.5] selectionner et enregistrer table sous

#9 Tue 27 July 2010 08:47

Re: [mapbasic 9.5] selectionner et enregistrer table sous

Pied de page des forums