-
Notifications
You must be signed in to change notification settings - Fork 0
/
updatecontact.vb
76 lines (55 loc) · 2.21 KB
/
updatecontact.vb
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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
Imports System.Data.SqlClient
Public Class updatecontact
Dim lespacer As String = " "
Dim passlesuserID1 As String
Dim passlesusermail As String
Dim lFist As String
Dim llast As String
Public Sub New(ByVal userIdNmuber, userFirstName, userLastName, userAddress)
InitializeComponent()
Me.Label21.Text = userFirstName + lespacer + userLastName
' Me.Label8.Text = passlesuserID
passlesuserID1 = userIdNmuber
lFist = userFirstName
llast = userLastName
' Me.Label45.Text = userAddress
'receptionistADD.MyUserNo = lesfistname
End Sub
Private Sub enterPatient()
Dim query As String = String.Empty
query &= "UPDATE user_table SET user_email = @Address WHERE user_id = @id"
' query &= "VALUES (@Address)"
' query &= "WHERE (user_id = )"
Using conn As New SqlConnection("Server=DESKTOP-JHVG5RN\SQLEXPRESS01;Database=lecole;Trusted_Connection=True;")
Using comm As New SqlCommand()
With comm
.Connection = conn
.CommandType = CommandType.Text
.CommandText = query
.Parameters.AddWithValue("@Address", TextBox2.Text)
.Parameters.AddWithValue("@id", passlesuserID1)
End With
Try
conn.Open()
comm.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message.ToString(), "Error Message")
End Try
End Using
End Using
TextBox2.Text = ""
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
Dim updateprofile As New updateprofile(lFist, llast, passlesuserID1)
updateprofile.Show()
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
End Sub
Private Sub updatecontact_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
enterPatient()
End Sub
End Class