rezabnm
جمعه 20 آذر 1388, 00:45 صبح
سلام به مهندسان بازم :لبخند:منم با يه سوال جديد موضوع از اين قرار كه من مي خوام از دوtextbox مقداري كه وارد ميشه خوانده بشه و اگه در ديتابيس وجود داشت به كاربر اجازه ورود داده بشه من روش كارم رو اين توري ترسيم كردم كه از كاربر ميخوام كه در text box ها مقداري رو وارد كنه و سپس اون مقدار هاي وارد شده در داخل دو متغير از جنس stringريخته ميشن و سپس با استفاده از sqldatareader و دستور whileتمام ركورد هاي يه جدول خونده ميشن و با اون متغير اگر برابر بود اجازه ورود داده ميشه وگرنه كه ميگه رمزشما صحيح نبود حالا نكته جالب اينجاست كه من تموم اين كارارو انجام دادم ولي هرچه قدر رمز صحيح رو ميزدم ميديدم كه همش پيغام ميده كه رمز شما صحيح نيست!!!!!:عصبانی++:(جالبه ها منم با اين برنامه نوشتنم)وقتي براي اينكه ببينم از ديتابيس درست خونده ميشه يانه آدرس اونreader.read("username").tostring()
كه به تكس بكس پايني ميدادم ميديدم كه مقدار جلوي چشمم و خونده شده ولي رد ميكنه:متعجب: كوپ كردم :اشتباه:اين ديگه چه جورشه! :متعجب:حالا اگه كسي دليلش رو ميدونه بگه ممنون ميشم.
اينم كدم:
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Sub New
Sub reader()
Dim bnn As New objconnction
Dim stri, bb As String
bnn.conn.Open()
If TextBox1.Text.Length <= 0 Then
MsgBox("لطفا نام خود را وارد كنيد", MsgBoxStyle.OkOnly)
Else
bnn.dread = bnn.cmd.ExecuteReader
While bnn.dread.Read()
stri = TextBox1.Text
bb = bnn.dread("username").ToString()
If bb <> stri Then
TextBox2.Text = bb
MsgBox("رمز شما صحيح است", MsgBoxStyle.OkOnly)
Else
TextBox1.Clear()
MsgBox("رمز شما صحيح نيست", MsgBoxStyle.OkOnly)
Exit While
End If
End While
End If
bnn.conn.Close()
End Sub
Public Class objconnction
Private path As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\reza\My Documents\Visual Studio 2005\Projects\test1\test1\infoentekabat.mdf;Integr ated Security=True;User Instance=True"
Public conn As SqlConnection = New SqlConnection(path)
Private str As String = "SELECT * FROM info_user"
Public cmd As SqlCommand = New SqlCommand(str, conn)
Public dread As SqlDataReader
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
reader()
End Sub
End Class
كه به تكس بكس پايني ميدادم ميديدم كه مقدار جلوي چشمم و خونده شده ولي رد ميكنه:متعجب: كوپ كردم :اشتباه:اين ديگه چه جورشه! :متعجب:حالا اگه كسي دليلش رو ميدونه بگه ممنون ميشم.
اينم كدم:
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Sub New
Sub reader()
Dim bnn As New objconnction
Dim stri, bb As String
bnn.conn.Open()
If TextBox1.Text.Length <= 0 Then
MsgBox("لطفا نام خود را وارد كنيد", MsgBoxStyle.OkOnly)
Else
bnn.dread = bnn.cmd.ExecuteReader
While bnn.dread.Read()
stri = TextBox1.Text
bb = bnn.dread("username").ToString()
If bb <> stri Then
TextBox2.Text = bb
MsgBox("رمز شما صحيح است", MsgBoxStyle.OkOnly)
Else
TextBox1.Clear()
MsgBox("رمز شما صحيح نيست", MsgBoxStyle.OkOnly)
Exit While
End If
End While
End If
bnn.conn.Close()
End Sub
Public Class objconnction
Private path As String = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\reza\My Documents\Visual Studio 2005\Projects\test1\test1\infoentekabat.mdf;Integr ated Security=True;User Instance=True"
Public conn As SqlConnection = New SqlConnection(path)
Private str As String = "SELECT * FROM info_user"
Public cmd As SqlCommand = New SqlCommand(str, conn)
Public dread As SqlDataReader
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
reader()
End Sub
End Class