[ali_ahmed12]

السلام عليكم 
هل من طريقة اضمن وافضل  عملية دخول للبرنامج من تالية

كود :

If ComboBox1.SelectedIndex < 0 Then
           MessageBox.Show("الرجاء اختيار اسم المستخدم ")
           Exit Sub
       End If
       query = "select * from users where user_name='" & ComboBox1.Text & "' and user_password= '" & Textpass.Text & "'"
       da = New SqlDataAdapter(query, Module1.con)
       da.Fill(dt)
       If dt.Rows.Count > 0 Then
           Form_main.ShowDialog()
       Else
           MessageBox.Show("كلمة المرور خاطئة", "رسالة تنبيه")
           Textpass.SelectAll()
       End If

[aljzazy]

استخدم parameters

كود :

  If Con.State = 1 Then Con.Close()
       Con.Open()
       Cmd = New SqlCommand("Select * from Users_Tbl Where UserName=@UserName And UserPassWord=@UserPassWord", Con)
       Cmd.Parameters.AddWithValue("@UserName", CmbUsers.Text)
       Cmd.Parameters.AddWithValue("@UserPassWord", TxtPassword.Text)
       rdr = Cmd.ExecuteReader
       rdr.Read()
       If rdr.HasRows Then
         
           Home.Show()
           Me.Hide()
       Else
           MsgBox("اسم المستخدم او كلمة المرور غير صحيحيان ", MsgBoxStyle.Critical, System_Title)
           CmbUsers.Text = ""
           TxtPassword.Text = ""

       End If
       rdr.Close()
       Con.Close()