源码:
  query2:=TADOQuery.Create(self);
  query2.Connection:=Form1.ADOConnection1;
  query2.close;
  query2.SQL.clear;
  sqlstring='insert into ssxx(mzys,zs,xshs,gzhs)'+
    'values('+''''+trim(edit1.Text)+''''+','+''''+trim(edit2.text)  
     +''''+','+''''+trim(edit3.Text)+'''' +','+''''+trim(edit4.Text)+''''+')'+'where bah='+''''+bah+''''+' and '+'times='+''''+times+''''
query2.sql.add(sqlstring)
query2.execsql;
  query2.Free; 从inspect看sqlstring好像没错呀!
'insert into ssxx(mzys,zs,xshs,gzhs)values('www','www','www','www') where bah ='123456' and times='1''

解决方案 »

  1.   

    query2:=TADOQuery.Create(self);
      query2.Connection:=Form1.ADOConnection1;
      query2.close;
      query2.SQL.clear;
      sqlstring='insert into ssxx(mzys,zs,xshs,gzhs)'+
        'values('+''''+trim(edit1.Text)+''''+','+''''+trim(edit2.text)  
         +''''+','+''''+trim(edit3.Text)+'''' +','+''''+trim(edit4.Text)+''''+')'+'where bah='+''''+bah+''''+' and '+'times='+''''+times+'''';
    query2.sql.add(sqlstring);
    query2.execsql;
      query2.Free;
      

  2.   

    如果你还是不知道那里出错,可以showmessage(sqlstring)显示信息,知道那里出错了
      

  3.   

    query2:=TADOQuery.Create(self);
      query2.Connection:=Form1.ADOConnection1;
      query2.close;
      query2.SQL.clear;
      sqlstring='insert into ssxx(mzys,zs,xshs,gzhs)'+
        'values('+''''+trim(edit1.Text)+''''+','+''''+trim(edit2.text)  
         +''''+','+''''+trim(edit3.Text)+'''' +','+''''+trim(edit4.Text)+''''+')'+'where bah='+''''+bah+''''+' and '+'times='+''''+times+'''';
    query2.sql.add(sqlstring);
    query2.execsql;
      query2.Free;
      

  4.   

    sqlstring:='insert into ssxx(mzys,zs,xshs,gzhs)';
    sqlstring:=sqlstring+' values('''+trim(edit1.Text)+''',';
    sqlstring:=sqlstring+''''+trim(edit2.text)+''','''+trim(edit3.Text)+''',';
    sqlstring:=sqlstring+''''+trim(edit4.Text)+'''  where  bah='''+bah+''' ';
    sqlstring:=sqlstring+'and  times='''+times+''')';
      

  5.   

    如果SQL语句长的话最好像未来兄这样,
    分开写不容易出错!
    也容易检查出错误!
    sqlstring:='insert into ssxx(mzys,zs,xshs,gzhs)';
    sqlstring:=sqlstring+' values('''+trim(edit1.Text)+''',';
    sqlstring:=sqlstring+''''+trim(edit2.text)+''','''+trim(edit3.Text)+''',';
    sqlstring:=sqlstring+''''+trim(edit4.Text)+'''  where  bah='''+bah+''' ';
    sqlstring:=sqlstring+'and  times='''+times+''')';
      

  6.   

    sqlstring='insert into ssxx(mzys,zs,xshs,gzhs)'+
        'values('+''''+trim(edit1.Text)+''''+','+''''+trim(edit2.text)  
         +''''+','+''''+trim(edit3.Text)+'''' +','+''''+trim(edit4.Text)+''''+')'+'where bah='+''''+bah+''''+' and '+'times='+''''+times+'''';
    //-----------------------------
    'sqlstring=' 的'='对吗?
      

  7.   

    Parameters跟踪不方便。
        strsql:='';
        strSql:=strsql+'insert into ssxx(mzys,zs,xshs,gzhs) values (';
        strSql:=strsql+''''+trim(edit1.text)+''',';
        strSql:=strsql+''''+trim(edit2.text)+''',';
        strSql:=strsql+''''+trim(edit3.text)+''',';
        strSql:=strsql+''''+trim(edit4.text)+''')';
        strSql:=strsql+' where bah='''+bath+'''';
        strSql:=strsql+' and times='''+times+'''';
        query2.sql.add(strsql)
        query2.execsql;
        query2.Free;
      

  8.   

    为什么有insert语句中还有where?