بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
في الوضع المتصل استخدم هذا الكود
dim pass as string
sql = "select count(*) from table1 where user_name='" & user") & "'
cmd.Connection = con
cmd.CommandType = System.Data.CommandType.Text
cmd.CommandText = sql
If cmd.ExecuteScalar = 0 Then
pass = "2"
cmd.Dispose()
con.close
Exit Sub
End If
sql = "select fild1 from table1 where user_name='" & user & "'
cmd.Connection = con
cmd.CommandType = System.Data.CommandType.Text
cmd.CommandText = sql
con.open
dr = cmd.ExecuteReader
Do While dr.Read
If dr.Item("fild1") = "1" Then
pass = "1"
Else
If dr.Item("fild1") = "2" Then
pass = "2"
End If
End If
Loop
dr.Dispose()
dr.Close()
الان اريد تحويل هذا الكود للوضع المنفصل اي استخدام dataadapter و dataset بدلا من datareader