Je ferai plusieurs commentaires.

1) Il n'y a aucune gestion des erreurs qu'elles soient de connexion ou d'éxécution de requête
2) Les paramètres de connexion devraient être passés à la fonction de connexion => cas de plusieurs utilisateurs ou de serveurs.
3) Tu fermes la connexion après chaque requete. Là se pose un problème => Si tu as plusieurs requêtes dans laps de temps très court , ton programme va être obligé de se reconnecter à chaque fois.Ce problème ne fera pas trop sentir si le serveur Mysql est en local, par contre via un accès réseau local et pire via internet ou VPN, les temps de réponse de ton programme vont s'écrouler à la vitesse Grand V.
4) Tu as limité arbitrairement le nombre de ligne retournée à 500. Il vaudrait mieux connaître en retour le nombre d'enregistrements retournés

Bref , il y a encore un peu de boulot...

Bonne continuation...

Sur le fond tu as raison. La mise en forme ne concerne que la partie finale, les deux instructions Replace qui évitent une succession de test durant la décomposition.

Cordialement...

Béru

Zut, j'ai raté mon copier-coller.

J'espère que ce sera plus clair

En effet "initié" est sans doute un peu fort.
En fait j'ai déposé ce code pour sa méthode.
Je reprend un exemple :

212346523

Je vais le décomposer comme suit

1) (212 * 10^6) + (346 * 10^3) + (5*100) + ((2*10) + 3)
2) ((2 *100) + 12) * 10^6 + ((3*100) + 46 ) * 10^3 + (5*100) + (2*10) +3
3) ((2 *100) + 12 ) * 10^6 +  ((3*100) + ((4 *10) + 6 ) ) * 10^3 + (5*100) +  (2*10) +3
4)  deux cent douze millions trois cent  quarante   six    mille  cinq cent  vingt  trois

Vous  noterez que vous  pouvez lire le chiffre.

Au premier passage dans la fonction décompose
je teste le chiffre par rapport au valeurs milliard,millier,centaine,etc...

Prenons le cas ci-dessus. 212346523

Par récursivité, les appels se feront de cette manière

Decompose(212346523)  =>  < 1 milliard et > 1 million , je divise par 1 million
     Decompose(212)   =>  chaine = deux cent
Decompose(12)  ==>  chaine = deux cent douze

J’ajoute «million(s) »  et je reprend le reste

Decompose(346523)  < 1000000 et > 1000 , je divise par mille
    Decompose(346)   =>  chaine = deux cent douze millions trois cent
           Decompose(46)   =>  chaine = deux cent douze millions trois cent quarante six

J’ajoute «mille »  et je reprend le reste

Decompose(523)  chaine = deux cent douze millions trois cent mille cinq cent
    Decompose(23)   =>  chaine = deux cent douze trois cent mille cinq cent vingt-trois



Ensuite, il reste la mise forme...

J'ai utilisé la structure if..then  parce qu'il y des cas particuliers pour tester la grandeur du chiffre à décomposer et parce que je n'en vois pas d'autre. Cependant je suis preneur de toute autre solution.

Après un survol rapide, c'est un bon début.

Quelques conseils :

Il faut contrôler la saisie . Il ne doit pas etre possible de valider une ligne de facture sans que la quantité soit validée. D'autre part, on peut saisir des lettres dans champ qté. C'est un pb que l'on peut regler facilement.

Je vais laisser une procédure sur le site pour la saisie de nombre.


Autre pb , le chemin de la base est codé en dur... à oublier ...
utilises soit un app.path ou enregistre le chemin dans un fichier ini ou encore dans la base de registre.

Concernant crystal report , il te faut indiquer le chemin de la base.

Utilises la propriété  .DataFiles(0) du contrôle RPT.

Voilà, voilà, sinon c'est pas mal.

.... où comment bouziller le bouton gauche d'une souris en 10 mn ... Bien ... je mets 9/10

Bah , y'a encore du boulot...j'ai pas tout compris....
Un détail : NE JAMAIS CODER en dur les chemins d'accès des fichiers utilisés par le PRG. Uitlises App.path pour les fichiers se trouvant dans le dossier d'éxécution du programme.

Salut,

C'est vrai que j'aurai pu en dire plus....

fonction chr()
Renvoie une valeur de type String contenant le caractère associé au code de caractère indiqué.

34 , c'est le code de ".

Tu evites ainsi les combinaison comme "'" ou autre double quote....

ansi source=select * from famille where nom="L'arbre"

j'espère avoir répondu à ta question.

+simple
ex : Requete selection

Dim Source as string

chaine="L'arbre"

source=" Select * from toto where name ="+chr(34)+chaine+chr(34)