importation des données Excel vers sql 2000

Version imprimable

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

06/06/2013, 10h36
SISGI

il n y a aucune personne qui peut m'aider :( :(
06/06/2013, 10h47
aieeeuuuuu

Bonjour,

Citation:

Envoyé par SISGI

mais ce code ne marche pas

non en effet, avec si peu de précisions, je pense que personne ne pourra vous aider...

vous avez une erreur ? postez le message !
Vous n'avez pas le résultat attendu ? expliquez ce que vous voulez, ce que vous attendez, et comment vous avez vérifié le résultat.

Bref, expliquez votre problème, on pourra peut être ensuite vous aider...

merciii d'abord pour votre réponse,
je veux importer des données excel vers sql 2000 avec vb6 voilà le code que j'utilise maintenant
Code:

1 2 3 4 5 6 7 8 9 Dim lngRecsAff As Long Dim table As String table = Me.DataCombo1.BoundText strSQL = "SELECT * INTO " & Me.DataCombo1.BoundText & " FROM " & _ "OPENROWSET('Microsoft.Jet.OLEDB.6.0', " & _ "'Excel 8.0;Database=" & Me.Text1.Text & "', " & _ "[" & table & "$])" ConnectionGlobal.Execute strSQL
Me.DataCombo1.BoundText c'est la table destination des données et Me.Text1.Text c'est le chemin de doc xls mais il m'affiche une erreur
erruer d'excution '-2147217900(80040e14)':
impossible de créer l'entrée de registre pour le fournisseur OLE DB Microsoft.Jet.OLEDB.6.0'.

06/06/2013, 12h45
SISGI

1 pièce(s) jointe(s)

helpppppppp me plzzzzzzzzz voilà une image de ma fenêtre avec le msg d'erreur
06/06/2013, 13h21
alassanediakite

Salut
Il y a peut être une erreur dans la chaine de connexion à Excel.
Je doute de la version "6.0" et la positon des quote '
Regarde ici.
@+
06/06/2013, 14h04
SISGI

merciiii pour votre réponse
oui je me suis trompée sur la version de (Microsoft.Jet.OLEDB.3.51) je l'ai changé mais tjour il m'affiche une erreur

OLE/DB provider returned message: pilote ISAM introuvable
06/06/2013, 14h19
alassanediakite

salut
Puis-je avoir les version de win et office installés?
06/06/2013, 14h45
SISGI

oui bien sur win xp et offiche 2007 mais j’enregistre le le doc sous 2003

Salut
Essaye...

Code:

1
2
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=address_du_fichier_excel;
Extended Properties="Excel 8.0;HDR=YES";

06/06/2013, 14h58
alassanediakite

Salut
Question: SQL 2000 est-il installé en local (sur la même machine que vb6 et office 2007) ou sur une autre machine?
La requête est en fait exécutée par SQL 2000, donc il doit avoir cette fonctionnalité et avoir accès au pilote OLEDB.

Vous pouvez me corriger cette chaine SVP

Code:

1
2
3
 strSQL = "SELECT * INTO " & Me.DataCombo1.BoundText & " FROM OPENDATASOURCE(Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\myFolder\myOldExcelFile.xls;"Extended Properties="Excel 8.0;HDR=YES";)"
    Debug.Print strSQL
    ConnectionGlobal.Execute strSQL

voilà j'ai changé mon code avec les propriétés que vous m'avez donné

Code:

1
2
3
4
5
6
    strSQL = "SELECT * INTO " & Me.DataCombo1.BoundText & " FROM " & _
        "OPENROWSET('Microsoft.ACE.OLEDB.12.0', " & _
        "'Excel 8.0 HDR=YES;Database=" & Me.Text1.Text & "', " & _
        "[" & table & "$])"
    Debug.Print strSQL
    ConnectionGlobal.Execute strSQL

mais tjor une erreur
Pilote ISAM introuvable

06/06/2013, 15h57
SISGI

oui SQL 2000 est installé sur la même machine

Salut
Essaye...

Code:

1
2
3
strSQL = "SELECT * INTO " & Me.DataCombo1.BoundText & " FROM
 OPENROWSET('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;HDR=Yes;Database=" & Me.Text1.Text & ";',lenomdelafeuille$)" ' ne pas oublier le $

07/06/2013, 12h10
SISGI
voilà la chaine de connexion
Code:

1 2 strSQL = "SELECT * INTO " & Me.DataCombo1.BoundText & " FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;HDR=Yes;Database=" & Dossier & ";'," & Me.Text1.Text & "$)"
Me.DataCombo1.BoundText = le nom de la table destination
Dossier =le nom de la base de donnée
Me.Text1.Text= le chemin de ma feuille XLS

est ce que c'est correcte ce que j'ai fait mercii pour ceux qui veulent me répondre
07/06/2013, 12h20
alassanediakite

Salut
Les deux derniers paramètres sont: le chemin complet du fichier Excel; la feuille dont tu veux importer les données.
@+
07/06/2013, 12h24
SISGI

mercii bc pour votre réponse mais moi je veux les importer dans une table et non pas dans une feuille
07/06/2013, 12h37
alassanediakite

Un fichier Excel est constitué de feuilles (1 ou +). Il faut bien en choisir une qui sera importée dans la table représentée par Me.DataCombo1.BoundText
@+
07/06/2013, 12h47
SISGI

Bonjour
oui c vrai, je dois indiquer le nom du classeur dans le dernier paramètre ?
mais moi je récupère juste le chemin du doc comment faire pour récupérer le nom de la feuille excel
et je vous remerciiiiiiiiiiiiiii bc pour votre aide
07/06/2013, 12h53
alassanediakite

Relisez ici.
07/06/2013, 13h27
SISGI

ouiii je comprend maintenant l'erreur est disparu

saluut
maintenant il m'affiche une erreur de connexion :( :( voilà le msg d'erreur
ODBC--Echec de la connexion à <<Driver=SQL Server PC-Devel>>

et voilà la chaine de connexion
Code:

1 2 3 4 strSQL = "SELECT * INTO [ODBC;Driver=Driver=SQL Server ;" & _ "Server=" & ServName & " ;Database=" & Dossier & ";" & _ "UID=" & con & ";PWD=" & MtPasse & "].XLImport9 " & _ "FROM [" & Me.DataCombo1.BoundText & "$]"

07/06/2013, 13h35
alassanediakite

Le premier problème est-il résolu?
07/06/2013, 13h40
SISGI

oui je me suis trompée sur le nom de la feuille et j'ai changé le nom de la feuille par le nom de la table sélectionnée comme vous m'avez dit et ça marche maint il m'affiche une autre erreur
ODBC--Echec de la connexion à <<Driver=SQL Server PC-Devel>>

et voilà la chaine
strSQL = "SELECT * INTO [ODBC;Driver=Driver=SQL Server ;" & _
"Server=" & ServName & " ;Database=" & Dossier & ";" & _
"UID=" & con & ";PWD=" & MtPasse & "].XLImport9 " & _
"FROM [" & Me.DataCombo1.BoundText & "$]"
et je vous remerciiiiiiiii bcc pour votre aide et pour votre réponse
07/06/2013, 13h45
alassanediakite

Si le premier problème est résolu? Cliquez sur :resolu: en bas et créez une autre discussion avec le nouveau problème expliqué!
@+
07/06/2013, 13h45
SISGI

oui :)