Discussion :

[SISGI]

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

[SISGI]

il n y a aucune personne qui peut m'aider

[aieeeuuuuu]

Bonjour,

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...

[SISGI]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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'.

[SISGI]

helpppppppp me plzzzzzzzzz voilà une image de ma fenêtre avec le msg d'erreur

[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.
@+

[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

[alassanediakite]

salut
Puis-je avoir les version de win et office installés?

[SISGI]

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

[alassanediakite]

Salut
Essaye...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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.

[SISGI]

Vous pouvez me corriger cette chaine SVP

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SISGI]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SISGI]

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

[alassanediakite]

Salut
Essaye...

Code VB :

Sélectionner tout - Visualiser dans une fenêtre à part

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 $

@+

[SISGI]

voilà la chaine de connexion

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[alassanediakite]

Salut
Les deux derniers paramètres sont: le chemin complet du fichier Excel; la feuille dont tu veux importer les données.
@+

[SISGI]

mercii bc pour votre réponse mais moi je veux les importer dans une table et non pas dans une feuille

[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
@+

[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