ADOQuery的动态加入SQL语句的细节!
Robin 2003-01-28 10:07:14 procedure TStudentForm.QuedingFlatSpeedButtonClick(Sender: TObject);
var
Sqlstr,
Boy,gril:string;
begin
if StudentQuery.Active=true then
StudentQuery.Active:=false;
StudentQuery.SQL.Clear;
boy:='男';
gril:='女';
if (ClassFlatEdit.Text<>'') And
(ClassMannumFlatEdit.Text<>'') And
(XueyuanNameFlatComboBox.Text<>'') And
(EnterSchTimeMaskEdit.Text<>'')
then
begin
Sqlstr:='Insert into 学校在籍学生情况表 values (';
Sqlstr:=Sqlstr+EnterschtimeMaskEdit.Text+',';
if BoyFlatCheckBox.Checked then
Sqlstr:=Sqlstr+'"'+boy+'"'+','
else
Sqlstr:=Sqlstr+'"'+gril+'"'+',';
Sqlstr:=Sqlstr+'"'+ClassFlatEdit.Text+'"'+','+'"'+ClassManNumFlatEdit.Text+'",'+'"'+XueyuanNameFlatComboBox.Text+'")';
end ;
StudentQuery.SQL.Add(Sqlstr);
StudentQuery.ExecSQL;
ShowMessage('添加数据成功!');
end;
不知道怎么就是不能执行!
我以为是我动态加入sql时的错误!
但是有找不出!
劳驾帮我改!
如果能提供理论知道的也加分!
在双节期间,加分双倍!
特此声名!