Discussion :

[SISGI]

Bonjour à tous
SVP j'ai un problème de connexion lors ce que je veux importer une feuille excel à ma base SQL Server voilà ma chaine de connexion et voilà le msg d'erreur

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim Conn As ADODB.Connection
   ' Dim strSQL As String
    Dim lngRecsAff As Long
 
    Set Conn = New ADODB.Connection
    Conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" & Me.Text1.Text & ";" & _
        "Extended Properties=Excel 8.0"
 
    'Import by using Jet Provider.
 
        strSQL = "SELECT * INTO [ODBC;Driver={SQL Server} ;" & _
        "Server=" & ServName & " ;Database=" & Dossier & ";" & _
        "UID=" & con & ";PWD=" & MtPasse & "].XLImport9 " & _
        "FROM [" & Me.DataCombo1.BoundText & "$]"
 
        Debug.Print strSQL
    Conn.Execute strSQL, lngRecsAff, adExecuteNoRecords
    Debug.Print "Records affected: " & lngRecsAff
 
    Conn.Close
    Set Conn = Nothing

et voilà le msg d'erreur

ODBC--Echec de la connexion à <<Driver=SQL Server PC-Devel>>
merciii d'avance

[alassanediakite]

Salut siham
Je suis complètement perdu et .
1->le premier problème: le code vous permet-il d'importer les données dans SQL 2000?
-> si oui, qu'est ce code est-il censé faire de plus?

[SISGI]

je suis sur le mem problm mais la 1er fois j'ai eu un pblm de pilole ISAm alors lorsqe vous m'avez corrigé l'erreur il m'affiche une autre erreur de connxeion

[SISGI]

Bonjour j'ai eu un autre pblm

erreur d'exécution '-2147217900(80040e14)'
Il existe déja un objet nommé Article dans la base de données

[aieeeuuuuu]

... Donc vous avez réussi à vous connecter ?!?

Il serait aimable dans ce cas, pour les autres lecteurs mais surtout pour alassanediakite qui vous a aidé, de la confirmer, et d'indiquer la solution !

pour votre nouveau problème, vous faites une SELECT INTO, ce qui crée une nouvelle table. Si la table cible existe déjà, forcément, ça ne fonctionne pas...

[SISGI]

Bonjour
voilà un Code qi marche très bien en vb6 qui permet d'importer des données excel vers une table en sql

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  Dim cn As ADODB.Connection
    Dim strSQL As String
    Dim lngRecsAff As Long
    Set cn = New ADODB.Connection
    cn.Open "Provider=SQLOLEDB;Data Source=" & ServName & ";" & _
        "Initial Catalog=" & Dossier & ";User ID= " & con & " ;Password=" & MtPasse & ""
 
    'Import by using OPENDATASOURCE.
    strSQL = "select *   INTO " & Me.DataCombo1.BoundText & " FROM " & _
        "OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0', " & _
        "'Data Source=" & Me.Text1.Text & ";" & _
        "Extended Properties=Excel 8.0')...[" & Me.DataCombo1.BoundText & "$]"
    cn.Execute strSQL

Me.DataCombo1.BoundText= c'est la table destination ou on veut importer les données
Me.Text1.Text=c'est le chemin de doc excel
Me.DataCombo1.BoundText= le nom du classeur excel
Dossier =le nom de la base de données sachant que le nom du classeur port le mem nom(Me.DataCombo1.BoundText) que la table destination sélectionnée par l'utilisateur
et si qlq un a un code qui permet d’insérer des données excel dans une table sql déjà existe me l'envoie svp

[SISGI]

oui je suis entrain de le faire et merci pour vos aides