|
发现开始的想法是比较原始的,先改成从数据库中读取订单号。
但有新的问题:如何把数据库某个字段(字符串)赋值到一个变量中,如下:
Sub Main
Dim connection As long
Dim retcode As Variant
Dim outputstr,query as string
Dim out(1 to 1,1 to 13) as variant
connection = SQLOpen("DSN=book;UID=sa;PWD=sa")
query = "select * FROM (select * from book_ID a where CustNo = '0001' order by orderNO desc) WHERE ROWNUM = 1"
retcode = SQLExecQuery(connection,query) '订单号格式为:200604070531H
'=============请教数据库某个字段(字符串)赋值到一个变量中===========================
retcode = SQLRetrieve(connection,out())
Browser NewPage,"HTMLTitle=Book;Index=0",""
EditBox Click, "Name=OrderNo", "Coords=34,6"
InputKeys "怎么输入????"
'=================================================
retcode = SQLClose(connection)
End Sub
[ 本帖最后由 xingnet 于 2006-4-7 15:22 编辑 ] |
|