COMBINAISON DE FONCTIONS POUR RESOUDRES LES EQUATIONS MATHEMATIQUES
cs_CanisLupus
Messages postés
3757
Date d'inscription
mardi 23 septembre 2003
Statut
Membre
Dernière intervention
13 mars 2006
-
11 avril 2004 à 19:22
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 11 avril 2004 à 22:55
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 11 avril 2004 à 22:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/21840-combinaison-de-fonctions-pour-resoudres-les-equations-mathematiques
https://codes-sources.commentcamarche.net/source/21840-combinaison-de-fonctions-pour-resoudres-les-equations-mathematiques
11 avril 2004 à 22:55
Enfin, précise que ça ne sert que pour calculer des expressions de la forme (a+b)^2
11 avril 2004 à 19:22
va donc voir le code de Olilefou (qui n'est pas si fou que ça !!!) :
http://www.vbfrance.com/code.aspx?ID=2869
Un petit extrait ( le plus important) :
Tu crées un fichier texte (ds cet ex truc.dat) avec le notepad. Tu tapes ce que tu veux entre guillemets (genre "toto") puis tu tapes 2 fois sur Entrée et tu enregistres.
Dans ton form tu mets 2 textbox (text1 et text2).
Dans ton code tu mets :
Dim db As Database
Dim rs As Recordset
Set db = OpenDatabase(App.Path, False, True, "Text;")
Set rs = db.OpenRecordset("SELECT " & Text1.Text & " FROM truc.dat")
Text2.Text = rs(0)
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Dans text1 tu mets ta formule et tu récupères le résultat dans text2.
Remarque, si tu utilises déjà une base de donnée, pas la peine de créer un fichier texte et de mettre tout ça dans le code, juste :
Set rs = db.OpenRecordset("SELECT " & Text1.Text & " FROM UneTableAuHasard")
Text2.Text = rs(0)
suffit, c'est l'interpréteur SQL qui fait tout.
Cordialement