Insertion de données excel dans une table

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Insertion de données excel dans une table

did-54

Hello,

Je voudrais ajouter des données à mes tables fraichement créées, à partir de données EXCEL.
C'est-a-dire que j'ai les données stockées sous excel mais que je veux automatiser leur insertion grace à des ordres SQL.

Qqun peut m'éclairer ?

Publicité

mrbebert

C'est quoi la base de données ?

Message cité 1 fois

did-54

mrbebert a écrit :

C'est quoi la base de données ?

Base de donnée oracle 10g pardon

mrbebert

Je connais pas.
Mais il peut peut être lire des fichiers "texte". Excel est capable d'enregistrer au format ".csv", c'est à dire des champs séparés par un ";" et des enregistrements par un retour à la ligne "\r\n".
Il y a peut être moyen de passer par là [:figti]

did-54

j'vais rechercher de ce coté, merci

Arjuna

Aircraft Ident.: F-MBSD

Une petite macro, un pont OLE DB ou ODBC, et vas-y ma poule, tu parcourres les cellules de ton fichier Excel pour générer la requête d'insertion.

Propre, rapide et efficace.

Message cité 1 fois

did-54

Arjuna a écrit :

Une petite macro, un pont OLE DB ou ODBC, et vas-y ma poule, tu parcourres les cellules de ton fichier Excel pour générer la requête d'insertion.

Propre, rapide et efficace.

tu m'explique ?

Arjuna

Aircraft Ident.: F-MBSD

Se connecter à une base de données depuis Excel :

-> Référence : Ajouter "Microsoft Data Access Compononents dernière version"

Code :

Option Explicit
Dim cnx as ADODB.Connection
Dim rs as ADODB.RecordSet
Set cnx = New ADODB.Connection
cnx.Open(cnxstring) ' Fait une recherche sur "OLEDB DSN-LESS ORACLE" dans google
' Insertion de lignes dans une table (on peut faire aussi des update et des delete via cette méthode)
cnx.Execute "insert into pouet (toto) values ('la vie est belle')"
cnx.Execute "insert into pouet (toto) values ('Excel c''est génial')"
' Lecture de données dans la base
Set rs.ActiveConnection = cnx
rs.Open("select toto from pouet" )
Do While Not rs.EOF
MsgBox(rs("toto" ))
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cnx.Close
Set cnx = Nothing

Se balader dans la feuille Excel et écrire/récupérer les données :

Code :

Option Explicit
Public Sub Macro1()
Dim i As Integer
Dim j As Integer
For i = 1 To 4
For j = 1 To 4
ActiveSheet.Cells(i, j).Value = CStr(i + j)
If i = 1 Then
ActiveSheet.Cells(5, j).Formula = "=SUM(R1C" & j & ":R4C" & j & " )"
End If
Next
ActiveSheet.Cells(i, 5).Formula = "=SUM(R" & i & "C1:R" & i & "C4)"
Next
ActiveSheet.Cells(5, 5).Formula = "=AVERAGE(R1C1:R4C4)"
MsgBox (ActiveSheet.Cells(5, 5).Formula & " = " & CStr(ActiveSheet.Cells(5, 5).Value))
End Sub

Arjuna

Aircraft Ident.: F-MBSD

Pas terrible le nouvel analyser de code du forum

FORUM HardWare.fr

Programmation

SQL/NoSQL

Insertion de données excel dans une table

Sujets relatifs
Quels sont les interets des base de données ?	decodage de donnees et rafraichissement d'ecran
[PHP-SQL] - remplir une table à partir d'un fichier en php	Mettre à jour un classeur Excel intégré dans un formulaire Access
option d'insertion dans liste déroulante ; blème	SQl\excel
Import Export de données dans une BDD SQL et fichier texte	Problème d'organisation et d'accès au données
Excel NB.si entre 2 colonnes	[VB6] traitement sur tableau excel très lent [résolu]
Plus de sujets relatifs à : Insertion de données excel dans une table

Page générée en 0.052 secondes