بهروز عباسی
پنج شنبه 20 بهمن 1390, 21:36 عصر
درود به تمام برنامه نویس های گل:لبخند:
من در حال نوشتن یک برنامه مدیریت سورس کد هستم همه چیزش امادست بجز جستجو:متفکر:
من میخوام اگه کاربر حتی قسمتی از یک کد یا هرچیزی که داخل دیتا بیس هست رو جسجو کرد خروجی مناسب رو ارائه بده
از این کد استفاده کردم ولی جواب نداد.
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Clear;
WITH ADOQuery1 do
begin
with SQL do
begin
Clear;
Add('SELECT * FROM Sourcecode WHERE (subject LIKE "'+Edit1.Text+'%")');
end;
Open;
while not Eof do
begin
ListBox1.Items.Add(fieldbyname('subject').AsString );
Next;
end;
end;
end;
من در حال نوشتن یک برنامه مدیریت سورس کد هستم همه چیزش امادست بجز جستجو:متفکر:
من میخوام اگه کاربر حتی قسمتی از یک کد یا هرچیزی که داخل دیتا بیس هست رو جسجو کرد خروجی مناسب رو ارائه بده
از این کد استفاده کردم ولی جواب نداد.
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.Clear;
WITH ADOQuery1 do
begin
with SQL do
begin
Clear;
Add('SELECT * FROM Sourcecode WHERE (subject LIKE "'+Edit1.Text+'%")');
end;
Open;
while not Eof do
begin
ListBox1.Items.Add(fieldbyname('subject').AsString );
Next;
end;
end;
end;