Bon j'ai du mieux avec ceci, ça fonctionne avec des tables simples :
Code :
- Dim Conn As ADODB.Connection
- Set Conn = CreateObject("ADODB.Connection" )
- Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\Temp\;Extended Properties=DBASE IV"
- Set rsTemp = Conn.Execute("SELECT * FROM accounts.dbf" )
- If Not rsTemp.EOF Then
- 'Do
- MsgBox (rsTemp(0))
- rsTemp.MoveNext
- 'Loop While Not rsTemp.EOF
- End If
|
Par contre ça ne fonctionne pas avec les fichiers/tables contenant des champs "mémo". Et donc je suis toujours bloqué à moitié...
Le message d'erreur est le suivant: La table externe n'est pas dans le format attendu.
S'il y a une bonne âme pour m'aider, je peux lui envoyer par mail un exemple de fichier.
Merci d'avance
Message édité par Fishes le 20-02-2013 à 14:39:27
---------------
Topic CoC HFR, viendez :o