arsalansalar
سه شنبه 08 آبان 1386, 00:01 صبح
سلام
من از کدهای زیر برای جستجو استفاده می کنم . به درستی هم کار میکند اما مشکل من اینجاست که می خواهم وقتی رکوردستی پیدا نشد یک پیغام دهد ولی نمیدانم از چه کدی
و در کجای برنامه از آن باید استفاده کنم
Dim b As OleDbConnection
Dim cmdSelect As OleDbCommand
Dim dr As OleDbDataReader
Dim selectSql As String
Dim a As MsgBoxResult
Dim ff As String
ff = InputBox("لطفا نام مکان مورد نظر خود را وارد کنید")
t7.Text = ff
selectSql = "Select * From s Where makan = '" & ff & "'"
b = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = C:\Documents and Settings\arsalan\Desktop\panel\sema.mdb")
cmdSelect = New OleDbCommand(selectSql, b)
b.Open()
dr = cmdSelect.ExecuteReader()
dr.Read()
t1.Text = dr("makan")
t2.Text = dr("tozih")
t3.Text = dr("shahr")
t4.Text = dr("msh")
t5.Text = dr("adress")
t6.Text = dr("tel")
dr.Close()
b.Close()
من از کدهای زیر برای جستجو استفاده می کنم . به درستی هم کار میکند اما مشکل من اینجاست که می خواهم وقتی رکوردستی پیدا نشد یک پیغام دهد ولی نمیدانم از چه کدی
و در کجای برنامه از آن باید استفاده کنم
Dim b As OleDbConnection
Dim cmdSelect As OleDbCommand
Dim dr As OleDbDataReader
Dim selectSql As String
Dim a As MsgBoxResult
Dim ff As String
ff = InputBox("لطفا نام مکان مورد نظر خود را وارد کنید")
t7.Text = ff
selectSql = "Select * From s Where makan = '" & ff & "'"
b = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source = C:\Documents and Settings\arsalan\Desktop\panel\sema.mdb")
cmdSelect = New OleDbCommand(selectSql, b)
b.Open()
dr = cmdSelect.ExecuteReader()
dr.Read()
t1.Text = dr("makan")
t2.Text = dr("tozih")
t3.Text = dr("shahr")
t4.Text = dr("msh")
t5.Text = dr("adress")
t6.Text = dr("tel")
dr.Close()
b.Close()