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 28 29 30 31 32 33 34
| daClients.InsertCommand = New OleDbCommand("insert into Clients (Sexe, Nom, Prenom, Adresse1, Adresse2, CodePostal, Ville, Pays, Telephone, eMail, Misc, ListingCourrier, Prospect) values (@Sexe, @Nom, @Prenom, @Adresse1, @Adresse2, @CodePostal, @Ville, @Pays, @Telephone, @eMail, @Misc, @ListingCourrier, @Prospect)", connection)
With daClients.InsertCommand.Parameters
.Add("@Sexe", OleDbType.Char, 20, "Sexe")
.Add("@Nom", OleDbType.Char, 50, "Nom")
.Add("@Prenom", OleDbType.Char, 50, "Prenom")
.Add("@Adresse1", OleDbType.Char, 255, "Adresse1")
.Add("@Adresse2", OleDbType.Char, 255, "Adresse2")
.Add("@CodePostal", OleDbType.Char, 8, "CodePostal")
.Add("@Ville", OleDbType.Char, 100, "Ville")
.Add("@Pays", OleDbType.Char, 50, "Pays")
.Add("@Telephone", OleDbType.Char, 12, "Telephone")
.Add("@eMail", OleDbType.Char, 255, "eMail")
.Add("@Misc", OleDbType.LongVarChar, 64000, "Misc")
.Add("@ListingCourrier", OleDbType.Boolean, 1, "ListingCourrier")
.Add("@Prospect", OleDbType.Boolean, 1, "Prospect")
End With
daClients.UpdateCommand = New OleDbCommand("UPDATE Clients SET Sexe=@Sexe, Nom=@Nom, Prenom=@Prenom, Adresse1=@Adresse1, Adresse2=@Adresse2, CodePostal=@CodePostal, Ville=@Ville, Pays=@Pays, Telephone=@Telephone, eMail=@eMail, Misc=@Misc, ListingCourrier=@ListingCourrier, Prospect=@Prospect WHERE N°=@N°", connection)
With daClients.UpdateCommand.Parameters
.Add("@N°", OleDbType.Integer, 5, "N°")
.Add("@Sexe", OleDbType.Char, 20, "Sexe")
.Add("@Nom", OleDbType.Char, 50, "Nom")
.Add("@Prenom", OleDbType.Char, 50, "Prenom")
.Add("@Adresse1", OleDbType.Char, 255, "Adresse1")
.Add("@Adresse2", OleDbType.Char, 255, "Adresse2")
.Add("@CodePostal", OleDbType.Char, 8, "CodePostal")
.Add("@Ville", OleDbType.Char, 100, "Ville")
.Add("@Pays", OleDbType.Char, 50, "Pays")
.Add("@Telephone", OleDbType.Char, 12, "Telephone")
.Add("@eMail", OleDbType.Char, 255, "eMail")
.Add("@Misc", OleDbType.LongVarChar, 64000, "Misc")
.Add("@ListingCourrier", OleDbType.Boolean, 1, "ListingCourrier")
.Add("@Prospect", OleDbType.Boolean, 1, "Prospect")
End With |
Partager