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查询分析器内可以插入，这是怎么回事，哪个高人帮忙解答下

估计是日期格式问题!用DTOC()按SQL格式转换一下试试吧!

1、shh 的值。以及于数据库对应字段的各个数值的格式，类型，长度或数值量都要测定。必须都符合填充条件。
2、如果先把您的插入语句，放在 sql-server 数据库的存储过程中，用您的数据先测试一下，容易成功。
3、如果把您的 ypqtrk 表，首先生成与 ypbbjl 表完全同结构的表，再将后者做一个临时视图，
   可直接用 append from 将全部数据一次性填充完毕。不需要 inset into 的操作.出错率很低，可试试。


 


[ 本帖最后由 qingfameng 于 2010-3-7 21:44 编辑 ]