PDA

View Full Version : سوال: Select Where Like OR Filter



UpgradeVB6Code
چهارشنبه 25 اردیبهشت 1387, 20:32 عصر
سلام
من يه مشكلي با جستجوي فيلد عددي دارم
ميخوام وقتي توي TextBox مربوط به سرچ تايپ بشه 2 تمام ركورد هايي كه فيلد Code آنها با 2 شروع ميشه انتخاب بشه يا فيلتر بشند ؟؟؟

من از اين كد ها استفاده ميكنم اما زياد خوب به نتيجه نميرسه !؟
به نظر شما كدوم بهتره و جواب ميده



'Select * From Table1 Where Code = " & txtSearch.Text
'Select * From Table1 Where Code like " & txtSearch.Text
'Select * From Table1 Where Code like " & txtSearch.Text & "*"

'Rec.Filter = "Code = " & txtSearch.Text
'Rec.Filter = " Code like " & txtSearch.Text
'Rec.Filter = " Code like " & txtSearch.Text & "*"

(براي فيلدهاي Text مشكلي نيست اما براي فيلدهاي عددي مشكل دارم)
در ضمن من هر چي سرچ ميكنم پيغام ميده موردي يافت نشد

mrtzxxx
چهارشنبه 25 اردیبهشت 1387, 20:53 عصر
سلام فکر کنم با اين مثال کارت راه بيفته برنامه فيلد name رو سرچ مي کنه عدد بدي يا حرف اون برات پيدا مي کنه فقط برنامه رو تو درايو E راه بنداز

vbhamed
چهارشنبه 25 اردیبهشت 1387, 21:45 عصر
سلام


Dim Sql

Sql = "Select * From Table1 Where Left(CStr(fldName & ''), Len('" & txtSearch & "')) = '" & txtSearch & "'"

vahidm
چهارشنبه 25 اردیبهشت 1387, 21:57 عصر
با سلام به نظر من قسمت اول که نوشتی خیلی بهتره
و اینکه منظورتون از به نتیجه نرسیدن یعنی چه؟؟؟؟
موفق باشید
ببخشید

UpgradeVB6Code
پنج شنبه 26 اردیبهشت 1387, 11:17 صبح
با سلام به نظر من قسمت اول که نوشتی خیلی بهتره
و اینکه منظورتون از به نتیجه نرسیدن یعنی چه؟؟؟؟
موفق باشید
ببخشید
منظورم اينه كه يه فيلدي توي ديتا بيس هست كه ميخوام بر اساس آن فيلد سرچ كنم
اين فيلد عددي هستش مثلا مقدار اين فيلد در يك ركورد 123 هست و در ركورد بعدي 124هست ميخوام وقتي 12 رو تايپ ميكنم اين دو ركورد انتخاب بشند وقتي رقم سوم رو وارد كردم اون تك ركورد مورد نطر انتخاب بشه

اون دستوراتي كه نوشتم اكر فيلد از نوع Text باشه درست كار ميكنند اما براي فيلد عددي نه

نميدونم دستورات sql اشكال داره يا اشكال از جاي ديگست ؟؟؟
كد اقا حامد رو هم متوجه نشدم چيه !

UpgradeVB6Code
پنج شنبه 26 اردیبهشت 1387, 13:47 عصر
سلام


Dim Sql

Sql = "Select * From Table1 Where Left(CStr(fldName & ''), Len('" & txtSearch & "')) = '" & txtSearch & "'"

تازه فهميدم اين كد چيه :گیج:
ممنون درست شد