源码:
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''
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''
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;
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;
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+''')';
分开写不容易出错!
也容易检查出错误!
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+''')';
'values('+''''+trim(edit1.Text)+''''+','+''''+trim(edit2.text)
+''''+','+''''+trim(edit3.Text)+'''' +','+''''+trim(edit4.Text)+''''+')'+'where bah='+''''+bah+''''+' and '+'times='+''''+times+'''';
//-----------------------------
'sqlstring=' 的'='对吗?
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;