03-07-17, 10:49 AM
كود :
Module Module1
Public con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Database1.accdb")
Public lastVisit As Date
End Module
----------------------------------------------
Public Class Form1
Private Sub btnLogin_Click(sender As System.Object, e As System.EventArgs) Handles btnLogin.Click
lastVisit = Nothing
Using cmd As New OleDb.OleDbCommand("SELECT [LastVisit] FROM [Table1] WHERE ([UserName]=@un) AND ([Password]=@pw)", con)
cmd.Parameters.AddWithValue("@un", txtUserName.Text)
cmd.Parameters.AddWithValue("@pw", txtPassword.Text)
If con.State <> ConnectionState.Open Then con.Open()
Dim ret = cmd.ExecuteScalar
con.Close()
If ret IsNot Nothing Then
lastVisit = ret
cmd.CommandText = "UPDATE [Table1] SET [LastVisit]=Now WHERE ([UserName]=@un)"
If con.State <> ConnectionState.Open Then con.Open()
cmd.ExecuteNonQuery()
con.Close()
Form2.lblLastVisit.Text = "Last visit: " & lastVisit
MsgBox("Last visit: " & lastVisit)
Me.Hide()
Form2.ShowDialog()
Application.ExitThread()
Else
MsgBox("Username or Password not valid")
End If
End Using
End Sub
End Class