ERR:未定义的数据类型
代码如下:Function ExecuteSql(strSqlCmd As String)
Dim db As Database, qr As QueryDef Set db = CurrentDb()
Set qr = db.CreateQueryDef("dummy", strSqlCmd)
qr.Execute
qr.Close
DoCmd.DeleteObject acQuery, "dummy"
Set db = Nothing
End FunctionDatabase不是标准型吗? 要在什么地方声明Database类型?
代码如下:Function ExecuteSql(strSqlCmd As String)
Dim db As Database, qr As QueryDef Set db = CurrentDb()
Set qr = db.CreateQueryDef("dummy", strSqlCmd)
qr.Execute
qr.Close
DoCmd.DeleteObject acQuery, "dummy"
Set db = Nothing
End FunctionDatabase不是标准型吗? 要在什么地方声明Database类型?
解决方案 »
- 请问程序中Option Explicit的作用是什么?
- 请问,我使用vb创建一个activex工程,如何为这个自开发的控件增加自定义的事件???
- 请问如何使一个已经打开的程序最大化
- 可以用于监视指定对象的文本信息,和即时输入,并发送到邮箱。3个程序协同工作确保绝对不被关闭。
- 加急!!!100分,不够再加!vb+frontpage问题,如何在VB中通过FRONTPAGE修改网页?
- 请教一个问题!在线等!!
- 小问题,在线等待,马上给分!
- 请VB真正的高手 回答一下 VB如何用mstsc.exe实现远程登陆 自动输入账号密码
- help me!有关PICTURE BOX和OPTION BUTTON的问题!
- 我的数据怎么不出来?请大师帮忙!
- 急急急,请问有什么方法创建如 Windows “详细视图”的表格吗?
- 如何用vb得到一个打开的excel表中的行数及列数
microsoft DAO 3.51 object library
多谢 muchtrouble2003(★毛主席都说我长得帅★) !