نوشتن کوئری

[mahmood_hedesh]

سلام. من باید یه پروژه با VB.net بنویسیم و پایگاه داده آن هم اکسس باشه. من و ایتدا یه فرم login طراحی کردم که کاربر شناسایی بشود.

مشکلم این است که من تازه کارم و اصلا نمیدونم چطوری باید کوئری در VB اجرا کنم.
من یاد گرفتم که کوئری در TableAdapter اجرا کنم اما نمی دونم چطور در برنامه و فرم لوگین اجرا کنم؟

لطف کنید راهنمایی کنید و اگر میشود این فرم لوگین رو هم توضیح بدهید که کوئری را چخ جوری در فرم ایجاد کنم.

[amirzandi]

Dim conStr as string = "ConnectionString"
dim con as new sqlConnection(con)
dim cmd as new SqlCommand("SELECT * FROM [UserTable] WHERE (username = @username) AND (password = @password)", con)
cmd.addparameterswithvalue("@username" , me.usernameTextBox.text)
cmd.paddparameterswithvalue("@password" , me.PasswordTextBox.text)
dim da as new SqlDataAdapter(cmd)
dim dt as new DataTable
da.fill(dt)
if dt.rows.count > 0
'login ok
Else
'login not ok
End If

[mahmood_hedesh]

این رو کجا تعریف کنم؟
SqlDataAdapter
SqlCommand
sqlConnection

ممنون

[amirzandi]

یعنی چی کجا تعریف کنی؟

وقتی

Import System.Data
Import System.Data.SqlClient

بزنی میان

[mahmood_hedesh]

دوست عزیز من Import کردم اما از addparameterswithvalue و paddparameterswithvalue ایراد میگیرد مبنی بر اینکه: این دو پارامتر عضو Import ها نیستند و اینکه پارامتر con را ایراد میگیره و ایرادش این هست که SqlConncetion در قسمت SqlClient نمیتواند به String تبدیل شود؟

[amirzandi]

نمونه کد تون رو بفرستین چک کنم....

[amirzandi]

درست گفتی ایراد از کد من بود... ببخشید:


Imports System, System.Data, System.Data.SqlClient
Public Class Form1
Private CnString As String = My.Settings.Database.ToString
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim con As New SqlConnection(CnString)
Dim cmd As New SqlCommand("SELECT * FROM UserID WHERE (username = @user) AND (password = @pass)", con)
cmd.Parameters.AddWithValue("@pass", Me.TextBox2.Text)
cmd.Parameters.AddWithValue("@user", Me.TextBox1.Text)
Dim da As New SqlDataAdapter(cmd)
Dim dt As New DataTable
da.Fill(dt)

End Sub
End Class