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

[bmxyy]

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

[山东蓝鸟贵薪]

代码不全，无法分析的，你跟踪一下将那行错误代码传上来看看

[我看见佛]

把源代码贴上！

[山东蓝鸟贵薪]

case5166

有进步

[我看见佛]

[Quote=引用 3 楼 的回复:]

case5166

有进步
[/Quote]……………………

[bmxyy]

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;

implementation

uses 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.

[bmxyy]

是哪块的问题呢？谢谢各位了！

[kaikai_kk]

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

[kaikai_kk]

后面delect from 单词也错了是delete

[我看见佛]

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