کلید اصلی جدول

[reza69]

شما میتونید یه کد بهم بدید که قبل از ثبت اطلاعات چک کنه ببینه عدد numcode داخل ستون هست یانه؟ به عبارتی در صورت تکرار عدد numcode پیامی نمایش بده؟
numcode کلید اصلی جدولمه:گریه::گریه::گریه::گری� �::گریه::گریه::گریه::گریه::گری� �::گریه:

[reza69]

کلید اصلی جدول


نیاز نیست کسی جواب بده خودم پیداکردم
Dim cn As SqlConnection
cn = New SqlConnection("Data Source=localhost;Initial Catalog=dantist_DB;Integrated Security=True")
Dim da As SqlDataAdapter
da = New SqlDataAdapter("select * from bimar", cn)
Dim ds As DataSet
ds = New DataSet
da.FillSchema(ds, SchemaType.Mapped, "bimar")
da.Fill(ds, "bimar")
Dim dr As DataRow
dr = ds.Tables("bimar").Rows.Find(txtnumcode.Text)
If Not (dr Is Nothing) Then
MsgBox("کد پرونده تکراری است لطفا دوباره وارد کنید")
GoTo next1
End If

[shadi khanum]

دوست عزیز راحت تر هم میتونستی این کار رو انجام بدی که نیاز به find هم نداشته باشی.

Dim cn As SqlConnection
cn = New SqlConnection("Data Source=localhost;Initial Catalog=dantist_DB;Integrated Security=True")
Dim da As SqlDataAdapter
da = New SqlDataAdapter(String.Format("select count(*) from bimar where numcode = '{0}'", txtnumcode.Text), cn)
Dim ds As New DataSet
da.Fill(ds, "bimar")
If ds.Tables("bimar").Rows.Count > 0 Then
MsgBox("کد پرونده تکراری است لطفا دوباره وارد کنید")
GoTo next1
End If

البته اگه نوع فیلد numcoce از نوع nvarchar هست اون دو تا ' رو دور {0}میخواد اگه int اون دو تا ' رو نمیخواد
موفق باشی

[nowar1352]

دوستان عزيز كتابها ميگند براي كارهاي كه فقط خواندني هستند بهتراست از ديتاريدر استفاده بشند چون سرعتشان بيشتر است