procedure TForm1.button1Click(Sender: TObject);
var
hard:string;
begin
hard:=Edit1.Text;
with simpledataset1.Connection do
begin
DriverName := 'dbxmysql';
GetDriverFunc := 'getSQLDriverMYSQL50';
LibraryName := 'dbxopenmysql50.dll';
VendorLib := 'libmysql.dll';
Params.Append('HostName=localhost');
Params.Append('Database=test' );
Params.Append('User_Name=root');
Params.Append('Password=root');
end;
simpledataset1.DataSet.CommandText :='select name from pc_con where hardinfo=''hard''';{這句的語法是不是有錯呢？不報錯，也沒有輸出}
simpledataset1.Open;
end;

不報錯也沒有輸出，哪里錯了，高手們指教。。。

編輯記錄

simpledataset1.DataSet.CommandText :='select name from pc_con where hardinfo=''hard''';{這句的語法是不是有錯呢？不報錯，也沒有輸出}
改成
simpledataset1.DataSet.CommandText :='select name from pc_con where hardinfo=''' hard ''''; // 請注意單引號的數目

您的原寫法是找出 hardinfo 為 [hard 這四個字母] 的資料, 語法正確所以沒報錯
因為 hard 是字串變數, 您的原意應該是 : 找 hardinfo 為 [hard 這個變數所含的值] 的資料
所以要把 hard 的值加到 commandtext 字串裏.

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

編輯記錄

thank you very much~~~