连ODBC
我想在记事本下输入P 但回访时提示odbc.rec(28) Error: Type mismatch
odbc.rec(28) Error: Type mismatch, parameter 1 in subprogram 'InputKeys'
脚本如下:
Sub main
Dim p as integer
Dim k,i as integer
Dim connection As Long
Dim destination(1 To 50, 1 To 125)As Variant
Dim retcode As long
Dim query as String
Dim outputStr as String
connection = SQLOpen("DSN=sy",outputStr)
query = "select busi_code from user"
retcode = SQLExecQuery(connection,query)
retcode = SQLRetrieve(connection:=connection,destination:=destination)
k=int(destination(1,1))
' Get the next 50 rows of from the result set
query = "select busi_code from user"
retcode = SQLExecQuery(connection,query)
retcode = SQLRetrieve(connection:=connection,destination:=destination)
randomize timer()
for i=1 to 5
p=int(rnd*k)
p=int(destination(1,p))
Window SetContext, "Caption=que.txt - 记事本", ""
EditBox Click, "ObjectIndex=1", "Coords=52,23"
InputKeysp + "{ENTER}"
next
retcode = SQLClose(connection)
End Sub 你应该说说想完成什么功能
提示已经说的很清楚了，InputKeysp + "{ENTER}"这句有问题
页:
[1]
