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

قاعدة بيانات بها حقلين  رقم وسنة واريد عدم تكرار الحقلين معا عند ادخال البيانات في الفيجوال
تم عمل الحقلين مفتاح اساسي في قاعدة البيانات ولكن اريد كود في الفيجوال لعدم تكرار الحقلين معا

[حريف برمجة]

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

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

كود :

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

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

[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 and year=@year", 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

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

[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

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

[Rabeea Qbaha]

(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

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

صديقي هي الداله التي تريحك من عبئ اعاده كتابه الكود في كل مره 
اذا مواجه صعوبه في فهمها سابسطها لك 
الاشياء الواجب تغيرها هي :

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

id : المفتاح الاساسي
number : اسم العمود الذي يحتوي على الرقم 
year : اسم العمود الذي يحتوي على السنة


فقط هذه الاشياء يجب تغيرها في الكود الاول في جمله الاستعلام 

وأيضا في الباراميتر 

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

قم بتغير number و year 
باسماء الاعمده 


أذا اردت قم بتحميل المثال وساقوم بأضافتها لك

[zaer]

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

وأنا مع ما قال أخي ربيع Rabeea (صديقي هي الداله التي تريحك من عبئ اعاده كتابه الكود في كل مره)