project.exe raised exception class eoleexception with message'from子句语法错误。'什么意思呢？

Question

project.exe raised exception class eoleexception with message'from子句语法错误。'process stopped.
什么意思呢？ 是哪块出现的错误呢？谢谢各位大神了！

Answer 1

case5166
 
有进步

Answer 2

type
  Tyonghu = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    ADOQuery1: TADOQuery;
    PopupMenu1: TPopupMenu;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure DBGrid1DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N13Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    modi:boolean; //用于便是添加，修改用户；
    xx:string;   //用于设置添加，修改用户窗体标题栏；
  end;var
  yonghu: Tyonghu;implementationuses Udm, Utianjiayh;{$R *.dfm}procedure Tyonghu.FormCreate(Sender: TObject);
begin
  modi:=false;
end;procedure Tyonghu.DBGrid1DblClick(Sender: TObject);//数据网格双击事件；
begin
  n12.Click;//相当于修改用户操作；
end;procedure Tyonghu.FormShow(Sender: TObject);
var sqlstr:string;
begin
  sqlstr:='select * from user order by yhm';
  self.ADOQuery1.SQL.Clear;
  self.ADOQuery1.SQL.Add(sqlstr);
  self.ADOQuery1.Open;
  if self.ADOQuery1.RecordCount>0 then  //根据查询数据结果，设置弹出菜单项的可访问性；
  begin
    n12.Enabled:=true;
    n13.Enabled:=true;
  end
  else
  begin
    n12.Enabled:=false;
    n13.Enabled:=false;
  end;
end;
procedure Tyonghu.N11Click(Sender: TObject); //”添加用户“弹出菜单单击事件；
begin
  modi:=false; //设置标识；
  xx:='添加用户';
  Application.CreateForm(Ttianjiayh,tianjiayh);//打开添加-修改用户窗体；
  tianjiayh.ShowModal;
end;procedure Tyonghu.N12Click(Sender: TObject); //”修改用户“弹出菜单单击事件；
begin
  modi:=true;//设置标识；
  xx:='修改用户';
  Application.CreateForm(Ttianjiayh,tianjiayh);//打开添加-修改用户窗体；
  tianjiayh.ShowModal;
end;procedure Tyonghu.N13Click(Sender: TObject);//”删除用户“弹出菜单单击事件；
var name,id:string;
begin
  try
    name:=self.ADOQuery1.fieldbyname('name').AsString;
    if messagedlg('确认要删除选中的记录么？',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
      id:=self.ADOQuery1.fieldbyname('id').AsString;
      with self.ADOQuery1.Create(nil) do
      begin
        try
          close;
          sql.Clear;
          //删除用户表数据；
          sql.Add('delect from user where id='''+id+'''');
          execsql;
          sql.Clear;
          //删除权限表数据；
          sql.Add('delect from quanxian where yhm='''+name+'''');
          execsql;
          finally
            free;
          end;
      end;
    end;
  except
  end;
end;end.

Answer 3

sqlstr:='select * from [user] order by yhm';

Answer 4

后面delect from 单词也错了是delete

Answer 5

user是关键字，建议放到SQL SERVER查询分析器看看没有高亮。