Discussion :

[Ditch]

Bonjour à tous.

J'ai un petit souci en vba sous access... J'ai le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Set objDbEngine = CreateObject("DAO.DBEngine.36")
    Set objWsp = objDbEngine.Workspaces(0)
    Set objDb = objWsp.OpenDatabase(originPath, -1)
    For lngCpt = (objDb.TableDefs.Count - 1) To 0 Step -1
      Set objTblD = objDb.TableDefs(lngCpt)
      Debug.Print originPath + " " + filename + " " + tablename + ": " + objTblD.Name + " " + objTblD.Connect
      If (objTblD.Name = tablename) And (objTblD.Connect <> "") Then
        objTblD.Connect = "Text;DSN=TRP Link Specification;FMT=Fixed;HDR=NO;IMEX=2;CharacterSet=437;DATABASE=" + "E:\Working Folder\" 'filename
        objTblD.RefreshLink
      End If
      Set objTblD = Nothing
    Next lngCpt
    objDb.Close
    objWsp.Close
    Set objDb = Nothing
    Set objWsp = Nothing

Je voudrais donc mettre à jour un lien vers un fichier texte... Malheureusement il me dit qu'il ne connait pas

TRP Link Specification

snif snif.

J'ai vérifié c'est le nom qui est utilisé quand je crée la définition de la table...

Quelqu'un peut-il me mettre sur la voie de la réussite?

[mcdotta]

Peut-être une idée...


Peut-être qu'il n'aime pas les espaces ; as-tu essayé avec un nom sans espace ou avec _ ?

[cafeine]

voici un exemple de code d'attachement de table ...

je crois savoir que le problème est qu'en fait .Connect DAO est en lecture seule, peut être devrais tu récréer ces tables ...

http://warin.developpez.com/access/d...tie_3#L3.3.2.2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Function AddTable(ByVal srcTable As String, ByVal linkTable As String)
    Dim tblTable As DAO.TableDef
    Set tblTable = CurrentDb.CreateTableDef(linkTable)
 
    tblTable.Attributes = dbAttachSavePWD
    tblTable.SourceTableName = srcTable
    tblTable.Connect = "ODBC;DSN=Oracle 11i;UID=******;PWD=******;SERVER=PROD;DATABASE="
    CurrentDb.TableDefs.Append tblTable
 
    Set tblTable = Nothing
End Function

[Ditch]

Moi je souhaiterais faire le lien d'une table vers un fichier pas entre deux tables.

Pour le .Connect, il n'est pas en lecture seule apparemment...

Ceci fonctionne pour raffraichir tous les liens d'une base vers une autre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Set objDbEngine = CreateObject("DAO.DBEngine.36")
    Set objWsp = objDbEngine.Workspaces(0)
    Set objDb = objWsp.OpenDatabase(originPath, -1)
    For lngCpt = (objDb.TableDefs.Count - 1) To 0 Step -1
      Set objTblD = objDb.TableDefs(lngCpt)
      If (Left(objTblD.Name, 4) <> "Msys") And (objTblD.Connect <> "") Then
        objTblD.Connect = ";DATABASE=" & targetPath & ";UID="""";PWD="""""
        objTblD.RefreshLink
      End If
      Set objTblD = Nothing
    Next lngCpt
    objDb.Close
    objWsp.Close
    Set objDb = Nothing
    Set objWsp = Nothing

D'ailleurs, je suis en train de faire un "configurateur" que je mettrai en download sur dvp.

[Ditch]

Peut-être une idée...


Peut-être qu'il n'aime pas les espaces ; as-tu essayé avec un nom sans espace ou avec _ ?

Oui j'ai essayé de créer une définition qui s'appelle "test" mais rien n'y fait.

Au fait avant de modifier j'ai récupéré la valeur de .Connect et c'est cette meme valeur que je lui assigne (d'accord ca sert à rien mais il bloque sur le refreshlink donc le probleme n'est, à priori, pas là)