[rdxdz]

كود :

Imports System.Data.SqlClient

Public Class LoginForm
   Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
       Dim username As String = txtUsername.Text
       Dim password As String = txtPassword.Text
       Dim connectionString As String = "YourConnectionStringHere"
       
       Using connection As New SqlConnection(connectionString)
           Dim command As New SqlCommand("SELECT COUNT(*) FROM Users WHERE Username = @username AND Password = @password", connection)
           command.Parameters.AddWithValue("@username", username)
           command.Parameters.AddWithValue("@password", password)
           
           connection.Open()
           Dim result As Integer = Convert.ToInt32(command.ExecuteScalar())
           
           If result > 0 Then
               MessageBox.Show("Login successful!")
           Else
               MessageBox.Show("Invalid username or password.")
           End If
       End Using
   End Sub
End Class