[VB] remplir base access à partir d'un tableau excel

Question

Bonjour à ts 
J'aimerais réaliser une application en VB 6 pour pouvoir récupérer ttes les lignes d'un fichier .xls à partir d'une ligne donnée et deverser ses informations dans une table access.
Ensuite je dois à partir de ma base, remplir un nouveau tableau excel.
J'ai pas l'habitude de la programmation microsofitienne et du vocabulaire qui va avec...  donc si qq1 a une idée de comment faire, ça serait sympa!

XIII

juvamine · Answer

Dim ex As New Excel.Application
Dim l As Integer
Dim rse As New ADODB.Recordset
ex.Application.Workbooks.Open ("c:\toto.xls")

l = taPremiereLigne
With ex.ActiveWorkbook.Worksheets(1)
 rse.Open "select * from ta_table", _
            tacnxion, adOpenForwardOnly, adLockOptimistic
            
    While .Cells(l, 1) <> ""
        
            rse.AddNew
            rse!tonchamp1 = .Cells(l, 1)
            rse!tonchamp2 = .Cells(l, 2)
            rse!tonchamp3 = .Cells(l, 3)
            rse.Update
        l = l + 1
    Wend
     rse.Close
End With

alors ca ca te permet de mettre des lignes excel dans access

pour linverse, meme principe

With ex.ActiveWorkbook.Worksheets(1)
 rse.Open "select * from ta_table", _
            tacnxion, adOpenForwardOnly, adLockReadOnly
            
    While Not rse.EOF
      
            .Cells(l, 1) = rse!tonchamp1 
            .Cells(l, 2) = rse!tonchamp2
            .Cells(l, 3) = rse!tonchamp3
            rse.MoveNext
        l = l + 1
    Wend
     rse.Close
End With

vala tu dvré ten sortir
à+
juvamine

Retrouvez une équipe de développeurs confirmés sur le tchate:
serveur : bastia.zefunChat.net
port : 6667
chan : #programmation

XIIIadidas · Answer

XIII

XIIIadidas · Answer

merci je vais essayer ça!
jubabien juvamine :D
XIII

[VB] remplir base access à partir d'un tableau excel

3 réponses

Discussions similaires