Problème connexion DBF

Marsh Posté le 20-02-2013 à 12:58:51

Salut tout le monde,

J'aurais voulu lire une base de données au format DBF en VBscript, et j'utilise un code comme celui-ci.
A l'éxecution, j'ai une erreur 3704: Cette opération n'est pas autorisée si l'objet est fermé.

Code :

Dim Conn As ADODB.Connection
Dim rsTemp As ADODB.Recordset
Set Conn = New ADODB.Connection
Set rsTemp = New ADODB.Recordset
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=dbase"
Set rsTemp = Conn.Execute("SELECT * FROM C:\Temp\Adresses.dbf" )
rsTemp.Open sqlTemp, Conn
If Not rsTemp.EOF Then
Do
MsgBox (rsTemp(0))
rsTemp.MoveNext
Loop While Not rsTemp.EOF
End If

Auriez-vous une idée, je suis tout bloqué :cry:

Merci d'avance [:fishes83]

Message édité par Fishes le 20-02-2013 à 12:59:27

---------------
Topic CoC HFR, viendez :o

Marsh Posté le 20-02-2013 à 12:58:51

Marsh Posté le 20-02-2013 à 14:34:33

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

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *