Problème app.path variable

Question

Bonjour,

Je suis d&#233;butant et connait peu vb6 et requ&#234;te SQL alors... soyez indulgent avec moi...

Voci mon probl&#232;me: incapable de me connecter... je crois...(attention je suis d&#233;butant et comprend peut-&#234;tre peu la chose) que mon probl&#232;me se situe au niveau de: MaVarDossierProjet = "" & Text25.Text

Quelqu'un peu m'aider... merci

voici mon code:

Private Sub Form_Load()
  Text25.Text = ""
End Sub


 


Private Sub Open_connbd1()
'     Set the Database Applicable Path
      DbFile = App.Path & MaVarSousDossier & CurDir & MaBase
      
 MaVarSousDossier = "\projets"
 MaVarDossierProjet = "" & Text25.Text
 MaBase = "\bd1.mdb"


 


'      Establish the Connection
       Set connbd1 = New ADODB.Connection
       connbd1.CursorLocation = adUseClient
       connbd1.ConnectionString = _
             "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source=" & DbFile & ";" & _
             "Persist Security Info=False"


 


'      Open the Connection
      connbd1.Open


 


'      Once this Connection is opened, it can
'      be used throughout the application


 


'******************************************************************************
'     The following line is the Master SQL Statement and
'     it is remarked out to show the actual SQL Statement Selected.
'     Simply switch the remark to the actual SQL Statement
'     to use the Master SQL Statement


 


'     SQLstmt = "SELECT * FROM [projet]"


 


      SQLstmt = "SELECT [Nodeprojet], [Nomprojet], [region], [DateCreation], [start], [end], [Projcl], [AdressCl], [TelCL], [FaxCl], [CourrielCL], [Proint], [AdressInt], [TelInt], [FaxInt], [CourrielInt], [TypFo], [8&#181;], [50&#181;], [625&#181;], [Splice], [Pigtail], [Connecteur], [850], [850IOR], [1300], [1300IOR], [1310], [1310IOR], [1550], [1550IOR] FROM [projet]"


 


'******************************************************************************
'      Get the Records
      Set rsprojet = New ADODB.Recordset
      rsprojet.Open SQLstmt, connbd1, adOpenStatic, adLockOptimistic, _
           adCmdText


 


End Sub

NHenry · Answer

Bonjour

Les Bases de donn&#233;es, g connai pas beaucoup.

Mais tu fais :     
  DbFile = App.Path & MaVarSousDossier & CurDir & MaBase
Avant d'initialiser 
 MaVarSousDossier = "\projets"
 MaVarDossierProjet = "" & Text25.Text
 MaBase = "\bd1.mdb"

Ensuite CurDir est o&#249;?

Ton Text25, controle sa valeur pour &#233;viter des chemin comprenant de caract&#232;re genre * / " et autre.

Sinc&#232;rement Renome tes controles, Text25 ce n'est pas explicite comme nom, met plutot par exemple TxtDossierBdd.

Et controle Le chemin avant de lancer la commande avec un dir$ par exemple

Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)
Une question se pose sur le forum, pas en priv&#233;
NHenry (VB6, VBA excel, VB.NET, C++, C#.Net)

jrivet · Answer

Salut,

On a tous ete debutant un jour (parfois je me demande meme si je le suis pas encore)
 est ce normal que tu remplisse dbFile et apres que tu modifies les variable MaVArSousdossir, et ....
   
En Faisant "DbFile = App.Path & MaVarSousDossier & CurDir & MaBase"

Cela veut dire que dans App.Path tu as un sous dossier MaVarSousDossier.

Mais en revanche il est inutile de mettre Curdir.
Car il est possible que curdir = app.path 

En fait ce qu il serait bon deja de verifier c est ma valeur de DbFile juste apres l'affectation

soit:

DbFile = App.Path & MaVarSousDossier & CurDir & MaBase
msgbox Dbfile

Si deja la, tu vois que ta valeur ne te plait pas, tu peux essayer de voir d ou vient ton erreur.

@+
Julien

Problème app.path variable

2 réponses

Discussions similaires