none
Exporter les données d'une base Access vers fichier text RRS feed

  • Question

  • Bonjour,

    Je développe une application avec VB.Net qui possède une base de données locale Access. Je souhaite Copier les données de la table "LOCATAIRES" sur un fichier .txt a travers la boite de dialogue "Enregistrer sous".

    Voici le code j'ai actuelllement:

    Try
                Dim savefiledialog1 As New SaveFileDialog
                savefiledialog1.Filter = "Strafor Software Files|*.txt"
                savefiledialog1.Title = "Enregistrer sous"

                savefiledialog1.FilterIndex = 1

                If savefiledialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
                    Using sf As New System.IO.FileStream(savefiledialog1.FileName, IO.FileMode.Create)

                    End Using
                    Dim NomFichier As String = System.IO.Path.GetFileName(savefiledialog1.FileName)
                    Dim CheminAccesFichier As String = System.IO.Path.GetDirectoryName(savefiledialog1.FileName)
                    Dim con As New OleDb.OleDbConnection
                    con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=C:\Users\ROLAND KOFFI\Documents\Visual Studio 2010\Projects\WindowsApplication3_LOYERS\WindowsApplication3_LOYERS\GestionLoyers1.accdb"
                    con.Open()
                    Dim cmd As OleDb.OleDbCommand
                    cmd = New OleDb.OleDbCommand("SELECT * INTO [Text;DATABASE=" & CheminAccesFichier & ";HDR=No].[" & NomFichier & "] FROM [LOCATAIRES]", con)


                    cmd.ExecuteNonQuery()
                    con.Close()
                End If
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

    Lorsque j'exécute le code j'obtiens le message suivant: la table & NomFichier & existe déjà.

    Lorsque j'ouvre le fichier .txt crée, il ne contient aucune donnée.

    J'ai fais plusieurs recherches mais je n'arrive pas à trouver une solution à ce problème.

    Si quelqu'un peut m'aider cela me permettrait d'avancer dans mon programme.

    Merci d'avance!

    vendredi 13 décembre 2013 17:17

Réponses

Toutes les réponses