وارد كردن اطلاعات تكراري

[malihe_hejazifar]

برنامه من سيستم بايگاني است و وقتي كه مثلا در شماره ثبت نامه هايم اگر شماره تكراري وارد شود هنگاميكه روي كليد ثبت كليد شد اگر شماره تكراري بود نبايد آن را ثبت كند و بايد پيغام بدهد به نظر من بايد در اطلاعات ثبت شده جستجو كند ولي نميدانم چگونه لطفا اگر ميدانيد راهنماييم كنيد . با تشكر

[Mani_rf]

بسار ساده.
قبل از ثبت کردن اطلاعات، با فرمان Select درون جدولی از بانک اطلاعاتی که قرار است اطلاعات وارد شود به دنبال اطلاعات وارد شده توسط کاربر بگرد ،‌اگر چیزی پیدا شد اطلاعات تکراری است و در صورتی که چیزی پیدا نکرد اطلاعات را ثبت کند.

:لبخند:

[anooshiran]

سلام دوست عزيز

به نمونه مختصر زير نگاهي بيانداز . اميدوارم به دردت بخورد




Dim dt As New DataTable
dt.Columns.Add("Serial")
dt.Columns.Add("Col1")
dt.Columns.Add("Col2")
dt.Rows.Add("520", "aaa", "aaaaa")
dt.Rows.Add("850", "bbb", "bbbbb")
dt.Rows.Add("900", "ccc", "ccccc")
dt.Rows.Add("1000", "ddd", "ddddd")
dt.Rows.Add("1120", "eee", "eeeee")


Dim mySerial As Integer = 1120
Dim com_Text As String = "Serial='" & mySerial.ToString.Trim & "'"
Dim dr() As DataRow
dr = dt.Select(com_Text)
If dr.Length > 0 Then
MsgBox("سريال تكراري است")
Else
MsgBox("سريال قابل ثبت است")

End If