Discussion :

[marsouin_89]

Bonjour à tous,

Je cherche désespérement à importer un fichier *.dbf dans une form.
Toutefois, malgré toutes mes recherches, entre le GridView, le DataGrid, le DataGridView etc., je me perds complètement.

Donc, ma question est des plus simple :
Comment faire pour importer un fichier DBF et surtout quel type de contrôle dois-je utiliser ?

Cordialement

Christophe

[tomlev]

DataGridView ça me semble pas mal...

Tu ouvres une connexion à la base de données, tu charges les données dans un DataTable, et tu mets la DataTable comme DataSource du DataGridView

[marsouin_89]

Bonjour Tomlev,

Tout d'abord, merci de me répondre un dimanche, c'est vraiment sympa.
Donc, me voilà guidé pour le Datagridview mais quels sont les paramètres à appliquer pour sa mise en forme (j'ai oublié un détail, je débute en vb.net).

J'ai donc simplement mis mon DatGridView sur ma form.
J'ai ensuite créé 2 champs : TextBox1 (chemin du répertoire) et TextBox2 (nom du fichier sans extension).
Ces champs sont remplis grace à un OpenFileDialog.
Et voici mon code qui ne fonctionne pas :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim cnn As New System.Data.OleDb.OleDbConnection
        Dim da As New System.Data.OleDb.OleDbDataAdapter
        Dim TheDataSet As New DataSet
        cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Me.TextBox1.Text & ";Extended Properties=dBASE IV;User ID=Admin;Password="
        Try
            cnn.Open()
            da.SelectCommand = New System.Data.OleDb.OleDbCommand("select * from " & Me.TextBox2.Text, cnn)
            da.Fill(TheDataSet)
            'MsgBox(TheDataSet.Tables(0).Rows.Count)
            DataGridView1.DataSource = TheDataSet
            DataGridView1.Refresh()
        Catch ex As Exception
            MsgBox("Erreur de connection à la Database." & vbNewLine & ex.Message)
        End Try

Je n'ai pas de bug mais rien ne s'affiche dans le dataGridView.

Merci de tes conseils

Cordialement

Christophe

[tomlev]

Comme DataSource, il faut mettre soit la DataTable (TheDataSet.Tables("NomDeLaTable")), soit le DataSet mais en précisant le nom de la table dans DataMember. Sinon le DataGridView ne sait pas quelle table afficher

[Geo2A]

Bonjour,

Pour info certain DBF (particulièrement ceux du format Shape d'ESRI, et là il n'y a qu'une table) ne ce lisent pas avec cette chaine de connexion mais comme suit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Imports System.Data.OleDb
Dim cs As String = "Provider=vfpoledb;Data Source=" & mChemin & ";Collating Sequence=machine;"
        Dim cnn As New OleDbConnection(cs)
        cnn.Open()
        Dim s As String = "SELECT * FROM " & mNom & ";"
        Dim cmd As New OleDbCommand(s, cnn)
        Dim da As New OleDbDataAdapter(cmd)
        Dim ds As New DataSet
        da.Fill(ds)
        Dim ta As DataTable
        ta = ds.Tables(0)
        mGeoDataListe = New GEO_DataListe(ta)
        cnn.Close()

[marsouin_89]

Bonjour Tomlev,

Merci beaucoup de ces précisions, mais bizarement en déclarant le chemin du répertoire et la table autrement, ce code fonctionne.
Ah ! la magie de l'informatique.

En tout cas, je garde précieusement ce sujet, car il m'aidera forcément à un moment ou un autre.

Je peux maintenant passer à la suite de la mise en forme de ma form.
Mais cela fera l'objet d'autres questions.

Encore merci.

Cordialement

Christophe