谁能帮我看一下下面这段VB代码是什么意思？

显示全部楼层 · 2011-6-24 01:03:32

PublicFunctionexesql(ByValsq1AsString)AsADODB.Recordset
Dimexesq1
sq1=Trim$(sq1)
DimconnAsNewADODB.Connection
DimrstAsNewADODB.Recordset
conn.ConnectionString=\"provider=microsoft.jet.oledb.4.0;\"\"datasource=\"App.Path\"\\图书管理系统.mdb;\"
conn.Open
Setrst.ActiveConnection=conn
rst.CursorType=adOpenDynamic
rst.LockType=adLockOptimistic
rst.Opensq1
Setexesq1=rst
Setrst=Nothing
Setconn=Nothing
EndFunction

千问 · 2011-6-24 01:03:32

就是一个打开图书管理系统数据库文件并执行查询的公共的模块，所执行的SQL语句通过参数SQ1进行传递。

<h4class=\"ask\">追问

但是，我运行的时候总是说子函数未定义，为什么？

千问 · 2011-6-24 01:03:32

你是怎么引用它的？

千问 · 2011-6-24 01:03:32

给你看引用截图

<ahref=\"http://hiphotos.baidu.com/zhidao/pic/item/9825bc315030acf75edf0ecb.jpg\"class=\"replyask-img-e\"title=\"点击查看大图\"target=\"_blank\">
<imgsrc=\"http://hiphotos.baidu.com/zhidao/abpic/item/9825bc315030acf75edf0ecb.jpg\"/>
</a>

千问 · 2011-6-24 01:03:32

改成2.0试试，再有，你是如何调用这段函数的？

千问 · 2011-6-24 01:03:32

纠结啊，改成2.0还是不行，我是按实验教材上一步步做的，他让我先设置了几个引用（如截图），再增加了一个模块，接下来就创建了一些窗体，并且给每个窗体录入了一些代码，要不你加我QQ：361007290，我把文件都发给你，你帮我看看，谢谢啦，高手！

千问 · 2011-6-24 01:03:32

发我QQ邮箱[3580426]

千问 · 2011-6-24 01:03:32

你级别不够！呵呵……