irantkd
پنج شنبه 11 مهر 1387, 06:58 صبح
دوستان سلام
من یه فرم عضویت دارم که Profile کاربران ، بهمراه نام کاربری و کلمه عبور رو دریافت و توی دیتابیس ذخیره میکنه و همچنین از ورود نام کاربری تکراری جلوگیری میکنه .
حالا میخوم اگه نام کاربری تکرای بود به کاربر پیغام خطا بده و تا زمانی که Username تکراری باشه اطلاعات توی دیتا بیس ذخیره نشه .
لطفاً بگید چه کدهایی باید به برنامه زیر اضافه کنم ؟
Dim Conn As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|/Web_db.mdb;Persist Security Info=True")
Dim Cmd As New OleDbCommand("INSERT INTO Users (FLname, Email, Uid, pwd, InDate, ActiveUser, CreditAcount, Post, Answer)VALUES('" & Label3.Text & "','" & txtAnswer.Value & "','" & Text4.Value & "','" & lblPass.Text & "','" & Label5.Text & "','" & Label4.Text & "','" & Label4.Text & "','" & Label8.Text & "','" & txtAnswer.Value & "' WHERE uid <> '" & Text4.Value & "')", New OleDbConnection(Conn))
Cmd.Connection.Open()
Cmd.ExecuteNonQuery()
Cmd.Connection.Close()
ممنون
من یه فرم عضویت دارم که Profile کاربران ، بهمراه نام کاربری و کلمه عبور رو دریافت و توی دیتابیس ذخیره میکنه و همچنین از ورود نام کاربری تکراری جلوگیری میکنه .
حالا میخوم اگه نام کاربری تکرای بود به کاربر پیغام خطا بده و تا زمانی که Username تکراری باشه اطلاعات توی دیتا بیس ذخیره نشه .
لطفاً بگید چه کدهایی باید به برنامه زیر اضافه کنم ؟
Dim Conn As String = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|/Web_db.mdb;Persist Security Info=True")
Dim Cmd As New OleDbCommand("INSERT INTO Users (FLname, Email, Uid, pwd, InDate, ActiveUser, CreditAcount, Post, Answer)VALUES('" & Label3.Text & "','" & txtAnswer.Value & "','" & Text4.Value & "','" & lblPass.Text & "','" & Label5.Text & "','" & Label4.Text & "','" & Label4.Text & "','" & Label8.Text & "','" & txtAnswer.Value & "' WHERE uid <> '" & Text4.Value & "')", New OleDbConnection(Conn))
Cmd.Connection.Open()
Cmd.ExecuteNonQuery()
Cmd.Connection.Close()
ممنون