چگونه مي توان ليبلي ايجاد كرد مقدار ديتابيس را وارد كرد

[sheida-peyravi]

در بخش لاگين من كدي دارم كه يوزرو پسورد را مي گيرد كد شخص را ميخواند و در جدول بعدي با استفاده از كد شخص كه در هر دو جدول است كد فعاليت را مي گيرد..من مي خواهم كه كد فعاليت در يك ليبل قرارداده شود تا در هنگام مقايسه در شرط مشكلي نداشته باشم.






strSql5 = " SELECT distinct [action-code] FROM u_users,u_useraction"
strSql5 = strSql5 + " WHERE u_users.[user-code] = u_useraction.[user-code] "
strSql5 = strSql5 + " and password = '" + tbpassword.Text + "' "
If tbpassword.Text <> "" And strSql5 = "3" Then
Me.Close()
ElseIf tbpassword.Text <> "" And strSql5 = "2" Then

Dim F As datagather
F = New datagather
F.Show()
Me.Close()
Else

Dim F As profinform
F = New profinform
F.Show()
Me.Close()
End If

[mohsenaminzare]

اگر منظورت اینه که چه جوری می تونی کد فعالیت رو به بانک bind کنی باید بگم با بقیه کنترل ها (مثل textbox) فرقی نمیکنه فیلد مورد نظر رو به خاصیت تکست label مقید bind کن.

[ALI TT]

از مقادیر Fill شده به DataSet هم میتونی استفاده کنی ، اینطوری :

Label1.Text = DataSet1.Tables(0).Rows(<RowsIndex>)(<ColumnsIndex>).ToString

[sheida-peyravi]

متشكرم دوستان
ولي يك مشكلي است .اين كد در query analyzer درست كار مي كند اما در وي بي از شرطي كه مربوط به مقداري كه من وارد كردم مي گذرد و در else مي رود .يعني من هر چه وارد كنم else اجرا مي شود .
در Quick watch هم يوزروپسورد را درست نشان مي دهد.
اشكال از كجاست؟؟؟؟؟؟؟؟؟؟:متعجب:

[mohsenaminzare]

اگر نمونه کد رو بذاری شاید بهتر بشه کمک کرد.

[sheida-peyravi]

اگر نمونه کد رو بذاری شاید بهتر بشه کمک کرد.
اين هم كد :





strSql5 = " SELECT distinct [action-code] FROM u_users,u_useraction"
strSql5 = strSql5 + " WHERE u_users.[user-code] = u_useraction.[user-code] "
If tbpassword.Text <> "" Then

strSql5 = strSql5 + " and password = '" + tbpassword.Text + "' "
End If

lbactioncode.DataBindings.Add("Text", dsTest5, "[action-code]")
If lbactioncode.Text = "3" Then

Dim appName As String = Application.ProductName & "."
Dim mForm As String = "Form3"
Dim f As studeform = DirectCast(Type.GetType(appName & mForm).InvokeMember(mForm, Reflection.BindingFlags.CreateInstance, Nothing, Nothing, Nothing), Form)
Me.Close()
ElseIf lbactioncode.Text = "2" Then

Dim F As datagather
F = New datagather
F.Show()
Me.Close()
ElseIf lbactioncode.Text = "" Then

Dim F As datagather
F = New datagather
Else

Dim F As profinform
F = New profinform
F.Show()
Me.Close()