delphi语句问题
有一段代码如下.:
procedure TForm2.Button1Click(Sender: TObject);
var
sql:string;
begin
query.SQL.Clear;
sql:='insert into basic_info (student_id,student_name) values('''+edit1.text+''','''+edit2.text+''')';
query.SQL.Add(sql);
try
query.ExecSQL;
except
end;
edit1.Text:='';
edit2.Text:='';
end;
现在我要实现的功能是:
因为我的student_id是主键,SO,insert 之前要判断一下插入EDIT1中的TEXT是否重复,如果重复则报错.请问这个判断应该怎么写加在那,麻烦各位加以下,我用 的ADO控件.
参考答案:sql:='insert into basic_info (student_id,student_name) values('''+edit1.text+''','''+edit2.text+''')'; ?
这样的写法很有创意...可惜是错误的~~
你需要带入值,为什么不用参数呢?以前对你说国参数的用法啊..
sql:='insert into basic_info (student_id,student_name) values(:id,:name)';
query.parambyname('id').asstring :=edit1.text;
query.parambyname('name').asstring :=edit2.text;
ADO的参数语法:
query.Parameters.ParamValues['id']:=edit1.text;
...
参数的用法,你应该早点运用好哦``楼上那位也不字母懂..