فیلتر هوشمند یک محدوده در Adotable

[beh.tehrani]

سلام
من یک بانک اکسس که دارای یک تیبل و 3 فیلد دارم.
فیلدهای من به ترتیب به نام های فیلد 1 و فیلد 2 و فیلد 3 می باشد که رکوردهای موجود در فیلد 1 و 2 همگی یکسری آی پی هستند و فیلد 3 شامل یکسری کدهای کشورها می باشد.


Filed1 Field2 Field3
86.62.1.0 86.62.5.231 NG
86.62.5.232 86.62.5.243 IQ
86.62.5.244 86.62.5.247 A2

حال می خواهم اگر در شی ادیت باکس برای مثال این آی پی 86.62.3.12 وارد شد بررسی شود که اگر این آی پی در محدوده بین یکی از فیلدهای 1 و 2 است آن محدوده فیلتر شود.
مثلا آی پی 86.62.3.12 در محدوده بین فیلد 1 و 2 سطر اول می باشد پس باید سطر اولی فیلتر شود و تنها این سطر در Grid نمایش داده شود. به این شکل من می توانم کد کشوری آی پی هایی که در ادیت باکس وارد می کنم متوجه شوم.
البته تعداد سطرهای این تیبل بیش از 100.000 است که تمامی کشورها و محدوده های آی پی را شامل میشه.

سپاس

[Mahmood_M]

کافیه بررسی کنید که مقدار Field1 از مقدار وارد شده کمتر و مقدار Field2 از مقدار وارد شده بیشتر باشه :
در ADOQuery
'SELECT * FROM TableName WHERE Field1 <= ' + QuotedStr(Edit1.Text) + ' AND Field2 >= ' + QuotedStr(Edit1.Text)
در ADOTable
Filter = 'Field1 <= ' + QuotedStr(Edit1.Text) + ' AND Field2 >= ' + QuotedStr(Edit1.Text)
موفق باشید ...

[beh.tehrani]

سلام
مرسی نتیجه داد اما یه سوال الان وقتی یک آی پی را وارد می کنم فیلتر انجام میشه و 3 نتیجه را نشان می دهد که از این 3 نتیجه نیز فقط 1 نتیجه جواب من است.
حالا می خواهم بگونه ای این فیلتر انجام بشه که محدوده تنگتر بشه که فقط همون نتیجه من نشون داده بشه.
مثلا وقتی من 115.248.234.251 را فیلتر می کنم 3 نتیجه زیر که در این محدوده ها است فیلتر میشن که جواب من آخری است.

11.0.0.0--------------12.1.52.63
115.24.0.0-----------115.29.255.255
115.240.0.0----------115.255.255.255


مرسی

[MohsenB]

با سلام خدمت آقای تهرانی


دوستان درست راهنمایی کردن فقط من یه نکته کوچیک بگم :

تو روش دوستان دوتا رشته با هم مقایسه میشن ، خوب اگه این دوتا رشته یه سبک یا اندازه نداشته باشن تو مقایسه رشته ای مثلا بین دو عدد "2" و "10" عدد "2" بزرگتر نتیجه میشه ، برای حل این مشکل شما باید عدد دو رو به سبک یا اندازه عدد ده نشون بدین یعنی "02" .

پس شما باید یه اصلاحی تو جدولتون انجام بدین.
برا مثال آی پی 192.16.0.12 رو بصورت 192.016.000.012 بنویسید .
حالا بعد از جستجو و دریافت نتیجه شما این آی پی رو به حالت درستش تبدیل کنید.



وطن يعني گذشته حال فردا
تمام سهم یک ملت ز دنیا

وطن يعني چه آباد و چه ويران
وطن يعني همین جا یعنی ایـران

[beh.tehrani]

سلام
با تشکر از محسن عزیز
با توجه به اینکه جدول من بیش از 100.000 رکورد داخلش است و کار بسیار سختی است که بخواهد درست شود. راه حل دیگر یا روش خاصی به ذهنتون میرسه که بشه این مسئله را حل کرد

مرسی از شما دوستان

[یوسف زالی]

سلام.
بهترین کار اینه:
یک تابع بنویسید که فرمت IP شما رو تبدیل کنه به باینری متناظرش.

create function IP2Decimal(@IP varchar(15))
returns decimal
as
begin
declare @IP_1 decimal
declare @IP_2 decimal
declare @IP_3 decimal
declare @IP_4 decimal
set @IP_1 =substring(@IP, 1,CHARINDEX('.', @IP, 1)-1)
set @IP =substring(@IP,CHARINDEX('.', @IP, 1)+1,LEN(@IP))
set @IP_2 =substring(@IP, 1,CHARINDEX('.', @IP, 1)-1)
set @IP =substring(@IP,CHARINDEX('.', @IP, 1)+1,LEN(@IP))
set @IP_3 =substring(@IP, 1,CHARINDEX('.', @IP, 1)-1)
set @IP_4 =substring(@IP,CHARINDEX('.', @IP, 1)+1,LEN(@IP))
return @IP_1 * 256 * 256 * 256 + @IP_2 * 256 * 256 + @IP_3 * 256 + @IP_4
end


و در فیلترتون به راحتی Between می گیرید!
where dbo.IP2Decimal(Field)between dbo.IP2Decimal(Field1)and dbo.IP2Decimal(Field2) -- so easy

مثال:
print dbo.IP2Decimal('192.168.0.21') -- wow

[MohsenB]

با سلام دوباره

یه برنامه بنویسید که بتونه اطلاعات جدول رو درست کنه .

مثل این کد:



procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
ts1,ts2 :string;
// تابع تبدیل ------------------------------------
function txt2ip(txt :string):string
begin
txt:= txt + '.';
for i:= 1 to 4 do
for j:= (Pos('.',Copy(txt,((i-1)*4)+1,4))+((i-1)*4)) to (i*4)-1 do
Insert('0',txt,((i-1)*4)+1);
Delete(txt,Length(txt),1);
Result:= txt;
end;
//-------------------------------------------------
begin
with adods do begin
CommandText:= 'Select * From table';
Open;
First;
while not(Eof) do begin
ts1:= txt2ip(FieldByName('Field1').AsString);
ts2:= txt2ip(FieldByName('Field2').AsString);
Edit;
FieldByName('Field1').AsString:= ts1;
FieldByName('Field2').AsString:= ts2;
Post;
Next;
end;
Close;
end;
end;


بعد از این جدول اصلاح شده استفاده کنید

موفق و پیروز باشید.