vbscript imprt Excel vers Mysql

Question

Bonjour.

J'essaie d'importer dans une base Mysql le contenu d'un fichier excel.
tout se passe bien pour la premiere ligne et hop mon script me met une erreur

"Objet Requis"

Voici mon code.

'Connection a la base de données
'la relation ODBC doit etre creer precedement dans "outil administration" 
'pour pouvoir utilise la connection --> DSN
Dim conn 
Set conn = CreateObject("ADODB.Connection") 
conn.ConnectionString = "DSN=test" 'nom de la connection creer precedemment
conn.Open
'MsgBox "connexion au serveur OK"
'------------------------------------------------------------------------------
'Lecture des données Excel
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open("C:\Users\gogo\Desktop	est.xls")

'Selectionn de la feuille 1 du classeur
objExcel.Sheets(1).Select

intRow = 1 'correspond a la ligne de depart

Do Until objExcel.Cells(intRow,1).Value = ""
WScript.Echo "Colonne1: " & objExcel.Cells(intRow, 1).Value
resultatColonne1=objExcel.Cells(intRow, 1).Value
WScript.Echo "Colonne2: " & objExcel.Cells(intRow, 2).Value
resultatColonne2=objExcel.Cells(intRow, 2).Value


'execution de la requete pour insere les données dans Mysql

strSQL="INSERT INTO test (colonne1,colonne2) VALUES ('"& resultatColonne1 &"','"& resultatColonne2 &"')"



Conn.Execute (strSQL)
Conn.close
Set Conn = Nothing
intRow = intRow + 1 'on passe a la ligne suivante du fichier Excel

Loop
objExcel.Quit

D'ou vient l'erruer 
Merci à tous

cs_JMO · Answer

Bonsoir,

"Objet Requis" 
sur l'objet Conn qui est mal placé.

Conn.Execute (strSQL)

intRow = intRow + 1 'on passe a la ligne suivante du fichier Excel

Loop

Conn.close


Set Conn = Nothing

objExcel.Quit

jean-marc

Vbscript imprt Excel vers Mysql

1 réponse

Votre réponse

Discussions similaires