Accès à une BD Paradox via ODBC avec VB.NET

**Passepoil** · 01/12/2011, 17h25

Bonjour,

Avant d'exposer mon problème, je veux dire que je suis preneur si jamais quelqu'un a une solution par SQL ou via un fichier .mdb.

J'essais de lire une bd Paradox (*.db) en VB.NET. Cette bd est remplie par une application externe, donc, par question de migrer les données de façon permanente.

J'ai créer une connexion ODBC sur le répertoire:
- Nom de la source de données: BufferEvents
- Base de données
- Version: Paradox 5.X
- Répertoire: C:\Paradox

Mon code, ci-dessous, me renvoi l'erreur suivante lors de l'initialisation de la variable reader :

ERROR [42S02] [Microsoft][Pilote ODBC Paradox] Le moteur de base de données Microsoft Jet n'a pas pu trouver l'objet 'CardNo'. Assurez-vous que l'objet existe et que vous avez correctement saisi son nom et son chemin d'accès.

Le fichier CardNo.db existe dans le répertoire C:\Paradox.

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
 
Dim username As String = ""
Dim password As String = ""
 
Dim commandString As String
Dim connection As OdbcConnection = New OdbcConnection("DSN=BufferEvents;UID=" & username & ";PWD=" & password & ";")
 
commandString = "SELECT * FROM CardNo.db"
 
Dim command As OdbcCommand = New OdbcCommand(commandString, connection)
 
connection.Open()
 
Dim reader As OdbcDataReader = command.ExecuteReader()
 
If reader.HasRows Then
    Do While reader.Read()
        ' Ajouter code ici
    Loop
Else
    Console.Write("No records found!")
End If
 
reader.Close()
connection.Close()

Quelqu'un a une idée ou une solution autre.

Merci,

Pascal

**Passepoil** · 01/12/2011, 18h11

J'ai trouvé le code ci-dessous qui réussi (pas dans le code mais il se connecte à la BD). J'ai maintenant l'erreur suivante:

ERROR [HY000] [Microsoft][Pilote ODBC Paradox] La table externe n'est pas dans le format attendu

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
 
Public Sub ConnectToOdbc()
    Dim connectionString As String = "Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 5.X;DefaultDir=c:\Paradox\;Dbq=c:\Paradox\;CollatingSequence=ASCII;"
    Dim myConnection As New System.Data.Odbc.OdbcConnection(connectionString)
 
    Dim myCommand As New System.Data.Odbc.OdbcCommand("Select * from CardNo", myConnection)
    Dim myReader As System.Data.Odbc.OdbcDataReader
    Try
        myCommand.Connection.Open()
        myReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
        While myReader.Read()
 
        End While
 
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    Finally
        If myReader IsNot Nothing AndAlso Not myReader.IsClosed Then myReader.Close()
        myConnection.Close()
    End Try
End Sub