sheida-peyravi
جمعه 04 اردیبهشت 1388, 03:15 صبح
سلام دوستان
من دو کد دارم که نمی فهمم چرا کارش رو درست انجام نمی ده , اگر ممکنه راهنمایی ام کنید.
من یک فرم دارم که باید مقداری را از دیتابیس بخواند و بر اساس آن عدد صفحه ای را باز کند (اگر مقدار 3 بود صفحه 1 اگر 2 صفحه 2 و ...........)
دستور select را در SQL امتحان کردم درست کار میکند . من می خواهم پس از Select مقدار را در متغیر x قرار دهد اما این کار را نمی کند.
strSql5 = " SELECT distinct u_useraction.[action-code] from [DB-university].[dbo].[u_users],[DB-university].[dbo].[u_useraction]"
strSql5 = strSql5 + " where [DB-university].[dbo].[u_users].[user-code]=[DB-university].[dbo].[u_useraction].[user-code] "
If tbpassword.Text <> "" Then
strSql5 = strSql5 + " and password = '" + tbpassword.Text + "' "
End If
Dim x As Integer = Convert.ToInt32(dsTest5.Tables.Item("action-code"))
If x = "3" Then
Dim F As New studeform
F.Show()
ElseIf x = "2" Then
من دو کد دارم که نمی فهمم چرا کارش رو درست انجام نمی ده , اگر ممکنه راهنمایی ام کنید.
من یک فرم دارم که باید مقداری را از دیتابیس بخواند و بر اساس آن عدد صفحه ای را باز کند (اگر مقدار 3 بود صفحه 1 اگر 2 صفحه 2 و ...........)
دستور select را در SQL امتحان کردم درست کار میکند . من می خواهم پس از Select مقدار را در متغیر x قرار دهد اما این کار را نمی کند.
strSql5 = " SELECT distinct u_useraction.[action-code] from [DB-university].[dbo].[u_users],[DB-university].[dbo].[u_useraction]"
strSql5 = strSql5 + " where [DB-university].[dbo].[u_users].[user-code]=[DB-university].[dbo].[u_useraction].[user-code] "
If tbpassword.Text <> "" Then
strSql5 = strSql5 + " and password = '" + tbpassword.Text + "' "
End If
Dim x As Integer = Convert.ToInt32(dsTest5.Tables.Item("action-code"))
If x = "3" Then
Dim F As New studeform
F.Show()
ElseIf x = "2" Then