Dim dbsTemp As Database
Dim strMenu As String
Dim strInput As String
Set dbsTemp = OpenDatabase("C:\retro\RETROVB.mdb")
ConnectOutput dbsTemp, "dBASETable", "dbase III;DATABASE=C:\retro", "ACTE"
Est-ce la bonne programmation pour lire un FICHIER en DBASEIII ???.
Infos: _La BD RETROVB.MDB se trouve dans le Dossier RETRO
_ Le fichier à lire (ACTE.DBF) se trouve dans le Dossier
RETRO.
Message d'erreur obtenu:
_L'objet dbaseTable existe déjà.
CI-APRES LA FONCTION CONNECTOUTPUT
Private Sub ConnectOutput(dbsTemp As Database, strTable As String, strConnect As String, strSourceTable As String)
Dim tdfLinked As TableDef
Dim rstLinked As Recordset
Dim intTemp As Integer
Set tdfLinked = dbsTemp.CreateTableDef(strTable)
tdfLinked.Connect = strConnect
tdfLinked.SourceTableName = strSourceTable
dbsTemp.TableDefs.Append tdfLinked
Set rstLinked = dbsTemp.OpenRecordset(strTable)
Debug.Print "Données de la table liée:"
intTemp = 1
With rstLinked
Do While Not .EOF And intTemp <= 3
Debug.Print , .Fields(0), .Fields(1)
intTemp = intTemp + 1
.MoveNext
Loop
If Not .EOF Then Debug.Print , "[enregistrements supplémentaires]"
.Close
End With
dbsTemp.TableDefs.Delete strTable
End Sub
MERCI DE TON AIDE AMI(E).
VICTORIO
GOSINFOR@WANADOO.FR