importation des données Excel vers sql 2000
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:
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