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

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

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.

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

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:\names.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

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

++

as tu essayer en utilisant un lien odbc ?

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

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

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 ?

Jai oublie de mettre l'erreur :
IErrorInfo.GetDescription failed with E_FAIL(0x80004005).

Merci bien de te pencher sur mon pb.