求VFP+SQL高手帮我解决一下

[sidou88]

nHandle=GetConnHandle()
IF nHandle>0
nResult=SQLEXEC(nHandle,"SELECT * FROM tblApply where ztno='"allt(thisform.text1.value)"'","curApply")
IF nResult<=0
=MESSAGEBOX("读取数据出错！",0+48,"提示")
ELSE
select curapply
brow
ENDIF
endi
目的是为了在表单有一个text1文本框中输入 ztno 并能读取SQL 2000服务器上的相当应ZTNO号的记录，会修改的高手读帮我解决下，万分谢谢！

[dfwxj]

nResult=SQLEXEC(nHandle,"SELECT * FROM tblApply where ztno=?thisform.text1.value","curApply")

[needacoder]

[Quote=引用 1 楼 dfwxj 的回复:]
nResult=SQLEXEC(nHandle,"SELECT * FROM tblApply where ztno=?thisform.text1.value","curApply")
[/Quote]
以上正解！

[sghgy]

nResult=SQLEXEC(nHandle,"SELECT * FROM tblApply where ztno='"+allt(thisform.text1.value)+"'","curApply")

[zhoud_j]

我习惯用变量：
c_ztno=alltrim(thisform.text1.value)
nResult=SQLEXEC(nHandle,"SELECT * FROM tblApply where ztno=?c_ztno","curApply")

[fsconnie]

[Quote=引用 5 楼 的回复:]
我习惯用变量：
c_ztno=alltrim(thisform.text1.value)
nResult=SQLEXEC(nHandle,"SELECT * FROM tblApply where ztno=?c_ztno","curApply")
[/Quote]
+1,先把alltrim(thisform.text1.value)处理好，SQL查询语句太长不好处理。

[秋忆回]

[Quote=引用 6 楼 的回复:]
引用 5 楼 的回复:
我习惯用变量：
c_ztno=alltrim(thisform.text1.value)
nResult=SQLEXEC(nHandle,"SELECT * FROM tblApply where ztno=?c_ztno","curApply")

+1,先把alltrim(thisform.text1.value)处理好，SQL查询语句太长不好处理。
[/Quote]

这样啊，我都没用变量直椄replace......一条语句至少300个字节。

[無法替代]

推荐使用text

c_ztno=alltrim(thisform.text1.value)

TEXT TO xxx TEXTMERGE NOSHOW PRETEXT 2
SELECT * FROM tblApply where ztno=?c_ztno
ENDTEXT

IF SQLEXEC(nHandle,xxx,"curApply") <> 1
MESSAGEBOX("...",16,"提示")
RETURN
ENDIF

[敦厚的曹操]

[Quote=引用 8 楼 的回复:]

推荐使用text

c_ztno=alltrim(thisform.text1.value)

TEXT TO xxx TEXTMERGE NOSHOW PRETEXT 2
SELECT * FROM tblApply where ztno=?c_ztno
ENDTEXT

IF SQLEXEC(nHandle,xxx,"curApply") <> 1
MESSAGEB……
[/Quote]
顶一个，这样更容易看懂！

[verkee]

[Quote=引用 8 楼 的回复:]
推荐使用text

c_ztno=alltrim(thisform.text1.value)

TEXT TO xxx TEXTMERGE NOSHOW PRETEXT 2
SELECT * FROM tblApply where ztno=?c_ztno
ENDTEXT

IF SQLEXEC(nHandle,xxx,"curApply") <> 1
MESSAGEBOX(……
[/Quote]

我可以参考这个去精简下我的VF了