[محمد المصري]

[quote pid='107951' dateline='1508710852']

المهم كله في جملة الاستعلام :

كود :

sql = "select fid,fyear from table1 where fid=@fid and fyear=@fyear"

لو موجود حيرجع بقيمة 1 ولو مش موجود يرجع 0
[/quote]
شكرا لحضرتك بس دي جملة استعلام انا عايزها تكون جملة شرط قبل تنفيذ كود الحفظ لو حقلين تم ادخالهم من قبل يظهر رسالة انا معايا كود حقل واحد

---

(23-10-17, 04:39 PM)Rabeea Qbaha كتب :

(23-10-17, 01:47 AM)محمد المصري كتب : قاعدة بيانات بها حقلين  رقم وسنة واريد عدم تكرار الحقلين معا عند ادخال البيانات في الفيجوال
تم عمل الحقلين مفتاح اساسي في قاعدة البيانات ولكن اريد كود في الفيجوال لعدم تكرار الحقلين معا

كود :

Public Function UserEx(ByVal number As integer , ByVal year As integer) As Boolean
       Dim correct_version As Boolean = False
       Dim command As New SqlCommand("SELECT id FROM table WHERE number= @number ", SQL.conn)
command.Parameters.AddWithValue("@number", number)
command.Parameters.AddWithValue("@year", year)
       'فحص الاتصال بقاعدة البيانات
       If SQL.conn.State = ConnectionState.Open Then
           SQL.conn.Close()
       End If
       SQL.conn.Open()
       Using reader As SqlDataReader = command.ExecuteReader
           While reader.Read
               If IsDBNull(reader("id")) Then
                   correct_version = False
               Else
                   correct_version = True
               End If
           End While
       End Using

       SQL.conn.Close()
       Return correct_version
   End Function

و قم باستخذان الكود الاتي للتاكد اذا موجود او لا 

كود :

If UserEx(number.Text, year.text) = True Then
msgbox("yes")
else
msgbox("NO")
           End If

شكرا لحضرتك جاي التنفيذ لكن معذرة استفسار بسيط ممكن كتابة الكود بطريقة أخرى بدون استخدام الدالة