فرم لاگین در vb 2010

[arman 2012]

سلام دوستان
من یک فرم لاگین ساختم
که کد های مربوط به ثبت نام رو درست کردم اما کد های مربوط به ورود رو نمیتونم درست کنم
کد های ثبت نام:
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("کامل کنید")
Else

SetData("insert into Login (Pass,[User]) values (N'" & TextBox1.Text & "','" & TextBox2.Text & "')")


MsgBox("موفقیت")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()

Form1_Load(sender, e)
End If
البته من یک فرم module دارم که کانکشن رو اونجا تعریف کردم.
ممنون میشم در خصوصیت لاگین راهنماییم کنید
من میتونم با استفاده از دستور GetData اطلاعات رو بگیرم
ولی یاد ندارم چطوری ازش استفاده کنم
مثلا یک دستور if میزاریم ولی چطوری؟؟؟؟

[AliRezaBeytari]

لطفا بیشتر توضیح بدید.
آیا از بانک اطلاعاتی می خواهید استفاده کنید یا می خواهید از یک فایل جدید استفاده کنید؟؟!!!

[arman 2012]

نه من دارم از بانک اطلاعاتی استفاده میکنم
من یک table ساختم که اطلاعات در اون ذخیره میشه
بعد میخوام اون اطلاعات رو فراخوانی کنم
که تا اینجا میتونم
حالا من میخوام دو تا textbox بزارم
که اگر محتواشون با اون محتوای توی sql درست بود
پیغام بده "درست
"

[asghar2008]

سلام

این موضوع قبلا مطرح شده در لینک زیر توضیحات؛ همراه قطعه برنامه موجوده !!

لاگین به برنامه (http://barnamenevis.org/showthread.php?223219-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D9%81%D8%B1%D9%85-Login-%D8%AF%D8%B1-VB.net-%D8%A8%D8%A7-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-SQL-Serverhttp://)

اینم یه سورس دیگه (http://www.mspsoft.com/1390/11/06/%D8%B3%D9%88%D8%B1%D8%B3-%D9%BE%D8%B1%D9%88%DA%98%D9%87-%D8%B1%D8%A7%D9%8A%DA%AF%D8%A7%D9%86-%D9%81%D8%B1%D9%85-%D9%84%D8%A7%DA%AF%D9%8A%D9%86-%D8%A7%D9%85%D8%A7%D8%AF%D9%87-%D8%A8%D9%87-%D8%B2%D8%A8/)

[arman 2012]

سلام

این موضوع قبلا مطرح شده در لینک زیر توضیحات؛ همراه قطعه برنامه موجوده !!

لاگین به برنامه (http://barnamenevis.org/showthread.php?223219-%D8%A7%DB%8C%D8%AC%D8%A7%D8%AF-%D9%81%D8%B1%D9%85-Login-%D8%AF%D8%B1-VB.net-%D8%A8%D8%A7-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-SQL-Serverhttp://)

اینم یه سورس دیگه (http://www.mspsoft.com/1390/11/06/%D8%B3%D9%88%D8%B1%D8%B3-%D9%BE%D8%B1%D9%88%DA%98%D9%87-%D8%B1%D8%A7%D9%8A%DA%AF%D8%A7%D9%86-%D9%81%D8%B1%D9%85-%D9%84%D8%A7%DA%AF%D9%8A%D9%86-%D8%A7%D9%85%D8%A7%D8%AF%D9%87-%D8%A8%D9%87-%D8%B2%D8%A8/)


ببخشید
من هیچ کدومو متوجه نشدم
میشه لطف کنید بیشتر توضیح بدید؟

[asghar2008]

دوست عزیز شما باید با استفاده از دستور Select نام کاربری وکلمه عبور را در SQL Server چک کنید در صورتی که نام کاربری و کلمه عبور در جدول بانک بود وارد برنامه بشه.

یک جدول به نام tbluser داریم که 2 تا فیلد با نام های Username و Password داره

این رشته انتخاب کردن:


str = "select * from tbluser where Username='" + txtuser.Text + "'AND Password='" + txtpass.Text + "'"

بعد یه SqlDataAdapter تعریف کن و با استفاده از اون Dataset رو پر کن.و بعد چک کن که داخل Dataset رکوردی هست یا خیر. اگه بود وارد برنامه بشه و اگه نبود یه پیغام مبنی بر اشتباه بودن یوزر و پسورد نشون بده.

[arman 2012]

ببخشید
من به مشکل بر خوردم
اینم کد هام:

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1




Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
If TextBox1.Text = "" Or TextBox2.Text = "" Then
MsgBox("کامل کنید")
Else

SetData("insert into Login (Pass,[User]) values (N'" & TextBox1.Text & "','" & TextBox2.Text & "')")


MsgBox("موفقیت")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.Focus()

Form1_Load(sender, e)
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load




End Sub





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As SqlConnection
Dim da As SqlDataAdapter
Dim ds As New DataSet
Dim dr As DataRow
Dim cb As SqlCommandBuilder
Dim s1, s2 As String
ds.Clear()
s1 = "Data Source=A-PC\SQL;Initial Catalog=Login;Integrated Security=True"
con = New SqlConnection(s1)
con.Open()
s2 = "select * from Login where User='" & TextBox1.Text & "'"
da = New SqlDataAdapter(s2, con)
da.Fill(ds, "Login")
If ds.Tables("User").Rows.Count = 0 Then
MsgBox("نام کاربری صحیح نمیباشد", MsgBoxStyle.Critical, "کاربر گرامی")
Else
MsgBox("موفقیت")

End If
dr = ds.Tables("Login").Rows.Item(0)
If Trim(dr.Item("Pass")) <> TextBox2.Text Then
MsgBox("کلمه عبور صحیح نمی باشد", MsgBoxStyle.Critical, "کاربر گرامی")
Else
MsgBox("موفقیت")
Exit Sub
End If
End Sub
End Class



ثبت نام درسته ولی لاگین درس نیست