Pb connec et requete vba excel

Question

Bonjour à tous J'ai un petit soucis concernant un traitement que je veux faire. J'ai besoin d'établir une connexion sur une base SQLServer et ensuite d'effectuer une requete d'insertion dans une des tables via les informations qui sont présentes dans les cellules de ma feuille Excel. J'ai trouvé quelques lignes... Quelqu'un pourrait-il m'éclaircir ? c'est assez urgent et je block la Sub Import2_QuandClic() 'Connexion à la base de données Dim conn As New ADODB.Connection StrConn = "Driver={SQL Server};Server=N76SACC001;Database=Suivi_Conquete_2006;Uid=xxx;Pwd=xxx;" conn.Open StrConn 'Import des données dans la base SQL Server Dim y As Integer Dim Rst As Recordset y = 5 While Range("A" & y) <> "" Set Rst = "INSERT INTO tableimporttest (bureau, els, matricule_cons, date_entrée, date_contact, num_personne, num_compte, nom_client, prenom_client, nom_pack, avantage, max_avantage, montant_dispo) VALUES (Range("A" & y).value, Range("B" & y).value, Range("C" & y).value, Range("D" & y).value, Range("E" & y).value, Range("F" & y).value, Range("G" & y).value, Range("H" & y).value, Range("I" & y).value, Range("J" & y).value, Range("K" & y).value, Range("L" & y).value, Range("M" & y).value)" y = y + 1 Wend End _______________________ <<<< :-: 4L!@$ :-: >>>>

cs_bipou · Answer

bonjour, essaie plutot ceci Sub Import2_QuandClic() 'Connexion à la base de données Dim conn As New ADODB.Connection StrConn = "Driver={SQL Server};Server=N76SACC001;Database=Suivi_Conquete_2006;Uid=xxx;Pwd=xxx;" conn.Open StrConn 'Import des données dans la base SQL Server Dim y As Integer ~~Dim Rst As Recordset~~ y = 5 While Range("A" & y) <> "" conn.execute "INSERT INTO tableimporttest (bureau, els, matricule_cons, date_entrée, date_contact, num_personne, num_compte, nom_client, prenom_client, nom_pack, avantage, max_avantage, montant_dispo) VALUES (Range("A" & y).value, Range("B" & y).value, Range("C" & y).value, Range("D" & y).value, Range("E" & y).value, Range("F" & y).value, Range("G" & y).value, Range("H" & y).value, Range("I" & y).value, Range("J" & y).value, Range("K" & y).value, Range("L" & y).value, Range("M" & y).value)" y = y + 1 Wend End

cs_bipou · Answer

en corrigeant aussi :

       conn.execute "INSERT INTO tableimporttest (bureau, els, matricule_cons, date_entrée, date_contact, num_personne, num_compte, nom_client, prenom_client, nom_pack, avantage, max_avantage, montant_dispo) VALUES (" & Range("A" & y).value & ", " & Range("B" & y).value & ", " & Range("C" & y).value & ", " & Range("D" & y).value & ", " & Range("E" & y).value & ", " & Range("F" & y).value & ", " & Range("G" & y).value & ", " & Range("H" & y).value & ", " & Range("I" & y).value & ", " & Range("J" & y).value & ", " & Range("K" & y).value & ", " & Range("L" & y).value & ", " & Range("M" & y).value & ")"

en vérifiant aussi que les types de données correspondent, qu'il n'y a pas de champs vides, que la longueur des champs "texte" correspondent
(personnellement pour les champs VARCHAR, j'utiliserait TRIM(Range(?).value) qui permet de ne pas entrer dans la bases des espaces inutiles)

Pb connec et requete vba excel

2 réponses

Votre réponse

Discussions similaires