Discussion :

[Hoegaarden]

Bonjour a tous j'espere que vous avez passé un bon Week End
J explique mon pb :
J'aimerais importer via VB.NET un fichier texte dans access c'est à dire que via un click sur un bouton VB.NET importe le fichier texte dans access comme si on l avait fait directement en etant sous access
1- Je sais pas si c'est possible
2- Si c'est possible je sais pas du tout comment faire
Merci
+++
Répondez pour me dire si vous pensez que c'est possible au moins

[Piotrek]

Oui c'est possible et de differentes manieres:

Tu cree une macro d'imporation du fichier texte dans access (methode TransferText() ) et tu la lance depuis vb.net
+ facile et leger
- pas trop de possibilites d'agir sur les donnees du txt

Tu cree une requete SELECT INTO ou INSERT INTO pour passer les donnees du fichier texte dans une table et tu la lance depuis vb.net
- jamais essaye
- ca doit etre plutot rigide (position des colonnes, champs..)

Tu cree une connection ODBC/texte vers le fichier texte et une autre vers la base access et tu fais le transfert de donnees
+ controle total sur les donnees du .txt
- faut coder un peu plus

[Hoegaarden]

Ok merci je vais tenter tes propositions et je te tiens au courrant de l'évolution

[Hoegaarden]

Juste au passage comment j'appelle une macro que je crée sous Access dans VB.NET

[Piotrek]

Trouve sur un forum:

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
17
 
Private Sub RunMacro(ByVal sMacro As String)
        Dim oAccess As Object
 
        oAccess = CreateObject("Access.Application")
        ' Open the database
        oAccess.OpenCurrentDatabase(fsDBName)
        Try
            oAccess.DoCmd.RunMAcro(sMacro)
            oAccess.DoCmd.Maximize()
            oAccess.Visible = True
        Catch e As Exception
            MsgBox("Macro is cancelled or does not exist")
        Finally
            oAccess = Nothing
        End Try
    End Sub

[Hoegaarden]

merci grace a toi j'ai reussi a obtenir ce que je voulais
je mets le code pour ceux que ca interesse :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
    Dim Import As Object
    Dim Macro As String
    On Error Resume Next
    'Permet d'importer le fichier texte dans la base de données
    Import = CreateObject("Access.Application")
    Import.OpenCurrentDatabase(Chemin_BDD)
    Macro =   Import.DoCmd.TransferTextAccess.AcTextTransferType.acImportDelim, , Nom_Table, Chemin_txt, -1)
    Import.DoCmd.RunMAcro(Macro)
    Import.CloseCurrentDatabase()