passage par valeur

[hoss]

Salut à tous,
J'ai écrit un petit module pour pouvoir se connecter à une base de données .dbf
Mon code marche si on met le nom de la base de données directement ds le code.
J'ai alors essayé d'utiliser des Msg Box pourque ce soit l'utilisateur qui renseigne le nom et le chemin de la base et là j'ai beau essayé mais ça ne veut toujours pas marché....
si vous pouvez m'aider, ce serait trop cooooool
Merci bcp
Voici mon code
*********
Dim oRs, As ADODB.Recordset
Dim objetConnexion As ADODB.Connection
Msg = "Veuillez entrer le chemin de la base !"
Title = "VARIABLE"
chemin = InputBox(Msg, Title, Default)
Msg2 = "Veuillez entrer le nom de la base !"
Title2 = "VARIABLE"
nom = InputBox(Msg2, Title2, Default)

Set objetConnexion = New ADODB.Connection
objetConnexion.Open "Driver=Microsoft Visual Foxpro Driver;SourceDB=" + chemin + ";SourceType=DBF;"

Set oRs = objetConnexion.Execute("SELECT * FROM nom")
*******************
nom, c'est le nom que l'utilisateur doit entrer pour le nom de la base et je voudrais que la requete SQL soit faite avec ce que l'utilisateur a mis et nom pas avec la chaîne de caractère nom....

 

[hoss]

J'espère que vous avez compris mon problème...
ça me bloque vachement..
Merci de votre compréhension.
ciao
hoss

 

[Michel_M]

Salut Hoss,

Je suis loin d'être pointu en SQL donc...

mais peut-être que:

nom est une variable (input box)
donc il faudrait écrire:

("SELECT * FROM" & (nom) &"")

Voilà, en espérant que je n'ai pas écris une c...

Bonne soirée (tiens moi au courant)
Michel

 

[hoss]

Merci bcp..
J'ai en effet trouver mon erreur hier
ilfaut écrire ceci : "Select * From" &nom
voilà, c'est tout..