کمک بانک اطلاعاتی

[amin_gh68]

دوستان سلام
میخوام یه ثفحه لوگین درست کنم که کاربر بتونه از داخل برنامه user , pass خودش عوض کنه خب داخل برنامه رو وصل کردم به یه local database حالا میخوام تو صفحه لوگین چک کنه user , pass
اما نمیدونم چه جوری؟؟؟؟
میخواستم فیلد یوزرو و پسو جدا جدا بریزه تو متغییر بهد چک کنه ولی اونم بلد نیستم چه جوری از بانک بریزم تو متغییر
اگه کمک کنید ممنون میشم

[ehsan-68]

سلام ببین این به دردت میخوره ...


Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
If UsernameTextBox.Text = "" Or PasswordTextBox.Text = "" Then
MessageBox.Show(" لطفاً نام کاربری و کلمه عبور را وارد کنید ", " !اخطار ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Try
Dim isValidUname As Boolean
isValidUname = rwd.checkUserPass("SELECT * FROM Users where usercod='" & UsernameTextBox.Text & "' and pass='" & PasswordTextBox.Text & "'")
If isValidUname = True Then
Me.Hide()
Me.DialogResult = System.Windows.Forms.DialogResult.Ok

Mainform.Show()
End If
Finally
End Try
End If

[nima_8m]

اینم تست کن کامله

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
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

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
MsgBox("اگر فعالیت ما را مفید دیدید , ام اس پي سافت را به دوستانتان معرفی کنید")
ds.Clear()
s1 = "data source=127.0.0.1;initial catalog=up;integrated security=sspi;"
con = New SqlConnection(s1)
con.Open()
s2 = "select * from up where un='" & TextBox3.Text & "'"
da = New SqlDataAdapter(s2, con)
da.Fill(ds, "up")
If ds.Tables("up").Rows.Count = 0 Then
MsgBox("نام کاربری صحیح نمیباشد", MsgBoxStyle.Critical, "کاربر گرامی")
Exit Sub
End If
dr = ds.Tables("up").Rows.Item(0)
If Trim(dr.Item("ps")) <> TextBox2.Text Then
MsgBox("کلمه عبور صحیح نمی باشد", MsgBoxStyle.Critical, "کاربر گرامی")
Exit Sub
End If
Form2.Show()
Close()
End Sub
End Class

[amin_gh68]

فقط این قسمتو میخواستم

isValidUname = rwd.checkUserPass("SELECT * FROM Users where usercod='" & UsernameTextBox.Text & "' and pass='" & PasswordTextBox.Text & "'"

ولی میشه تو local database از SELECT * FROM استفاده کرد
اخه همش به صورت wizard بود