一运行就报错，该怎么办？

Question

先close;之后再设置databasename:='teamis';

Answer 1

SQL.Add('select * from jgda.db where xm=''张三''');

Answer 2

先close再设置它的DataBase属性。
应该是这样的：wdatas.dataset:=wquery;
  wDBG.DataSource:=wdatas;
  with wquery do
  begin     
     close;//先close再设置database属性
     databasename:='teamis';
     SQL.Clear ;
     SQL.Add('select * from jgda.db where xm="张三");//要加引号
     open;
   end;

Answer 3

wdatas.dataset:=wquery;
  wDBG.DataSource:=wdatas;
  with wquery do
  begin
     close;
     databasename:='teamis';
     SQL.Clear ;
     SQL.Add('select * from jgda.db where xm='+#39+'张三'+#39);
     open;
   end;

Answer 4

wdatas.dataset:=wquery;
  wDBG.DataSource:=wdatas;
  with wquery do
  begin
     databasename:='teamis';
     close;
     SQL.Clear ;
     SQL.Add('select * from jgda.db where xm= #39+'张三'+#39);
     open;
   end;

Answer 5

那样还是报错内容变了
---------------------------
Debugger Exception Notification
---------------------------
Project main1.exe raised exception class EDBEngineError with message 'Key violation.
[Microsoft][ODBC Microsoft Access  驱动程序] 找不到文件 'D:\编程\毕业设计\proga\jgda.mdb'。'. Process stopped. Use Step or Run to continue.

Answer 6

wdatas.dataset:=wquery;
  wDBG.DataSource:=wdatas;
  with wquery do
  begin
     close;
     databasename:='teamis';
     SQL.Clear ;
     SQL.Add('select * from jgda.db where xm='+#39+'张三'+#39);
     open;
   end;

Answer 7

检查一下：数据源！ODBC、BDE！

Answer 8

像这样：wquery.close // add by eatalotwdatas.dataset:=wquery;
wDBG.DataSource:=wdatas;
  with wquery do
  begin
     close; // modfiy by eatalot
     databasename:='teamis';
     SQL.Clear ;
     SQL.Add('select * from jgda.db where xm=张三);
     open;
   end;

Answer 9

...
     SQL.Add('select * from jgda.db where xm='+#39+'张三'+#39);
      ...

Answer 10

SQL.Add('select * from "jgda.mdb" where xm='+#39+'张三'+#39);