请专家们指点

[zjm_dct]

nhandle=0
nhandle=sqlstringconnect("driver=sql server;server=ZHOUPENGCHENG\HHJXCJFWQ;uid=admin;pwd=zhoujunmin;database=HHJXCJ_ZHGLXT")
if nhandle>0
messagebox("数据库连接成功！",0,"提示")
else
messagebox("数据库连接失败！",0,"提示")
RETURN
endif

上段执行是没有问题的


sqlexec(nhandle,"declare @iCJ_XH int")
sqlexec(nhandle,"declare @cCJ_CJNAME char(20)")
sqlexec(nhandle,"select @iCJ_XH=96")
sqlexec(nhandle,"select @cCJ_CJNAME='热处理车间'")

sqlexec(nhandle,"insert into Table_CJ (CJ_XH,CJ_CJNAME) values (@iCJ_XH,@cCJ_CJNAME)")

这一段执行后，添加记录失败

[十豆三]

没错，做为一个字符串送入 SQL

[lzw_0736]

变量作用区间问题

[都市夜猫]

每个 sqlexec 是一个独立的作业，相当于在查询分析器中选中一部分来执行；执行完，变量也就释放了 应该合并成一条来执行

[都市夜猫]

像这样： text to cc noshow declare @iCJ_XH int declare @cCJ_CJNAME char(20) select @iCJ_XH=96 select @cCJ_CJNAME='热处理车间' insert into Table_CJ (CJ_XH,CJ_CJNAME) values (@iCJ_XH,@cCJ_CJNAME) endtext sqlexec(nhandle, cc)

[都市夜猫]

text to cc NOSHOW TEXTMERGE declare @iCJ_XH int declare @cCJ_CJNAME char(20) select @iCJ_XH=<<thisform.text1.Value>> select @cCJ_CJNAME=<<thisform.text2.Value>> insert into Table_CJ (CJ_XH,CJ_CJNAME) values (@iCJ_XH,@cCJ_CJNAME) endtext

[十豆三]

引用 5 楼 zjm_dct 的回复:

PUBLIC nTEXT1,cTEXT2 nTEXT1=0 cTEXT2="" nTEXT1=thisform.text1.Value cTEXT2=thisform.text2.value text to cc NOSHOW TEXTMERGE declare @iCJ_XH int declare @cCJ_CJNAME char(20) select @iCJ_XH[color=&nTEXT1 select @cCJ_CJNAME=&cTEXT2 insert into Table_CJ (CJ_XH,CJ_CJNAME) values (@iCJ_XH,@cCJ_CJNAME) endtext sqlexec(nhandle, cc)

用不着这么麻烦，把这些语句改为下面一句即可： sqlexec(nhandle,"insert into Table_CJ (CJ_XH,CJ_CJNAME) values (?thisform.text1.Value,?thisform.text2.Value)")

[zjm_dct]

text to cc noshow declare @iCJ_XH int declare @cCJ_CJNAME char(20) select @iCJ_XH=96 select @cCJ_CJNAME='热处理车间' insert into Table_CJ (CJ_XH,CJ_CJNAME) values (@iCJ_XH,@cCJ_CJNAME) endtext sqlexec(nhandle, cc) 通过验证，确实能成功添加记录 但我还想学习一下： 例中的：select @iCJ_XH=96 和 select @cCJ_CJNAME='热处理车间' 是将已知数据“96”和“热处理车间”添加到表中 如果我想要将表单中text1、text2中输入的数据插入到表中，那该怎么办？ 我试着用宏替换，好像没用 PUBLIC nTEXT1,cTEXT2 nTEXT1=0 cTEXT2="" nTEXT1=thisform.text1.Value cTEXT2=thisform.text2.value text to cc NOSHOW TEXTMERGE declare @iCJ_XH int declare @cCJ_CJNAME char(20) select @iCJ_XH[color=&nTEXT1 select @cCJ_CJNAME=&cTEXT2 insert into Table_CJ (CJ_XH,CJ_CJNAME) values (@iCJ_XH,@cCJ_CJNAME) endtext sqlexec(nhandle, cc)