Provleme avec mes connexions a une bd

Question

Bonjour,
Je me permet de poster un petit message car j'ai ecrit un code pour recuperer des données dans un tableau excel et de les inserer dans une base de données excel, mais voila ca ne marche pas je pense que cela est du a ma methode de connexion à la base et au fichier excel si vous pourriez m'aider ca m'enleverrai une sacré épine du pied.
Merci

Voila le code c'est fait sur VB2005

Dim bd As ADODB.Connection
        Dim table As ADODB.Recordset
        Dim sql As String
        Dim iDate = Date.Today
        Dim i As Integer
        Dim iRef As String
        Dim iQte As Integer
        Dim appExcel As Excel.Application 'Application Excel
        Dim wbExcel As Excel.Workbook 'Classeur Excel
        Dim wsExcel As Excel.Worksheet 'Feuille Excel

        i = 1
        iRef = "A"
        'ouverture de la base de données 
        bd = New ADODB.Connection
        bd.Open("\Serveur2003\BASE\inventaire.mdb")
        table = New ADODB.Recordset



        'Ouverture de l'application
        appExcel = CreateObject("Excel.Application")
        'Ouverture d'un fichier Excel
        wbExcel = appExcel.Workbooks.Open("C:\INVENTAIRE\Inventaire.xls")
        'wsExcel correspond à la première feuille du fichier
        wsExcel = wbExcel.Worksheets(1)
        appExcel = CreateObject("Excel.Application")



        While iRef <> ""
            iRef = wsExcel.Cells(1, i).Value
            iQte = wsExcel.Cells(2, i).Value

            sql = "INSERT INTO MouvementStock  (Compteur, Type, CodeArticle, CodeDepot, Date, Quantite) Values  ('"" ', 'E','" & iRef & "',' DP ','" & iDate & "','" & iQte & "')"
            table.Open(sql, bd)

            'si la requete ne renvoie pas de résultats il n'est pas necessaire de fermer la table. 

            i = i + 1
        End While

mcs2006 · Answer

Bonjour,

Je n'ai pas essayé ton code mais pourquoi met-tu 2 fois :
appExcel = CreateObject("Excel.Application")

Le 2ème est de trop, c'est peut-être ça qui ne va pas ?

Dalida · Answer

salut,



si tu utilises vb 8 pourquoi ne pas utliser OleDB ?

avec OleDB tu peux &#224; fois te connecter &#224; ton classeur et &#224; ta base.

avec deux DataSet remplis par des DataAdapters tu travailleras (&#224; mon avis) plus facilement.



pour la connexion &#224; Excel il faut utiliser la ConnectionString (r&#233;f&#233;rence) suivante :


"Provider=  Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
  "HDR=Yes;" indicates that the first row contains columnnames, not data  
"IMEX  =1;" tells the driver to always read "intermixed" data columns as text
TIP! SQL syntax: "SELECT * FROM [sheet1$]" - i.e. worksheet name followed by a "$" and wrapped in "[" "]" brackets.



[ Dalida ]<hr>
pensez &#224; indiquer le langage utilis&#233; et sa version !