st:=Tstringlist.Create;
st.Delimiter:='|';
st.DelimitedText:=trim(CheckListBox1.Items[CheckListBox1.itemindex]);
adoquery2.SQL.Clear;
if(CheckListBox1.Checked[CheckListBox1.itemindex]=true) then
adoquery2.SQL.Add('update user_info set che_flag=1 WHERE 仪表档案编号='+st.Strings[1])
else
adoquery2.SQL.Add('update user_info set che_flag=0 WHERE 仪表档案编号='+st.Strings[1]); adoquery2.ExecSQL();提示仪表档案编号没默认值,是整数型。每分了 不好意思
st.Delimiter:='|';
st.DelimitedText:=trim(CheckListBox1.Items[CheckListBox1.itemindex]);
adoquery2.SQL.Clear;
if(CheckListBox1.Checked[CheckListBox1.itemindex]=true) then
adoquery2.SQL.Add('update user_info set che_flag=1 WHERE 仪表档案编号='+st.Strings[1])
else
adoquery2.SQL.Add('update user_info set che_flag=0 WHERE 仪表档案编号='+st.Strings[1]); adoquery2.ExecSQL();提示仪表档案编号没默认值,是整数型。每分了 不好意思
解决方案 »
- 求一个3DES的加密程序
- 在没有delphi的机子上运行dephi程序需要哪个dll文件?
- 怎样写查询语句,将SQL里面的表table1导入到Access表tempTable里面。两表所有字段都相同。
- 三层服务器端的远程数据模块里面的ADOConnection可以像在数据模块里面一样,在程序里面进行操作吗?
- “操作必须使用一个可更新的查询”
- 界面设计
- 那位兄台能帮我实现delphi7下通过moden拨号实现两部机的连接程序-所有分全送了。
- 按钮数组中的事件处理?
- csdn又出问题了,还是我的网络问题,为什么刷新可以,回复不行?
- 想用Delphi做个图像分析的程序,不知道有没有现成的控件或源码呢?
- delphi 如何改变edit 的高度?
- WebBrowser 设置COOKIE
else
adoquery2.SQL.Add('update user_info set che_flag=0 WHERE 仪表档案编号='+st.Strings[1]); adoquery2.sql.text????//这里获取一下看这个是什么
adoquery2.ExecSQL();