دستورات sql در vb.net

[leila71]

در برنامه vb.net می خوام با بانک sql ارتباط برقرار کنم البته با کدنویسی
یک فرم login طراحی کردم می خوام نام کاربری و کلمه عبور رو که وارد می کنم چک کرده و اگر این کلمه عبور و نام کاربری مساوی همان نام کاربری و کلمه عبوری بود که در بانک sql است درست بود وارد فرم دیگری شود.
لطفا هر کی می تونه هر چه سریعتر جواب بده

:گریه::گریه::گریه::گریه::گریه: :گریه::گریه::گریه::گریه:

[alimanam]

با سلام

در دیتابیس خودتون باید یک جدول ایجاد کنین به نام userinfo ( یا هر اسمی که به نظرتون بهتره ) بعد طبق کدها دوتا فیلد به نام userid و userpass ایجاد کنین ( اگه فیلد دیگری هم برای دادن سطح دسترسی به کاربران میخواین میتونین ایجاد کنین ) و از کدهای زیر به عنوان الگو استفاده کنین . نام دیتابیس رو یادتون باشه به تناسب نام دیتابیس خودتون تغییر نام بدین . در ضمن اگه دقت کرده باشین من کانکشن استرینگ رو جوری نوشتم که دیتابیس رو از کنار فایل اجرایی میخونه یعنی اینکه فایل های دیتابیس باید کنار فایل اجرایی باشه ( به دلیل اینکه فعلاً نمیتونم از فایل های sql روی سیستمم استفاده کنم پروژه رو براتون ضمیمه نکردم چون نمیتونم دیتابیس ایجاد کنم مشکل داره سیستمم )

Imports System.Data.SqlClient
Public Class Form1

Private cnnString As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirector y|\mydb.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True"

Private Sub btn_Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Login.Click
Try
If txtPassword.Text = "" Or txtUsername.Text = "" Then Beep() : Exit Sub
Dim dAdapter As New SqlDataAdapter("Select userid ,userpass from userinfo where userid='" & txtUsername.Text.Trim & "' And userpass='" & txtPassword.Text.Trim & "'", cnnString)
Dim dt As New DataTable
dAdapter.Fill(dt)
If dt.Rows.Count = 0 Then
MsgBox("نام کاربری یا/و معتبر نیست", MsgBoxStyle.Exclamation)
Else
Me.Hide()
Form2.Show()
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
End Sub

End Class

موفق باشید./

[leila71]

مرسی دوست عزیز