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
| imports System.Data.OleDb
Public Class Form1
Dim provider As String
Dim datafile As String
Dim connstring As String
Dim myconnexion As OleDbConnection = New OleDbConnection
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
' provider = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "
' datafile = "|DataDirectory|\DB.mdb"
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\DB.mdb"
myconnexion.ConnectionString = connstring
myconnexion.Open()
Dim str As String
str = "Insert into Users([Nom],[Prenom],[Login],[Password],[Role]) Values (?,?,?,?,?)"
Dim cmd As OleDbCommand = New OleDbCommand(str, myconnexion)
cmd.Parameters.Add((New OleDbParameter("Nom", input_nom.Text)))
cmd.Parameters.Add((New OleDbParameter("Prenom", input_prenom.Text)))
cmd.Parameters.Add((New OleDbParameter("login", input_login.Text)))
cmd.Parameters.Add((New OleDbParameter("password", input_password.Text)))
cmd.Parameters.Add((New OleDbParameter("role", input_role.Text)))
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
myconnexion.Close()
input_login.Clear()
input_nom.Clear()
input_prenom.Clear()
input_password.Clear()
input_role.Clear()
MessageBox.Show("Import réussi")
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
End Class |
