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 35 36 37 38
| sub Submit(obj as object, e as eventargs)
'déclaration des variables
Dim strNomGroupe as String
Dim Sql as string
Dim Sql2 as string
Dim oConnection As System.Data.OleDb.OleDbConnection
Dim MyCommand as System.Data.OleDb.OleDbCommand
Dim MyCommand2 as System.Data.OleDb.OleDbCommand
Dim sConnectionString As String
' On initialise les variables
strNomGroupe = txtNom.Text
' Création de l'objet de connexion
oConnection = New System.Data.OleDb.OleDbConnection()
' Ecriture de la chaîne de connexion
sConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =D:\dev ident personne\Essai2.mdb"
oConnection.ConnectionString = sConnectionString
' Ouverture de la connexion
oConnection.Open()
'Création de la premiere requete qui permet d'insérer les données dans la bd
Sql = "INSERT INTO Groupe (NomGroupe) VALUES (" & "'" & strNomGroupe & "');"
MyCommand= new System.Data.OleDb.OleDbCommand(Sql, oConnection)
Sql2 = "CREATE GROUP " &"'" & strNomGroupe & "';"
MyCommand2= new System.Data.OleDb.OleDbCommand(Sql2, oConnection)
Mycommand.ExecuteNonQuery() ' permet d'executer la requete sans renvoyer de ligne
' Création de la deuxième requête qui crée legroupe dans la base de données
Mycommand2.ExecuteNonQuery() ' permet d'executer la requete sans renvoyer de ligne
' Fermeture de la connexion
oConnection.Close()
end sub |
Partager