afaghmoh
سه شنبه 01 آذر 1384, 12:43 عصر
من دارم برنامه ای می نویسم برای گرفتنه کلمه عبور و پسورد برای وارد شدن به صفحه اطلاعات دستور پیدا شدن رکورد را می نویسم می خواهم چک کنم اگر نبود کار دیگری کند اما نمیدانم چطور بفهمم که پیدا رکورد پیدا نشده باید بعد از نوشتن select و اتصال به بانک چه کنم.
Dim selectSql As String
selectSql = "Select * from pass where id = '& t1.Text' And pass = '& t2.Text'"
con = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = c:\inetpub\wwwroot\savabegh\bank\pass.mdb")
cmdSelect = New OleDbCommand(selectSql, con)
con.Open()
dr = cmdSelect.ExecuteReader()
dr.Read()
l3.Text = dr("id")
l4.Text = dr("pass")
If l3.Text = String.Empty And l4.Text = String.Empty Then
l5.Visible = True
Else
l1.Text = "کد استاد"
l2.Visible = False
l6.Visible = False
t2.Visible = False
sabt.Visible = False
vorod.Visible = True
End If
con.Close()
dr.Close()
End Sub
Dim selectSql As String
selectSql = "Select * from pass where id = '& t1.Text' And pass = '& t2.Text'"
con = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = c:\inetpub\wwwroot\savabegh\bank\pass.mdb")
cmdSelect = New OleDbCommand(selectSql, con)
con.Open()
dr = cmdSelect.ExecuteReader()
dr.Read()
l3.Text = dr("id")
l4.Text = dr("pass")
If l3.Text = String.Empty And l4.Text = String.Empty Then
l5.Visible = True
Else
l1.Text = "کد استاد"
l2.Visible = False
l6.Visible = False
t2.Visible = False
sabt.Visible = False
vorod.Visible = True
End If
con.Close()
dr.Close()
End Sub