Printable View
برای جستجو می تونی ابتدا بانک را به کنترل ADO یا Dataمتصل کنی بعد اون رکوردی که می خواهی جستجو کنی را به یک Textbox متصل کند و Visible ان راFalse کن بعد Textbox را در یک متغیر قرار بده و بعد
Dim a As String
Data1.Recordset.MoveFirst
Do While Not (Data1.Recordset.EOF)
If Text6.Text = Text5.Text Then
a=msgbox"Found"
Exit Do
Else
Data1.Recordset.MoveNext
End If
Loop
End Sub
یادم رفت بگم در شرط Text6 اونجایه که کلمه جستجو وارد می شود و Text5 همان کنترل مقید متصل به بانکه
سلامنقل قول:
با تشكر از راهنمايي همه دوستان .
فكر كنم با اين يكي يه جورايي متوجه شدم.
Unknowlive اگه روش ديكه اي هست بازم بگو ممنون ميشم.
سلامنقل قول:
با تشكر از راهنمايي همه دوستان .
فكر كنم با اين يكي يه جورايي متوجه شدم.
Unknowlive اگه روش ديكه اي هست بازم بگو ممنون ميشم.
روش اول را کمی تفسیر میکنم تا خوب برات مفهوم بشه این روش را می توان تغیرات بسیاری داد که با فهمیدن آن این کار را می توانید بکنید:
خط1:متغیری از نوع رشته تعریف کردیم
2:با این دستور اشاره گر را به اولین رکورد می بریم تا جستجو از اول شروع شود
3:data1.recordset.eof به معنای اخرین رکورد فایل است که با کلمه Not پشت ان در حلقه تکرار یعنی:تا وقتی که به اخر رکورد نرسیده حلقه در جریان باشد
4:با دستور if شرطی گذاشتیم به معنای اینکه اگر کلمه مورد جستجو(text5.text)برابر با رکورد موردنظر(Text6.text)که در ابتدا حلقه رکورد اول می باشد بود اجازه رفتن به خط 5 را می دهد
5:پیغامی مبتنی بر پیدا شدن را ارائه می دهد
6:چون جستجو انجام شده با این دستور از حلقه خارج می شویم
7:در این خط گفته شده است اگر خط 4 برقرار نبود دستور خط 8 را انجام بده
8:به رکورد بعد از رکورد جاری که شرط جستجو در ان انجام شد می رود یعنی در ابتدا رکورد 1 می باشد اگر در خط 4 شرط برقرار نبود اینجا به رکورد شماره 2 می رود تا...
9:شرط تمام می شود
10:کلمه کلیدی که همراه با Do می باشد
سلام دوست عزيز.نقل قول:
اون كد بالايي تونو فهميدم ولي من مي خوام با استفاده از دستور select و query گرفتن اين جستجو رو انجام بدم يه چيزايي تو مايه هاي اين:
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
Dim rs As ADODB.Recordset
connstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\abolfazl\My Documents\test-vb\project1\db1.mdb;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
cn.Open (connstring)
Set rs = New ADODB.Recordset
اما بعدش رو نميدونم .
و مطمينم كه ميشه آخه يه جايي ديده بودم.