1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| /*Déclaration dune variable pour la construction dune boucle*/
Dim i As Integer
/*ouverture base CRM*/
cnn1.ConnectionString = "SERVER=(local);Database=CRMbvsi_MSCRM;integrated Security=SSPI"
cnn1.Open()
/*Boucle pour parcourir la grille que lon a rempli au préalable*/
For i = 0 To Grd1.Rows.Count - 1
/*Solution àdévelloper pour enlevé linsertion manuelle et rendre possible les mise à jours automatique. on sélection dans la table des propriétaire de CRM leur nom et prenom et on les compare à ceux obtenuu à parti de SAGE afficher dans la grille, le problème est que le champs "SystemeUserId" est un type que lon ne peut pas récupérer.*/
cmd1.CommandText = "select * from SystemUserBase WHERE Firstname ='" & Grd1.Item(10, i).Value & "' and Lastname='" & Grd1.Item(9, i).Value & "' and LastName <> 'INTEGRATION' and LastName <> 'SYSTEM'"
cmd1.Connection = cnn1
curs1 = cmd1.ExecuteReader
/*On insère dans la table AccountBase Id du client, le numero SAGE, le nom du client, son telephone, son fax, email, son numero de propriétaire*/
cmd.CommandText = "INSERT INTO AccountBase (AccountId, AccountNumber, Name, Telephone1, Fax, EMailAddress1, DeletionStateCode, OwningUser, OwningBusinessUnit,StateCode) VALUES ( NEWID() ,'" & Grd1.Item(0, i).Value & "' , '" & Grd1.Item(1, i).Value & "', '" & Grd1.Item(2, i).Value & "', '" & Grd1.Item(3, i).Value & "', '" & Grd1.Item(4, i).Value & "', 0,CAST('''" & curs1("SystemeUserId") & "''' AS UNIQUEIDENTIFIER), CAST('''" & curs1("BuisinessUnitId") & "''' AS UNIQUEIDENTIFIER), 0)"
cmd.Connection = cnn1
cmd.ExecuteScalar()
Next
/*On ferme la lecture*/
curs1.Close()
/*Affichage d'un message de réussite de linsertion*/
MessageBox.Show("Insertion réussite")
/*On ferme la base*/
cnn1.Close() |