[nourmandour]

دي كود البحث الي انا شغال بيه
الكود ضعيف سهل اختراقة لو فيه كود اقوي
     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

[moosa_alabri]

استخدم البارامترات في الاستعلام بدل استخدام النصوص مباشرة
ابحث في المنتدى توجد امثلة كثيرة

[السندبااد]

http://vb4arb.com/vb/showthread.php?tid=36486

[nourmandour]

(17-01-21, 09:30 AM)moosa_alabri كتب : استخدم البارامترات في الاستعلام بدل استخدام النصوص مباشرة
ابحث في المنتدى توجد امثلة كثيرة

اشكرك شكرا جزيل علي الاهتمام و الرد
لم اجد مثال واضح لهذا الموضوع

---

(18-01-21, 02:23 PM)السندبااد كتب : http://vb4arb.com/vb/showthread.php?tid=36486

اخي سندباد هذا الموضوع هو سبب طرحي لهذا السؤال
فبعد الاطلاع علي هذا الموضوع وجد ان البرنامج بعد التعب الشديد فيه غير امن
برجاء مثال لطريقة البحث بالباروميتر

[سعود]

إقتباس :برجاء مثال لطريقة البحث بالباروميتر

اخي الكريم اغلب امثلتي الاخيرة بطريقة البارمترات مثل

PHP كود :

cm.parameters.addwithvalue("@colname",varvalue) 


وهكذا

مثال عن الاجراءات المخزنة

اما البارمترات كل امثلي منذ اربع او خمس اعوام  بواسطتها ونادرا استخدم DataRow