Code:
Globale
nomTable est un casier de texte valant "Tiers"
Colonnes est un casier de texte valant "Nom", "Prénom", "Adresse", "CodePostal", "Ville"
Valeur est un casier de texte valant "Chirac", "Jacques", "10,rue de la Montée", "75000", "Paris"
Table est un casier de casier valant {"Tiers"}, Colonnes, Valeur
SQL_Construction :
sql_Term est un texte valant "Insert Into "
parentOuv est un texte valant " ( "
parentFer est un texte valant " ) "
virgule est un texte valant ", "
chaine est un texte
taille est un nombre
nb est un nombre valant 0
début
efface tableau
mesure table{1} dans taille
chaine = sql_Term+Table{0,0}+parentOuv
tant que nb < taille, lis
chaine = chaine+table{1,nb}
nb = nb+1
si nb = taille, chaine = chaine+parentFer
sinon chaine = chaine+virgule
ferme
Chaine = Chaine+"VALUES"
chaine = chaine+parentOuv
nb = 0
tant que nb < taille, lis
chaine = chaine+table{2,nb}
nb = nb+1
si nb = taille, chaine = chaine+parentFer
sinon chaine = chaine+virgule
ferme
affiche chaine