Question

IT的另一项任务。问题是：

btnSearch：用户必须能够通过输入图书标题来搜索图书。使用输入框从用户获取标题。显示标题和ISBN号

我有多个表的数据库，每个表都有多个列。书名在tblBooks表中。

这是我目前的Delphi代码：

procedure TfrmLibrary.btnSearchClick(Sender: TObject);
var
  sBookName : String;
begin
  sBookName := InputBox('Enter book Name','','') ;
  qryLibrary.Active := False;
  qryLibrary.SQL.Text := 'SELECT * FROM tblBooks WHERE TITLE = ' + sBookName + ' ;';
  qryLibrary.Active := True;

它给我一个错误说：

项目问题1引发异常类EOLeException并显示消息'参数Karoonag没有默认值'进程停止

哦，'Karoonag'是一本书的标题。请帮我一把D：

Answer 1

好的，我发现我做错了什么。

在我执行sql文本的地方，我错过了本书的引号。现在是我的代码：

procedure TfrmLibrary.btnSearchClick(Sender: TObject);
var
  sBookName : String;
begin
  sBookName := InputBox('Enter book Name','','') ;
  qryLibrary.Active := False;
  qryLibrary.SQL.Text := 'SELECT * FROM tblBooks WHERE TITLE = "' + sBookName + '" ;'; //<--- ""
  qryLibrary.Active := True;

在.MDB中搜索标题

1 个答案: