1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| MyCommand.CommandText = "insert into client (`Id_client`,`Nom juridique`,`Login`,`Mot de passe`,`Numero_de_client`,`Adresse des locaux`,`Code postal`,`Ville`,`Adresse mail`,`Type de contrat`,`Nombre de poste`,`Archive`,`Nombre d'intervention`) Values (""" & idclt & """,""" & txtNJuri.Text.Replace("""", """""") & """,""" & txtLg.Text.Replace("""", """""") & """,""" & txtMp.Text.Replace("""", """""") & """,""" & txtNum.Text & """,""" & txtAd.Text.Replace("""", """""") & """,""" & txtCp.Text & """,""" & txtV.Text.Replace("""", """""") & """,""" & txtAm.Text & """,""" & txtTc.Text.Replace("""", """""") & """,0,""FAUX"",""" & txtNi.Text & """)"
MyDataReader = MyCommand.ExecuteReader()
MyDataReader.Close()
'charger les données des clients
frmGestionClt.DTGclient.Rows.Clear()
MyCommand.CommandText = "SELECT `Numero_de_client` , `Nom juridique` , `Adresse des locaux` , `Type de contrat` , `Code postal` , Ville FROM client order by `Nom juridique`"
MyDataReader = MyCommand.ExecuteReader()
While MyDataReader.Read()
frmGestionClt.DTGclient.Rows.Add(MyDataReader.GetString(0), MyDataReader.GetString(1), MyDataReader.GetString(2), MyDataReader.GetString(4), MyDataReader.GetString(5), MyDataReader.GetString(3))
End While
MyDataReader.Close()
con.Close() |
Partager