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