Private Sub BTN_lancer_proc_Click() ' webographie: http://faq.vb.free.fr/index.php?question=65 ' webographie: http://www.vbfrance.com/forum/sujet-IMPORT-DBF-DANS-MDB-VB6_1449108.aspx Dim cnnMDB As New ADODB.Connection Dim cnnDBF As New ADODB.Connection Dim rsDBF As New ADODB.Recordset Dim StrNo_int_uc As String Dim StrNo_etude As String ' Connexion à la base de donnée MDB cnnMDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPathExtraction 'connection à la base de données DBF cnnDBF.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\bdsol\outil_extraction\prog\travail3;Extended Properties=dBASE IV;" ' Ajout de la table, des champs et de la clé primaire cnnMDB.Execute "CREATE TABLE Zone_etude (NO_ETUDE INT, NO_INT_UC VARCHAR(6))" 'incrémentation du recordset rsDBF.Open "select * from BDG", cnnDBF, adOpenForwardOnly, adLockReadOnly 'la boucle suivante sert à insérer les données du recordset dans la table du mdb Zone_etude Do Until rsDBF.EOF StrNo_int_uc = rsDBF!NO_INT_UC StrNo_etude = rsDBF!NO_ETUDE cnnMDB.Execute "insert into Zone_etude (NO_ETUDE,NO_INT_UC) values (" & StrNo_etude & ",'" & StrNo_int_uc & "')" rsDBF.MoveNext Loop MsgBox ("Importation terminée") 'ferme les connections cnnMDB.Close rsDBF.Close cnnDBF.Close Set cnnMDB = Nothing Set cnnDBF = Nothing End Sub
Private Sub BTN_lancer_proc_Click() Dim cnnMDB As New ADODB.Connection Dim cnnDBF As New ADODB.Connection Dim rsDBF As New ADODB.Recordset Dim nb As Integer ' Connexion à la base de donnée MDB cnnMDB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & StrPathExtraction 'connection à la base de données DBF cnnDBF.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\bdsol\outil_extraction\prog\travail3;Extended Properties=dBASE IV;" ' Ajout de la table, des champs et de la clé primaire cnnMDB.Execute "CREATE TABLE Zone_etude (NO_ETUDE INT, NO_INT_UC VARCHAR(6), PRIMARY KEY (NO_ETUDE))" 'incrémentation du recordset rsDBF.Open "select * from BDG", cnnDBF, adOpenForwardOnly, adLockReadOnly 'ferme la connection cnnMDB.Close rsDBF.Close cnnDBF.Close Set cnnMDB = Nothing Set cnnDBF = Nothing End Sub
With monRecordSet If .RecordCount > 0 Then .MoveFirst Do While Not .EOF Debug.Print .Fields("toto").Value, .Fields(1).Value .MoveNext Loop End If .Close End With
sSQL = "Insert Into maTable " & _ " (NomChamp1, NomChamp2, ..., NomChampX) " & _ "Values ('mon texte', monChiffre, ..., #maDate#)" maConnexion.Execute sSQL, r MsgBox r & " donnée insérée"
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.