谁能帮我看下这段程序在哪里出错了

Question

procedure TForm1.Button1Click(Sender: TObject);
var e1:string;
begin
e1:=edit1.Text;with datamodule2.ADOQuery1 do
    begin
    close;
    sql.add('insert into ck005(data）values("'+e1+'")');
    try
    open;
    except
    showmessage('报错信息');///
    end;
    end;end;问题提示：
Project Project1.exe raised exception class EOleException with message '第2行':')'附近有语法错误。‘.Process stopped.Use Step or Run to continue

Answer 1

你把adoquery 组件改成adocommand，再执行吧。sql.add('insert into ck005(data）values(' + #39 + e1 + #39 + ' )');

Answer 2

sql.add('insert into ck005(data）values('''+e1+''')');

Answer 3

sql.add('insert into ck005(data）values("'+e1+'")');
在Delphi中不支持双引号,只有单引号的"'+e1+'"
改成
sql.add('insert into ck005(data）values('+e1+')');
试试!

Answer 4

将sql.add('insert into ck005(data）values("'+e1+'")');
改为:sql.add('insert into ck005(data）values('+e1+')');

Answer 5

sql.add('insert into ck005(data）values("'+e1+'")');
->
如果ck005是数字型，改为
  sql.add('insert into ck005(data）values('+e1+')');
  ExceSQL;
如果ck005是字符型，改为
  sql.add('insert into ck005(data）values('''+e1+''')');
  ExceSQL;

Answer 6

1：在每次操作之前要先sql.clear然后再add
2：(data)后面的括号是全角而不是半角
其他同楼上

Answer 7

with datamodule2.ADOQuery1 do
    begin
    try
    close;
    sql.clear;
    sql.add('insert into ck005(data）values("'+e1+'")');
    open
    except

Answer 8

问题提示：
Project Project1.exe raised exception class EOleException with message '第2行':')'附近有语法错误。‘.Process stopped.Use Step or Run to continue
这个问题还是在啊 cyblueboy83(爱情白痴—电脑迷) 
#39这个代表什么意思啊？

Answer 9

with datamodule2.ADOQuery1 do
  begin
    close;
    clear;
    sql.add('insert into ck005([data]) values('''+e1+''')');
    exceSQL;
  end;