Comment ouvrir un fichier Dbase (table Microsoft Visual FoxPro) dans une
appli VB6 et transferer les données dans une table Access
Un bout de code m'aiderait beaucoup
soir, soit via odbc (dsn par exemple), soit via un driver oledb si cela existe. Exemple avec une fichier dbf dbase V :
Private Sub Command1_Click()
Dim strData As String Dim objFields As ADODB.Field Dim objRs As ADODB.Recordset Dim objCon As ADODB.Connection
Set objCon = New ADODB.Connection objCon.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & "Dbq=c:temp;Extended PropertiesÛase V;" Set objRs = New ADODB.Recordset objRs.Source = "select * from NomDuFichierSansExtension" Set objRs.ActiveConnection = objCon objRs.Open , , adOpenDynamic, adLockOptimistic For Each objFields In objRs.Fields List1.AddItem objFields.Name & "[" & objFields.Value & "]" Next objFields objRs.Close objCon.Close Set objRs = Nothing Set objCon = Nothing
End Sub
@+Quaz
-- This is an automatic signature of MesNews. Site : http://mesnews.no-ip.com
soir,
soit via odbc (dsn par exemple), soit via un driver oledb si cela
existe.
Exemple avec une fichier dbf dbase V :
Private Sub Command1_Click()
Dim strData As String
Dim objFields As ADODB.Field
Dim objRs As ADODB.Recordset
Dim objCon As ADODB.Connection
Set objCon = New ADODB.Connection
objCon.Open "Driver={Microsoft dBASE Driver (*.dbf)};" &
"Dbq=c:temp;Extended PropertiesÛase V;"
Set objRs = New ADODB.Recordset
objRs.Source = "select * from NomDuFichierSansExtension"
Set objRs.ActiveConnection = objCon
objRs.Open , , adOpenDynamic, adLockOptimistic
For Each objFields In objRs.Fields
List1.AddItem objFields.Name & "[" & objFields.Value & "]"
Next objFields
objRs.Close
objCon.Close
Set objRs = Nothing
Set objCon = Nothing
End Sub
@+Quaz
--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com
soir, soit via odbc (dsn par exemple), soit via un driver oledb si cela existe. Exemple avec une fichier dbf dbase V :
Private Sub Command1_Click()
Dim strData As String Dim objFields As ADODB.Field Dim objRs As ADODB.Recordset Dim objCon As ADODB.Connection
Set objCon = New ADODB.Connection objCon.Open "Driver={Microsoft dBASE Driver (*.dbf)};" & "Dbq=c:temp;Extended PropertiesÛase V;" Set objRs = New ADODB.Recordset objRs.Source = "select * from NomDuFichierSansExtension" Set objRs.ActiveConnection = objCon objRs.Open , , adOpenDynamic, adLockOptimistic For Each objFields In objRs.Fields List1.AddItem objFields.Name & "[" & objFields.Value & "]" Next objFields objRs.Close objCon.Close Set objRs = Nothing Set objCon = Nothing
End Sub
@+Quaz
-- This is an automatic signature of MesNews. Site : http://mesnews.no-ip.com
