sql 7 数据库,每个客户端应用程序用户只拥有Public角色的权限,在数据库中已设置Public角色不具备对数据库内任何Object的操作权限.客户端应用程序启动后激活一个应用程序角色 APP_ROLE,此角色定义的所有的操作权限.
问题:
Private Sub cboContractNo_Click()
Dim adcmd1 As New ADODB.Command
Dim adpara1 As New ADODB.Parameter
Dim adrs1 As New ADODB.Recordset
Dim adcmd2 As New ADODB.Command
Dim adpara2 As New ADODB.Parameter
Dim adrs2 As New ADODB.Recordset Set adcmd.ActiveConnection = padcnnCCS
adcmd.CommandText = "SP_1"
adcmd.CommandType = adCmdStoredProc
Set adpara1 = adcmdTmp.CreateParameter("contract_uid", adInteger, adParamInput, , cboContractNo.Columns("contract_uid").Value)
adcmdTmp.Parameters.Append adparaTmp
set adrs1 = adcmdTmp.Execute
...
Set adcmd2.ActiveConnection = padcnnCCS
adcmd2.CommandText = "SP_2"
adcmd2.CommandType = adCmdStoredProc
Set adpara2 = adcmdTmp.CreateParameter("contract_uid", adInteger, adParamInput, , cboContractNo.Columns("contract_uid").Value)
adcmd2.Parameters.Append adparaTmp
set adrs2 = adcmdTmp.Execute
...
End Sub
当程序运行 set adrs2 = adcmdTmp.Execute 发生错误!说没有权限运行 sp_2! 实际上应用程序角色 APP_ROLE是具备运行sp_1和sp_2的权限的,在代码中随便注释任何一段EXECUTE代码都能正常运行,可两个EXECUTE命令一起运行时就说无权限运行!为什么呢?
请高手指教.
问题:
Private Sub cboContractNo_Click()
Dim adcmd1 As New ADODB.Command
Dim adpara1 As New ADODB.Parameter
Dim adrs1 As New ADODB.Recordset
Dim adcmd2 As New ADODB.Command
Dim adpara2 As New ADODB.Parameter
Dim adrs2 As New ADODB.Recordset Set adcmd.ActiveConnection = padcnnCCS
adcmd.CommandText = "SP_1"
adcmd.CommandType = adCmdStoredProc
Set adpara1 = adcmdTmp.CreateParameter("contract_uid", adInteger, adParamInput, , cboContractNo.Columns("contract_uid").Value)
adcmdTmp.Parameters.Append adparaTmp
set adrs1 = adcmdTmp.Execute
...
Set adcmd2.ActiveConnection = padcnnCCS
adcmd2.CommandText = "SP_2"
adcmd2.CommandType = adCmdStoredProc
Set adpara2 = adcmdTmp.CreateParameter("contract_uid", adInteger, adParamInput, , cboContractNo.Columns("contract_uid").Value)
adcmd2.Parameters.Append adparaTmp
set adrs2 = adcmdTmp.Execute
...
End Sub
当程序运行 set adrs2 = adcmdTmp.Execute 发生错误!说没有权限运行 sp_2! 实际上应用程序角色 APP_ROLE是具备运行sp_1和sp_2的权限的,在代码中随便注释任何一段EXECUTE代码都能正常运行,可两个EXECUTE命令一起运行时就说无权限运行!为什么呢?
请高手指教.
解决方案 »
- 求教各位大侠看看这个工程文件怎么编,希望能给一个完整的工程文件夹,谢谢!!
- vb6调试程序时,退出程序,会导致vb IDE整个环境退出,怎么回事?
- 【高手帮忙】关于用SystemParametersInfo取得屏保相关信息的问题
- 有一行代码运行时间很长,然后程序超时出错,要如何解决呢?
- 请问在VB中调用Access用什么方法?
- 局域网点对点传输,如何数据加密?怎样实现?给点建议也行
- 请问VB可以开发B/S结构的程序吗?
- 在SQL-SERVER中将表导入导出时,丢失ID的IDENTITY属性(自动增加),能否自动?
- VB中如何实现软件自动全屏显示
- vb打包问题
- 编程一般用什么电脑(大家都进来发表下意见)明天下午结贴100分
- VB如何读取xml格式的文件?
试一下是不是可以把两个操作用一个SQL来写呢???
就是在SQL里加上条件