這是小弟查詢程式中的一小塊程式

[code cpp]
void __fastcall TForm_main::Edit_supKeyPress(TObject *Sender, char &Key)
{
if (Key == 13)
{
if ((ActiveControl->TabOrder > 2) && (Edit_sup->Text == ""))
{
ShowMessage("不可為空白，請重新輸入");
Edit_sup->SetFocus();
}
else
{
ADOQuery1->SQL->Clear();
ADOQuery1->Close();
ADOQuery1->SQL->Add("select * from pur_work where pur_sup like:pur_sup");
ADOQuery1->Parameters->ParamByName("pur_sup")->Value = Edit_sup->Text '%';
ADOQuery1->ExecSQL();
ADOQuery1->Open();
if (ADOQuery1->IsEmpty())
{
ShowMessage("查無資料，請重新確認");
Edit_sup->Text = "";
Edit_sup->SetFocus();
}
else
{
Form_sup->Show();
Edit_sup->Text = ADOQuery1->FieldByName("pur_sup")->AsString;
}
}
}
}
[/code]

小弟現在的問題是，我在一個Edit上輸入關鍵字，EX:5738九大科技 我只要輸入5738 或者只輸入九大
就秀出Form_sup這個Form裡面做查詢，然後在Form_sup這個Form裡面的DBGrid選擇我要的資料按兩下便會出現在主Form的Edit上
可是我現在就只能查詢到開頭，而不能做隨意關鍵字查詢呢。我有試過'%' Edit_sup '%'還是不行!會出現錯誤~只能把'%'加在後面而已
然後我只要按Enter就會直接把我Form_sup裡面DBGrid的第一個資料放上我主Form的Edit上，我是想要按DBGrid上的資料會隨著我按而更改
試過好幾次了，其他都沒有問題就剩下這個了。請各位前輩們幫我想想辦法~謝謝

編輯記錄

不過你可以把資料寫出到一個暫存值,然後用
temp.AnsiPos("關鍵字"),去找 if (temp.AnsiPos("關鍵字"))有找到去把資料叫出來.

編輯記錄

不好意思，我不太懂你的說法呢!
有沒有辦法像我所要求的做呢?

看你的Code 有點怪怪的
ADOQuery1->ExecSQL();
ADOQuery1->Open();
又ExecSQL() 又 Open() 的， Select 的語法應該只要 Open() 就好了吧

ADOQuery1->SQL->Add("select * from pur_work where pur_sup like:pur_sup");
ADOQuery1->Parameters->ParamByName("pur_sup")->Value = Edit_sup->Text '%';


在like 後面多加個空白，我不確定這是不是會有影響，試看看吧
ADOQuery1->SQL->Add("select * from pur_work where pur_sup like :pur_sup");
ADOQuery1->Parameters->ParamByName("pur_sup")->Value ='%' Edit_sup->Text '%';


或是直接改成
ADOQuery1->SQL->Add("select * from pur_work where pur_sup like '%" Edit_sup->Text "%' ");


手頭上沒有 BCB ，您可以試看看


===================引 用 zoezoe 文 章===================
這是小弟查詢程式中的一小塊程式

[code cpp]
void __fastcall TForm_main::Edit_supKeyPress(TObject *Sender, char &Key)
{
if (Key == 13)
{
if ((ActiveControl->TabOrder > 2) && (Edit_sup->Text == ""))
{
ShowMessage("不可為空白，請重新輸入");
Edit_sup->SetFocus();
}
else
{
ADOQuery1->SQL->Clear();
ADOQuery1->Close();
ADOQuery1->SQL->Add("select * from pur_work where pur_sup like:pur_sup");
ADOQuery1->Parameters->ParamByName("pur_sup")->Value = Edit_sup->Text '%';
ADOQuery1->ExecSQL();
ADOQuery1->Open();
if (ADOQuery1->IsEmpty())
{
ShowMessage("查無資料，請重新確認");
Edit_sup->Text = "";
Edit_sup->SetFocus();
}
else
{
Form_sup->Show();
Edit_sup->Text = ADOQuery1->FieldByName("pur_sup")->AsString;
}
}
}
}
[/code]

小弟現在的問題是，我在一個Edit上輸入關鍵字，EX:5738九大科技 我只要輸入5738 或者只輸入九大
就秀出Form_sup這個Form裡面做查詢，然後在Form_sup這個Form裡面的DBGrid選擇我要的資料按兩下便會出現在主Form的Edit上
可是我現在就只能查詢到開頭，而不能做隨意關鍵字查詢呢。我有試過'%' Edit_sup '%'還是不行!會出現錯誤~只能把'%'加在後面而已
然後我只要按Enter就會直接把我Form_sup裡面DBGrid的第一個資料放上我主Form的Edit上，我是想要按DBGrid上的資料會隨著我按而更改
試過好幾次了，其他都沒有問題就剩下這個了。請各位前輩們幫我想想辦法~謝謝

您好

不用 參數形語法, 直接組字串 試試看

ADOQuery1->SQL->Add("select * from pur_work where pur_sup like '%" edit_sup->text "%'"); <--注意空格, 單雙引號
// ADOQuery1->Parameters->ParamByName("pur_sup")->Value = Edit_sup->Text '%'; <-- 註掉
// ADOQuery1->ExecSQL(); <-- select 是 open 式, 不需要用 execsql.
ADOQuery1->Open();

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

沒錯，之後想說不用參數值直接下就OK了。謝謝你們回答~
至於我會先打ExceSQL 是因為之前都打習慣了啦!習慣兩個一起打出來~^^"