IDC资讯中心
最近编一个物资管理系统,用vb6.0+sqlserver2000,在编写executesql函数时出错,
public function executesql(byval sql as string, msgstring as string) as adodb.recordset
dim cnn as adodb.connection
dim rst as adodb.recordset
dim stokens() as string
on error goto executesql_error
stokens = split(sql)
set cnn = new adodb.connection
cnn.open connectstring
if instr(“insert,delete,update”, ucase$(stokens(0))) then
cnn.execute sql
msgstring = stokens(0) & “query sucessful”
else
set rst = new adodb.recordset
rst.open trim$(sql), cnn, adopenkeyset, adlockoptimistic
set executesql = rst
msgstring = “查询到” & rst.recordcount & “条记录”
end if
executesql_exit
set rst = nothing
set cnn = nothing
exit function
executesql_error
msgstring = “查询错误” & err.description
resume executesql_exit
end function
public function connectstring() as string
connectstring = “filedsn=material.dsn;uid=sa;pwd=sa”
end function
预编译执行时出现错误,提示子程序或函数未定义,而且光标指向 executesql_exit,我已经把microsoft activex objects 2.6 library 添加了,数据源也设好了
