收录日期:2020/10/28 13:23:33 时间:2016/07/04 19:37:46 标签:数据库相关
我现在的数据是000000.,要实现000001,000002这样自动增加如何实现?
在SQL中,数据连接是用ADO
select right('00000'+cast(max(Field1)+1 as varchar), 6) from Table1
转换成数值 StrTOInt()+1
判断长度 在前面加上'0......'
引用 3 楼 starao 的回复:
转换成数值 StrTOInt()+1
判断长度 在前面加上'0......'

同意这个。
具体点呢,本人是菜鸟啊
引用 2 楼 Corn1 的回复:
select right('00000'+cast(max(Field1)+1 as varchar), 6) from Table1

如果增加到000011呢?
先把这个值取出来,比如付给a吧,用StrToInt(a)+1.然后If Length(IntToStr(StrToInt(a)+1))<6 then Insert 0,循环插入0,然后判断,直到长度为6就可以了。
A:=MAX(FIELD1)?要取这列最大的值后加一的呀?
转换后format定成你想要的格式
 Edit1.Text:=FormatFloat(StringOfChar('0',length(adoquery1.Fields[0].asstring)),
adoquery1.Fields[0].AsInteger+1);给分吧,我在用的,万能的,自动判断长度
谢谢.可我不知道怎么给分啊?
顶部结贴
我没有分数!
随便给点
引用 14 楼 amdwinter 的回复:
随便给点















.... 要饭的?.
   
没能解决实际问题啊
引用 6 楼 wangfang7865 的回复:
引用 2 楼 Corn1 的回复:
select right('00000'+cast(max(Field1)+1 as varchar), 6) from Table1 
 
如果增加到000011呢?

也是可以的!
Edit1.Text:=FormatFloat(StringOfChar('0',length(adoquery1.Fields[0].asstring)), 
adoquery1.Fields[0].AsInteger+1);给分吧,我在用的,万能的,自动判断长度

这的确万能的或,不管你的是0开始的还是多少位的
我后来没用这样的程序,用的是FORMATFLOAT((adoquery1.Fields[0].asstring), (adoquery1.Fields[0].AsInteger+1));

寻在Delphi 6.0里做界面的空件 急需求购货运代理源代码!!!!!!!!!!!!!!!!!!!!!!!! delphi7 dbexpress 问题 请问为什么我在程序里将Timer控件的enable设为false,他里面的程序还在继续运行? 求SQL语句 看到Delphi讨论区有人建QQ群以便讨论,这里也建一个好不好? 哪有夏普bemius早期笔记本(P223)的声卡驱动程序下载?急用!! 硬件冲突解决方案? 要把word中的表格转化为excel中的表格该怎么做? 9号,我们的渔船! 请教进度条的设置与使用的一个简单问题?? 求asp.net帮助下载!**********在线等待!!!! Modem拨入连接的问题。急 毕业已半年,忽至年关,心发感慨——我们再也回不去了,对不对? Oracle数据库的问题,是否和SQL Server2000一样啊?怎么操作表啊?(在线,) 有人用过DELPHI 8? 在Linux下怎么使用pppoe进行拨号? 网络访问问题,火急!!!! 有没有通过运行时,用户选择,而自动生成SQL查询语句的COM组件? 这个SQL语句怎么写,急,在线等 求数据库操作源代码 怎么叫APL及DOL,在那设置? 请教:怎样取消winxp中的启动选项? 关于char*类型转换 jbuilder 9如何关掉修改文件的自动备份? 抢分啦@!各位大侠可以讲讲“=>”的用法吗? CEditView 如何改变字体和背景的颜色? 项目招标,想用BCB做CS架构的远程订单系统 如何和动态创建的编辑框交互?up者有分!!! 如何提高效率,内详!