| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 794 人关注过本帖
标题:为什么插补进去呢
只看楼主 加入收藏
sjm3916q
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2010-3-7
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
为什么插补进去呢
close all
clear
messagebox("从ypqtrk.DBF中的把转运出库数据带入系统!",0+64+0,"提示")
st="driver=sql server;server="+fwq+";uid="+yh1+";pwd="+mm1+";database=Ld"
linka=sqlstringconnect(st)
kk=sqlexec(linka,"select max(顺号) AS ZD FROM YPBBJL","DDD3")
set step on
SHH=ZD
IF ISNULL(SHH)
SHH=0
ELSE
SHH=ZD
ENDI
xxxx=0
sele 101
use YPQTRK
brow
pack

go top
do whil.not.eof()
cpbm11=alltrim(产品编码)

cksl11=入库数量
ckrq11=报表日期
bz11="其他入库"
sh11=recno()+shh
tt0=sqlexec(linka,"select * from ypscd where 产品编码=?cpbm11 ","ddd1")

count all to ddk

if ddk=0
        messagebox(cpbm11+"编码不规范,不能导入!",0+64+0,"提示")
        xxxx=1
endi
sele 101
skip
endd
if xxxx<>1
sele 101
use ypqtrk
go top
do whil.not.eof()
cpbm11=alltrim(产品编码)
cksl11=入库数量
ckrq11=报表日期
bz11="其他入库"
sh11=recno()+shh
time1=datetime()
*tt1=sqlexec(linka,"insert into ypbbjl(报表日期,操作日期,仓库,产品编码,当日入库,备注,顺号,标记1) values(?ckrq11,?time1,'海宁成品仓库',?cpbm11,?cksl11,?bz11,?sh11,'其他入库')")
TT1 =SQLEXEC(LINKA,"INSERT INTO YPBBJL(标记1,报表日期,当日入库,操作日期,仓库,顺号,产品编码,备注)  values('其他入库',?ckrq11,?cksl11,?time1,'海宁成品仓库',?sh11,?cpbm11,'其他入库')")
SELE 101
skip
ENDD
cc=sqldisconnect(linka)
messagebox("样品其他入库完成",0+64+0,"提示")
endi
clea
return


代码运行正常,但TT1对数据库ypbbjl表进行插入始终不能成功,但相同的数据在SQL查询分析器内可以插入,这是怎么回事,哪个高人帮忙解答下
搜索更多相关主题的帖子: 报表 产品 database server close 
2010-03-07 18:01
cnfarer
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:179
帖 子:3330
专家分:21157
注 册:2010-1-19
收藏
得分:10 
估计是日期格式问题!用DTOC()按SQL格式转换一下试试吧!

★★★★★为人民服务★★★★★
2010-03-07 20:04
qingfameng
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:35
帖 子:964
专家分:3019
注 册:2010-2-6
收藏
得分:10 
1、shh 的值。以及于数据库对应字段的各个数值的格式,类型,长度或数值量都要测定。必须都符合填充条件。
2、如果先把您的插入语句,放在 sql-server 数据库的存储过程中,用您的数据先测试一下,容易成功。
3、如果把您的 ypqtrk 表,首先生成与 ypbbjl 表完全同结构的表,再将后者做一个临时视图,
   可直接用 append from 将全部数据一次性填充完毕。不需要 inset into 的操作.出错率很低,可试试。


 


[ 本帖最后由 qingfameng 于 2010-3-7 21:44 编辑 ]
2010-03-07 21:36
快速回复:为什么插补进去呢
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024508 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved