mohammad.heydaree
سه شنبه 22 آذر 1390, 23:49 عصر
با سلام
دوستان بنده صفحه ای رو با زبان ویژیال بیسیک نت 2010 طراحی کرده ام که به یک بانک اطلاعاتی متصل است و حالا میخواهم که کاربرم با ورود رمز عبور و نام کاربری وارد سیستم من شود
از کد زیر استفاده کرده ام که بخش
Read = dbUp.ExecuteReader
خطا میگیرد
کد کامل را میگزارم لطفا بنده ا راهنمایی فرمایید.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DbCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\mohammad\Desktop\taxi\taxi.mdb"
DbCon.Open()
dbUp.Connection = DbCon
dbUp.CommandType = CommandType.Text
dbUp.CommandText = "Select * from LOGIN where ID=yes and Pass=no "
dbUp.Parameters.Add("ID", Data.OleDb.OleDbType.Variant)
dbUp.Parameters.Add("Pass", Data.OleDb.OleDbType.Variant)
dbUp.Parameters("ID").Value = usertxt.Text
dbUp.Parameters("Pass").Value = passTxt.Text
Read = dbUp.ExecuteReader
With Read
If .Read Then
Me.Hide()
Form2.Show()
Else
usertxt.Clear()
passTxt.Clear()
MessageBox.Show("نام کاربری و رمز عبور وارد شده صحیح نیست")
usertxt.Focus()
End If
End With
End Sub
End Class
دوستان بنده صفحه ای رو با زبان ویژیال بیسیک نت 2010 طراحی کرده ام که به یک بانک اطلاعاتی متصل است و حالا میخواهم که کاربرم با ورود رمز عبور و نام کاربری وارد سیستم من شود
از کد زیر استفاده کرده ام که بخش
Read = dbUp.ExecuteReader
خطا میگیرد
کد کامل را میگزارم لطفا بنده ا راهنمایی فرمایید.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DbCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\mohammad\Desktop\taxi\taxi.mdb"
DbCon.Open()
dbUp.Connection = DbCon
dbUp.CommandType = CommandType.Text
dbUp.CommandText = "Select * from LOGIN where ID=yes and Pass=no "
dbUp.Parameters.Add("ID", Data.OleDb.OleDbType.Variant)
dbUp.Parameters.Add("Pass", Data.OleDb.OleDbType.Variant)
dbUp.Parameters("ID").Value = usertxt.Text
dbUp.Parameters("Pass").Value = passTxt.Text
Read = dbUp.ExecuteReader
With Read
If .Read Then
Me.Hide()
Form2.Show()
Else
usertxt.Clear()
passTxt.Clear()
MessageBox.Show("نام کاربری و رمز عبور وارد شده صحیح نیست")
usertxt.Focus()
End If
End With
End Sub
End Class