دادن پيغام دراستفاده از فيلد تكراري در ثبت داده ها

[شخصي زارع]

سلام
هنگام ثبت داده ها وقتي از نام كاربري و رمز عبور تكراري استفاده شد پيغام خطا بدهد بايد از چه كدهايي استفاده كنم؟ من از vb 2005 استفاده مي كنم
ممنون

[Mani_rf]

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

ولی اگر می خواهی در شبکه از ورود کابر تکراری جلو گیری کنی ؛ به الگوریتم پیچیده تری نیاز داری.


:لبخند:

[حامد_رشنو]

اين دقيقا چيزيه كه نياز داري:


Private Sub code()
Dim Con As New SqlConnection
Con.ConnectionString = "data source =(local);initial catalog=pejvak;integrated security=true"

Con.Open()
Dim StrCmd As String

StrCmd = "SELECT code FROM user WHERE id='" & t1.Text & "' and pass='" & t2.Text & "'"

Dim Cmd As New SqlCommand
Dim dr As SqlDataReader
Cmd.Connection = Con
Cmd.CommandText = StrCmd
dr = Cmd.ExecuteReader
If dr.Read Then

MsgBox("chenin karbari vojood darad")

Else
'amliate sabt

sabt()

End If

Con.Close()
End Sub

[karim orooji]

طبق فرمايشات دوستمون ميتوني از دستور where استفاده كني

[شخصي زارع]

اين دقيقا چيزيه كه نياز داري:


Private

Sub code()
Dim Con AsNew SqlConnection
Con.ConnectionString = "data source =(local);initial catalog=pejvak;integrated security=true"


Con.Open()


Dim StrCmd AsString


StrCmd =

"SELECT code FROM user WHERE id='" & t1.Text & "' and pass='" & t2.Text & "'"


Dim Cmd AsNew SqlCommand
Dim dr As SqlDataReader
Cmd.Connection = Con
Cmd.CommandText = StrCmd
dr = Cmd.ExecuteReader
If dr.Read Then


MsgBox(

"chenin karbari vojood darad")


Else
'amliate sabt


sabt()



EndIf


Con.Close()




سلام ببخشيد خط 14 برنامه رو خطا مي ده مشكل چيه؟

[حامد_رشنو]

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