Accès à une base dbf

Version imprimable

Bonjour,

Je suis en train de me battre avec visual pour essayer de lire un fichier .dbf, j'arrive à avoir certains résultats, mais pas d'autre, j'ai les erreurs suivantes:

Code:

1
2
System.InvalidOperationException: Tentative non valide de lecture de l'ordinal de colonne '1'. Avec CommandBehavior.SequentialAccess, vous ne pouvez lire qu'à partir de l'ordinal de colonne '5' ou supérieur.
   à System.Data.OleDb.OleDbDataReader.DoValueCheck(Int32Une exception de première chance de type 'System.IndexOutOfRangeException' s'est produite dans System.Data.dll

ou ceci

Code:

1
2
3
4
System.IndexOutOfRangeException: FILESCANND
   à System.Data.ProviderBase.FieldNameLookup.GetOrdinal(String fieldName)
   à System.Data.OleDb.OleDbDataReader.GetOrdinal(String name)
   à System.Data.OleDb.OleDbDataReader.get_Item(String name)

et voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim ConnectionString As String
 
                    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                    "Data Source=" + repertoire + ";Extended Properties=dBase IV"
                    Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)
                    dBaseConnection.Open()
 
                    Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("SELECT * FROM monFichierDbf", dBaseConnection)
                    Dim dBaseDataReader As System.Data.OleDb.OleDbDataReader = dBaseCommand.ExecuteReader(CommandBehavior.SequentialAccess)
 
 
 
                        While dBaseDataReader.Read
                            Console.WriteLine("===================================")
                            Console.WriteLine(dBaseDataReader("TIMEDONE").ToString)
                            Console.WriteLine(dBaseDataReader("DESCRIPT").ToString)
                            Console.WriteLine(dBaseDataReader("INFOTYPE").ToString)
                            Console.WriteLine("===================================")
                        End While
 
 
                    dBaseConnection.Close()

02/10/2008, 13h54
nikoko34
Bonjour,
J'ai une appli qui lit bien du dbase.
Ma connectionstring est légèrement différente (userId renseigné) :
ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & Repertoire & "';Extended Properties=dBASE IV;User ID=Admin;Password="

Déjà, un premier conseil, évite le Select * mais précise les noms des champs.
Sinon, de mon côté, je passe par un OleDbDataAdapter puis un DataSet et j'accède aux données via une instruction de type:
Code:

1 2 3 4 Dim MaColonne As DataColumn For Each MaColonne In MonDataSet.Tables(0).Columns <faire un traitement> Next
02/10/2008, 20h19
Paul Van Walleghem
Est-ce du DBASE ou Visual foxpro? Ces deux système de gestion de base de données ont la même extension de fichiers pour leurs tables...

Si c'est du foxpro, j'ai eu un problème similaire. Je ne suis pas parvenu à établir la connexion via OLE DB. Mais j'ai réussi via ODBC avec la chaîne:
Code:

1 2 "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=" & cDataFile & ";Exclusive=No;" "NULL=NO;Collate=Machine;BACKGROUNDFETCH=NO;DELETED=NO;"
J'ai réussi des opérations de lecture, mais pas d'écriture.

Connais-tu ce site? http://connectionstrings.com/

A+,

Bonjour,

J'arrive bien à lire les fichiers dbf, mais le problème c'est quand je veux obtenir la valeur d'une colonne, j'ai n'importe quoi.

Je m'explique, lorsque que je veux récupérer la valeur d'un colonne "TIMEDONE" par exemple, j'ai en valeur de retour "C:\", ce qui est la valeur d'une autre colonne!

Pouvez-vous m'aider svp

voici mon code:

Code:

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
Dim ConnectionString As String
 
                    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & repertoire & "';Extended Properties=dBASE IV;User ID=Admin;Password="
                    Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)
                    dBaseConnection.Open()
 
                    Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("SELECT * FROM monFichier", dBaseConnection)
                    Dim dBaseDataReader As System.Data.OleDb.OleDbDataReader = dBaseCommand.ExecuteReader(CommandBehavior.SingleRow)
 
 
                    Dim i As Integer = 0
                    dBaseDataReader.Read()
                    While i < dBaseDataReader.FieldCount
                        Try
                            Console.WriteLine(dBaseDataReader.GetName(i))
                            Console.WriteLine(dBaseDataReader(dBaseDataReader.GetName(i)))
 
 
                        Catch ex As Exception
 
                        End Try
                        i = i + 1
 
                    End While
 
                dBaseConnection.Close()

Adrien

Citation:

Envoyé par adrix26

Code:

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
Dim ConnectionString As String
 
                    ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & repertoire & "';Extended Properties=dBASE IV;User ID=Admin;Password="
                    Dim dBaseConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)
                    dBaseConnection.Open()
 
                    Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("SELECT * FROM monFichier", dBaseConnection)
                    Dim dBaseDataReader As System.Data.OleDb.OleDbDataReader = dBaseCommand.ExecuteReader()
 
 
                    Dim i As Integer = 0
                    dBaseDataReader.Read()
                    While i < dBaseDataReader.FieldCount
                        Try
                            Console.WriteLine(dBaseDataReader.GetName(i))
                            Console.WriteLine(dBaseDataReader(dBaseDataReader.GetName(i)))
 
 
                        Catch ex As Exception
 
                        End Try
                        i = i + 1
 
                    End While
 
                dBaseConnection.Close()

Adrien

27/10/2008, 14h01
nikoko34

Je te l'ai indiqué dans un précédent message mais le select * est à proscrire et est possiblement à l'origine de tes problèmes.

Met les noms de tes colonnes à la place du '*' et recherche par nom au lieu de chercher par indice...

j'ai exactement la meme chose, j'ai tout essayé je ne comprend pas!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 Dim dBaseCommand As New System.Data.OleDb.OleDbCommand("SELECT TIMEDONE FROM monFIchier", dBaseConnection)
                    Dim dBaseDataReader As System.Data.OleDb.OleDbDataReader = dBaseCommand.ExecuteReader(CommandBehavior.SingleRow)
 
 
                    Dim i As Integer = 0
                    dBaseDataReader.Read()
                    While i < dBaseDataReader.FieldCount
                        Try
                            Console.WriteLine(dBaseDataReader.GetName(i))
                            Console.WriteLine(dBaseDataReader(dBaseDataReader.GetName(i))
 
 
                        Catch ex As Exception
 
                        End Try
                        i = i + 1
 
                    End While