1 2 3 4 5 6 7 8 9 10
| cnx.Open()
Dim ConnectionEtudiant As String
ConnectionEtudiant = "insert into Etudiants (Telephone_personnel,Telephone_professionnel,Nom,Prenom,Mail.Text,HeureInscription.Text)"
ConnectionEtudiant = ConnectionEtudiant & "values (" & Convert.ToInt32(TelPersonnel.Text) & "," & Convert.ToInt32(TelProfessionnel.Text) & "," & Convert.ToInt32(TelMobile.Text) & ","&convert.toString(Nom.text)&","&convert.toString(Prenom)&"," & Convert.ToString(Mail.Text) & ","&convert.ToDateTime(HeureInscription)&")"
Dim Insert As System.Data.OleDb.OleDbCommand
Insert = New System.Data.OleDb.OleDbCommand(ConnectionEtudiant, cnx)
Insert.Connection() = cnx
Insert.ExecuteNonQuery() |
Partager