Import DBF dans form

Version imprimable

14/11/2010, 14h30
marsouin_89

Import DBF dans form

Bonjour à tous,

Je cherche désespérement :furax: à 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 ? :mrgreen:

Cordialement

Christophe
14/11/2010, 19h31
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

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:

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

14/11/2010, 22h09
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

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:

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()

15/11/2010, 21h29
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.:calim2:

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.:mrgreen:

Encore merci.

Cordialement

Christophe