Discussion :

[saraenim]

Salut,
j'ai une petite application qui consiste à lire un fichier excel et l'extraire dans un BDD SQL. jusqu'a maintenant ça va l'unique probléme et que quand je compile le compilateur lit le fichier excel en étant un fichier .txt et non pas .xls

Merci

[Skalp]

quand je compile le compilateur lit le fichier excel en étant un fichier .txt et non pas .xls

Je ne comprend pas cette phrase, pourrais-tu nous montrer ton code ?

[saraenim]

voila mon code

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
18
19
20
21
22
23
24
25
26
27
28
29
30
public Class Extract

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        Dim b As Boolean = My.Computer.FileSystem.FileExists(TextBox2.Text)

        If b = False Then
            MsgBox("fichier excel non existant", MsgBoxStyle.Exclamation)
        End If

        If b = True Then
            MsgBox("fichier excel existant", MsgBoxStyle.Exclamation)
            Dim myLines() As String = File.ReadAllLines(TextBox2.Text)

            Dim SW As StreamWriter = File.CreateText("c:\MonFichier.xls")
            Dim Line As String
            FileOpen(1, TextBox2.Text, OpenMode.Input) ' Ouvre en lecture.
            While Not EOF(1) ' Boucler jusqu'à la fin du fichier

                Line = LineInput(1) ' Lire chaque ligne
                Try
                    '**********************************************************************************
                    'Chaîne de connexion
                    Dim MyConnexion As SqlConnection = New SqlConnection("Data Source=BNR-LAP-547707;Initial Catalog=Mon1;User ID=sa ; password = 21009324")
                    'Objet connection
                    Dim Mycommand As SqlCommand = MyConnexion.CreateCommand()
                    'Ouverture
                    MyConnexion.Open()

le probléme est dans la ligne coloré en rouge ( elle m'affiche les données excel converti en .txt)

[Skalp]

Oula
Qu'essaies-tu de faire avec ce bout de code ?

Si tu essaies de te connecter au fichier pour faire une requête SQL, tu as simplement à faire un truc du genre :

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
Dim cnx As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Classeur1.xls;Extended Properties=""Excel 8.0;HDR=No;IMEX=1"";")
Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM [Feuil1$]")
cmd.Connection = cnx
 
cnx.Open()
Dim reader As OleDbDataReader = cmd.ExecuteReader()
 
If (reader.HasRows) Then
    While (reader.Read())
        ' Ici, tu récupères tes valeurs. Exemple :
        Console.WriteLine(reader.GetString(0) & reader.GetString(1))
    End While
End If
 
reader.Close()
cnx.Close()

Dans la chaîne de connexion, tu mets le chemin de ton fichier Excel dans "Data Source".

Pour plus d'informations sur la chaîne de connexion, réfère-toi à ConnectionStrings.Com
Pour plus d'informations sur les requêtes sur un fichier Excel, réfère-toi à l'article : Lire et écrire dans les classeurs Excel fermés

[saraenim]

Merci le probléme est résolu ( mais il faut importer le bibléothéque du oldb )