Annonce
#1 Tue 02 March 2004 10:46
- Cyrilhochard
- Invité
mapbasic, recuperation valeurs d'un champ
Bonjour,
je cherche a recuperer les valeurs d'un champs d'une table (ici des noms) pour les ecrire a la suite les uns des autres, separes par un ; dans une seule variable au format string mais j'en suis bien incapable!!! Auriez vous une solution???
Merci d'avance.
#2 Tue 02 March 2004 20:59
- Didier Rousset
- Invité
Re: mapbasic, recuperation valeurs d'un champ
Il faut faire une boucle du type « For … to … Next » pour chaque enregistrement de la table.
Tester un code comme suit.
Au final la variable « StrFinal » devrait contenir la chaine de caracteres.
Include mapbasic.def
declare sub main
dim StrFinal as string
dim NumEnregistrement as integer
dim i as smallint
sub main
'toto est le nom de la table ouverte et qui contient les nom
'NomCol est les nom du champ qui contient les valeurs
NumEnregistrement = Tableinfo(toto,TAB_INFO_NROWS)
Select * from toto
where rowid = 1
into temp01
StrFinal = toto.NomCol
For i = 2 to NumEnregistrement
Select * from toto
where rowid = i
into temp01
StrFinal = StrFinal + ; + toto.NomCol
next
#3 Tue 02 March 2004 21:00
- Dariuspol
- Invité
Re: mapbasic, recuperation valeurs d'un champ
exemple de code :
dim hello as string
hello =""
fetch first from ma_table
do while not eot (ma_table)
hello = hello + ma_table.ma_colonne + ";"
fetch next from ma_table
loop
et le tour est joue !!
bonne chance
