Bonsoiiiiiiir
je suis entrain de travailler sur une application en vb6 ou je dois mettre une fenêtre qui permet aux utilisateurs de faire l'importation de n’importe quelle table j'affiche la liste des tables de la base de données sélectionnée par l'utilisateur je récupéré la table choisie voilà mon code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
    strSQL = "SELECT * INTO " & Me.DataCombo1.BoundText & " FROM " & _
        "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
        "'Data Source=" & Me.Text1.Text & ";" & _
        "Extended Properties=Excel 8.0')"
    Debug.Print strSQL
    ConnectionGlobal.Execute strSQL, lngRecsAff, adExecuteNoRecords
Me.DataCombo1.BoundText= la table sélectionnée par l'utilisateur
Me.Text1.Text= le chemin de fichier excel xls

mais ce code ne marche pas
j'ai besoin de vos aides SVP