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

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

(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

(23-10-17, 04:40 PM)محمد المصري كتب : [quote pid='107951' dateline='1508710852']

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

كود :

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

لو موجود حيرجع بقيمة 1 ولو مش موجود يرجع 0

(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

إقتباس :"SELECT id FROM table WHERE number= @number and year=@year", SQL.conn

إقتباس :command.Parameters.AddWithValue("@number", number)
command.Parameters.AddWithValue("@year", year)