15-01-21, 05:42 PM
دي كود البحث الي انا شغال بيه
الكود ضعيف سهل اختراقة لو فيه كود اقوي
Dim sql_PSS = "SELECT BMW.N_name, BMW.pss_name, BMW.inn FROM BMW where BMW.pss_name='" & TextBox1.Text & "'"
Dim addPSS As New OleDb.OleDbDataAdapter(sql_PSS, conn)
Dim SEt_PSS As New DataSet
addPSS.Fill(SEt_PSS, "BMW")
If SEt_PSS.Tables("BMW").Rows.Count = 0 Then
TextBox1.Text = ""
MsgBox("كلمة السر غير صحيحة برجاء ادخال كلمة السر", MsgBoxStyle.OkOnly, "تحذير")
TextBox1.Focus()
Exit Sub
Else
MDIform.Timer1.Enabled = True
Me.Close()
End If
الكود ضعيف سهل اختراقة لو فيه كود اقوي
Dim sql_PSS = "SELECT BMW.N_name, BMW.pss_name, BMW.inn FROM BMW where BMW.pss_name='" & TextBox1.Text & "'"
Dim addPSS As New OleDb.OleDbDataAdapter(sql_PSS, conn)
Dim SEt_PSS As New DataSet
addPSS.Fill(SEt_PSS, "BMW")
If SEt_PSS.Tables("BMW").Rows.Count = 0 Then
TextBox1.Text = ""
MsgBox("كلمة السر غير صحيحة برجاء ادخال كلمة السر", MsgBoxStyle.OkOnly, "تحذير")
TextBox1.Focus()
Exit Sub
Else
MDIform.Timer1.Enabled = True
Me.Close()
End If