Créer un index Dbase à partir d'un objet com ou net

Question

Dans vb.net, je souhaite creer
un index sur un fichier dbf (dbase IV).
Cela revient normalement à creer un .mdx.

Existe t'il un objet dbase qui créé les index
comment puis-je faire ?

merci

Epoque51 · Answer

plop !

Moi je cherche a importer un fichier dbf (DBase IV) dans un dataset.
Si qq connais la demarche a suivre en .NET, ca serait cool.

Merci.

atnokpa · Answer

Essaie avec cette syntaxe, ici il s'agit dune base de données FoxPro. 
Au niveau de la chaine de connexion ConnectionString, remplacer le provider (Provider=vfpoledb.1) par celui de DBase IV et la source (Source=C:\DBFS\whrs.dbc)  par le chemin à ta base de données DBase.

Public Function GetDataset() As Boolean
    
    Dim ConnectionString As String = "Provider=vfpoledb.1;Data Source=D:\OPO\DBFS\whrs.dbc;"

    Dim OPOCmdSelect As New System.Data.OleDb.OleDbCommand()

    Dim OPOAdapter As New System.Data.OleDb.OleDbDataAdapter() 

    Dim OPOConnection As New System.Data.OleDb.OleDbConnection()

    Dim Tmpdataset As New DataSet()
    Dim iRecFound As Integer

    OPOConnection.ConnectionString = ConnectionString

    Try
        If Me.OPOConnection.State = ConnectionState.Closed Then
            Me.OPOConnection.ConnectionString = ConnectionString
            Me.OPOConnection.Open()
        End If
        StrSQL = "Select * from MaTable"

        OPOCmdSelect.CommandText = StrSQL
        OPOCmdSelect.Connection = OPOConnection

        OPOAdapter.SelectCommand = OPOCmdSelect
           
        iRecFound = OPOAdapter.Fill(Tmpdataset, "MaTable")

    Catch e As Exception
          Return False
    End Try

    Return True

 End Function

Epoque51 · Answer

Merci, mais ca n'a pas l'air de fonctionner, la fonction renvoie False a chaque fois. Si tu veux matter mon code : 


    Public Function GetDataset() As Boolean

        Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:
ames.dbf;Extended Properties=dBASE IV;"
        Dim OPOCmdSelect As New System.Data.OleDb.OleDbCommand
        Dim OPOAdapter As New System.Data.OleDb.OleDbDataAdapter
        Dim OPOConnection As New System.Data.OleDb.OleDbConnection
        Dim Tmpdataset As New DataSet
        Dim iRecFound As Integer
        Dim StrSQL As Integer
        Dim dv As DataView

        OPOConnection.ConnectionString = ConnectionString

        Try
            If OPOConnection.State = ConnectionState.Closed Then
                OPOConnection.ConnectionString = ConnectionString
                OPOConnection.Open()
            End If
            StrSQL = "Select * from names"
            OPOCmdSelect.CommandText = StrSQL
            OPOCmdSelect.Connection = OPOConnection
            OPOAdapter.SelectCommand = OPOCmdSelect
            iRecFound = OPOAdapter.Fill(Tmpdataset, "names")

            '####### We fill in the grid #######
            dv = Tmpdataset.DefaultViewManager.CreateDataView(Tmpdataset.Tables(0))
            DataGrid1.DataSource = dv

        Catch e As Exception
            Return False
        End Try

        Return True

    End Function

Epoque51 · Answer

si J'enleve le Try, il plante au niveau de :
OPOConnection.Open()
et me dit :
"An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll"

Merci

++

centralvince · Answer

as tu essayer en utilisant un lien odbc ?

Epoque51 · Answer

Non, je debute enfait, je sais pas ce aue c'est un lien odbc :p

centralvince · Answer

je viens de trouver l'astuce ! ;)

Pour les bases DBase, le repertoire de travail représente la base et le fichier.dbf, une table.
Dans la chaine de connexion, il faut donc mettre :

  Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\; Extended Properties=dBase IV"

sur la source, ne pas mettre le nom du fichier mais le nom du repertoire !
et après, nom de la table = nom du fichier (sans "dbf")

ca te va ?
bye

Epoque51 · Answer

la Connection passe apparement mais j'ai une erreur lors du Fill.

Mon Code est comme ca maintenant :


    Function GetDataset()

        'Fichier names.dbf dans D:\
        Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\;Extended Properties=dBASE IV;"
        Dim OPOCmdSelect As New System.Data.OleDb.OleDbCommand
        Dim OPOAdapter As New System.Data.OleDb.OleDbDataAdapter
        Dim OPOConnection As New System.Data.OleDb.OleDbConnection
        Dim ds As New DataSet
        Dim iRecFound As Integer
        Dim StrSQL As String
        Dim dv As DataView

        OPOConnection.ConnectionString = ConnectionString

        Try
            If OPOConnection.State = ConnectionState.Closed Then
                OPOConnection.ConnectionString = ConnectionString
                OPOConnection.Open()
            End If

            StrSQL = "Select * from names"

            OPOCmdSelect.CommandText = StrSQL
            OPOCmdSelect.Connection = OPOConnection
            OPOAdapter.SelectCommand = OPOCmdSelect
            iRecFound = OPOAdapter.Fill(ds, "names")

            '+------ We fill in the grid ------+
            dv = ds.DefaultViewManager.CreateDataView(ds.Tables(0))
            DataGrid1.DataSource = dv
            '+---------------------------------+

            'We close the connection
            OPOConnection.Close()

        Catch e As OleDbException
            TextBox1.Text = e.Message 'Je copie l'erreur dans une texbox
        End Try

    End Function


Any Idea ?

Epoque51 · Answer

Jai oublie de mettre l'erreur :
IErrorInfo.GetDescription failed with E_FAIL(0x80004005).

Merci bien de te pencher sur mon pb.

Epoque51 · Answer

Enfait ca marche, je viens de creer une base dBase IV avec Excel, ca marche nickel, mais avec mes fichiers d'origine que mon appli sera amener a exporter, ca ne marche pas alors aue Excel arrive tres bien a les ouvrir.

Any Idea ?

Epoque51 · Answer

J'ai verifier les headers du fichier sous mon linux, le fichier est de type DBase III, donc deja c'est normal que ca ne marchait pas.
J'ai ensuite remplace ca Extended Properties=dBASE III avec la bonne version, mais sans succes, ca ne marche tjs pas.

centralvince · Answer

moi aussi ca marche bien...la connection et un select
mais l'assistant oledbDataAdapter refuse de générer un dataadapter avec une tel base

qqun a une solution ?

et concernant l'index mdx, y'en a qui savent ?

Créer un index Dbase à partir d'un objet com ou net

12 réponses

Discussions similaires