جستجو مثلا نام و نام خانوادگی با ado

[amir_masoud]

سلام

برای جستجو کردن ببا ado ( فرض کنید نام باشه و نام خانوادگی که هر کذوم از اونا می تونه حتی شامل یه حرف از نام یا نام خانوادگی هم باشه ) و نمایش نتایج در data grid باید از چه روشی استفاده کرد و بهترین روش برای این جستجو چیه . اگه ممکنه با یه قطعه کد نمونه منو راهنمایی کنین

با تشکر

[روح اله معینی زاده]

:o با سلام
کد های زیر رو فقط توی قسمت کد نویسی اضافه کن. کار رو با یک برنامه آزمایشی شروع کن. برای این کار یک Standard EXE جدید باز کن و از منوی Project گزینه References رو انتخاب کن. از لیست اون هم گزینه Microsoft ActiveX Data Object 2.5 Library رو انتخاب کن. سپس با زدن کلیدهای کنترل و تی یک کامپوننت از نوع Microsoft DataGrid Control 6.0 انتخاب کن و یک بعد یکی روی صفحه بذار تا بتونی نتایج رو توی اون به نمایش بذاری. حالا برنامه آماده اجراست. قبل از اجرای برنامه مسیر بانک اطلاعاتی خودتو رو در قسمت کانکشن استرینگ تصحیح کن.

Private Sub Form_Load()
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
db.Provider = "Microsoft.Jet.OLEDB.4.0"
db.ConnectionString = "E:\Ruh progs\VB\Telephone\Data.mdb"
db.CursorLocation = adUseClient
db.Open , "Admin"
cmd.CommandText = "SELECT first_name, last_name FROM tels"
db.Execute cmd.CommandText
rs.Open cmd.CommandText, db, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rs.DataSource
DataGrid1.DataMember = Tels
rs.Filter = "first_name LIKE '*محمد*'"
End Sub

این یک روش است که احتمالا خیلی هم باحال نباشه. بهترش اینه که به جای فیلتر، با همان دستور Select، داده های خودت رو از بانک بیرون بکشی.
SELECT first_name, last_name FROM tels WHERE first_name LIKE 'x' AND last_name LIKE 'y'

خطوط انگلیسی رو از چپ به راست باید بخونی و بنویسی. (متاسفانه اینجا درست نشون نمی ده)
با احترام - خدانگهدار

[کم حوصله]

سلام
دوست عزیز آقای معینی زمانی که می خواهید کدی را در برنامه بگذارید در بالای فضایی که امکان تایپ شدن است می توانید در ابتدا کلید کد را زده و بعد از کد نویسی دوباره آن را بزنید تا کد های شما درست نشان داده شود جهت اطلاعات بیشتر از نحوه استفاده از مابقی کلیدها به قسمت راهنما سایت مراجعه کنید