منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود الفحص قبل الحفظ هل يوجد افضل منه ؟؟

السلام عليكم

لدي كود الحفظ حقبل الحفظ واريد فهمه + افضل منه وابسط ان وجد

كود :

Dim str As String = ("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\Employe.mdb;user id=admin;jet oledb:database password=12345b#")

        Dim con As New OleDbConnection(str)

        Dim issql As String = "select * from main where b2='" & Me.TextBox2.Text & "'"

        Dim isds As New DataSet

        Dim isda As New OleDb.OleDbDataAdapter(issql, con)

        isda.Fill(isds, "b2")

        If Me.BindingContext(isds, "b2").Count > 0 Then

            MsgBox("اسم الموظف موجود مسبقا ", MsgBoxStyle.Critical, "خطا")

            Exit Sub

        End If

اتمنى المساعدة شباب

عليكم السلام
حسب معلوماتي المتواضعة هناك كود انا استخدمه شخصياً

كود :

Public Function getResult(SQL As String) As Boolean

Dim dr As New OledbDataReader

Dim cmd As New OledbCommand(SQL,con)

Con.Open

dr=Cmd.ExcuteNoneReader

 If dr.HasRows =True Then

'' في حالة كان هناك سجل موجود يرجع قيمة False اي لايمكنك الحفظ 

MsgBOx("لا يمكنك الحفظ لان السجل موجود مسبقا")

Return False

Else 

''في حالة عدم وجود سجلات يرجع لنا قية True اي يمكنك الحفظ

MsgBOx("")

REturn True

End If

End Function

تضع الكود في ميديول وتستدعيها في اي مكان تريد(اي في اي مكان يلزم التحقق من عدم وجود سجل مساوي للسجل الذي سوف يتم حفظه)
طريقة الاستدعاء

PHP كود :

if getResult( "select * from main where b2='" & Me.TextBox2.Text & "'") = true then
' الكود الذي يقوم بحفظ البيانات في حالة لم يكن موجود 
End If 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

0theghost0

thevirus