insert语句(10分)

  • 主题发起人 主题发起人 和颜悦色_yy
  • 开始时间 开始时间

和颜悦色_yy

Unregistered / Unconfirmed
GUEST, unregistred user!
q.SQL.Add('insert into 预约信息表'+
'(regid,name,sex,age,regdate,clinic,text,date,print)'+
' values(:id,:name,:sex,:age,:regdate,:clinic,:text,:date,:print)');
系统提示insert into 语句的语法错误,请问各位这个insert语句有什么错误呢?
 
你使用的是Add,很有可能是你没有清空之前的SQL语句
q.SQL.Clear;
q.SQL.Add.......
 
with q do
begin
close;
sql.close;
sql.add('insert into ...');
execsql;
end;
 
把字段 name 换成别的试试
 
这是我完整的程序:
q.Close;
q.SQL.Clear;
q.SQL.Add('insert into 预约信息表'+
'(regid,name,sex,age,regdate,clinic,text,date,print)'+
' values(:id,:name,:sex,:age,:regdate,:clinic,:text,:date,:print)');
q.ParamByName('id').Asinteger:=strtoint(e_id.Text);
q.ParamByName('name').AsString:=e_name.Text ;
q.ParamByName('sex').AsString:=sex.Items[sex.itemindex];
q.ParamByName('age').AsString:=e_age.Text ;
q.ParamByName('regdate').Asstring:=datetostr(e_date.DateTime);
q.ParamByName('clinic').AsString:=clinic.Items[clinic.itemindex];
q.ParamByName('text').AsString:=m_text.Lines.GetText;
q.ParamByName('date').Asstring:=formatdatetime('yyyy-mm-dd',now);
q.ParamByName('print').Asstring:='否';
q.ExecSQL;
 
你把+号去掉试试
 
这句改下试试,如果还有错请把错误信息粘出来,不然很难发现
q.SQL.Add('insert into 预约信息表'+
'([regid],[name],[sex],[age],[regdate],[clinic],[text],[date],[print])'+
' values(:id,:name,:sex,:age,:regdate,:clinic,:text,:date,:print)');
 
接受hrc的答案了,谢谢各位!
 
后退
顶部