ارتباط با بانك اطلاعاتي

[Unknowlive]

برای جستجو می تونی ابتدا بانک را به کنترل 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

[Unknowlive]

یادم رفت بگم در شرط Text6 اونجایه که کلمه جستجو وارد می شود و Text5 همان کنترل مقید متصل به بانکه

[amie hossein]

برای جستجو می تونی ابتدا بانک را به کنترل 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

سلام
با تشكر از راهنمايي همه دوستان .
فكر كنم با اين يكي يه جورايي متوجه شدم.
Unknowlive اگه روش ديكه اي هست بازم بگو ممنون ميشم.

[amie hossein]

برای جستجو می تونی ابتدا بانک را به کنترل 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

سلام
با تشكر از راهنمايي همه دوستان .
فكر كنم با اين يكي يه جورايي متوجه شدم.
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 می باشد

[amie hossein]

روش اول را کمی تفسیر میکنم تا خوب برات مفهوم بشه این روش را می توان تغیرات بسیاری داد که با فهمیدن آن این کار را می توانید بکنید:
خط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
اما بعدش رو نميدونم .
و مطمينم كه ميشه آخه يه جايي ديده بودم.