جستجو رکورد در دیتا بیس و دادن پیغام [بایگانی]

goldpower

سه شنبه 02 خرداد 1391, 20:30 عصر

چه طور باید در دیتا بیس جستجو کرد و اگه اون مقدار پیدا کرد با دادن پیغام کار بر متوجه بشه ؟؟؟

abolfazl-z

چهارشنبه 03 خرداد 1391, 10:14 صبح

سلام اگر منظورت اکسس خوب با کد زیر:
Adodc1.Recordset.Find "نام فیلد='" & Text1.Text & "'"
توجه به تک کتیشن داشته باش که تک کتیشن برای فیلد از نوع String می باشد.
اگر باشه میره روی رکورد مورد نظر ایست میکنه وگر نه میره رکورد آخر که میشه با یک دستور If آن را بررسی کرد.
یعنی آخر فایل است.Adodc1.Recordset.EOF = True

saeed2u

سه شنبه 07 شهریور 1391, 10:00 صبح

سلام اگر منظورت اکسس خوب با کد زیر:
Adodc1.Recordset.Find "نام فیلد='" & Text1.Text & "'"
توجه به تک کتیشن داشته باش که تک کتیشن برای فیلد از نوع String می باشد.
اگر باشه میره روی رکورد مورد نظر ایست میکنه وگر نه میره رکورد آخر که میشه با یک دستور If آن را بررسی کرد.
یعنی آخر فایل است.Adodc1.Recordset.EOF = True
دوست عزیز ممنون
اما این دستور یه ایرادی داره و اینکه حتما عبارت جستجو شده باید دقیقا برابر عبارت فیلد باشه
راه حلی دارید که مثلا برای جستجوی کلمه saman اگر samaبنویسیم رکورد مورد نظر رو پیدا کنه؟

sajad_boj70

پنج شنبه 16 شهریور 1391, 18:12 عصر

دوست عزیز ممنون
اما این دستور یه ایرادی داره و اینکه حتما عبارت جستجو شده باید دقیقا برابر عبارت فیلد باشه
راه حلی دارید که مثلا برای جستجوی کلمه saman اگر samaبنویسیم رکورد مورد نظر رو پیدا کنه؟

بله دوست عزیز.
میتونی در text change یا buttom این کد رو بنویسی . فقط توجه کن که اسم بانک و جدول و فیلدهای این کد رو با مشخصات بانک خودت عوض کنی.

Set DataGrid1.DataSource = Adodc1

With Adodc1

.CursorType = adOpenStatic
.LockType = adLockReadOnly

.ConnectionString = "DSN=MS Access Database;DBQ=" & App.Path & "\bank.mdb;UID=admin"

.CommandType = adCmdText

.RecordSource = "SELECT * FROM table1 WHERE name LIKE '%" & Text1.Text"

.Refresh

End With

sajad_boj70

پنج شنبه 16 شهریور 1391, 18:13 عصر

نکته اش تو این قسمته

.RecordSource = "SELECT * FROM table1 WHERE name LIKE '%" & Text1.Text"