一个关于存储过程的问题？help me!!!!

出错信息："请求操作要求   OLE   DB   会话对象，而当前提供者不支持此情况。"  
  出错行：Set   cmd.ActiveConnection   =   dbconn  
   
  声明：  
  Dim   dbconn   As   New   ADODB.Connection  
  当对数据库进行select   ,update   insert操作时则可以，为什么？ 问题点数：40、回复次数：4Top

1 楼qqqdong（）回复于 2002-12-23 09:46:59 得分 0

dbconn.open   ....Top

2 楼wuliang007（靓亮）回复于 2002-12-23 11:02:49 得分 0

Set   cmd.ActiveConnection   =   dbconn  
   
  其实在每用一次这个，就要有相应的语句关闭这个连接  
  比如：   cmd.close     来关闭  
   
  否则，下一次你运行到这里，它就会关闭连接Top

3 楼wang_jun_qiang（piglet）回复于 2002-12-23 14:19:13 得分 0

cmd有close方法吗？我是一开始就用的（如下：）  
  Dim   dbconn   As   New   ADODB.Connection  
  Dim   cmd   As   New   ADODB.Command  
  Dim   prmcmd   As   New   ADODB.Parameter  
   
  dbconn   =   OpenDb()//连接数据库  
  Set   cmd.ActiveConnection   =   dbconn  
   
  cmd.CommandText   =   "usp_addcompanyinfo"  
  cmd.CommandType   =   adCmdStoredProc  
  出错的句子：  
  Set   cmd.ActiveConnection   =   dbconn  
   
  怎么回事？Top

4 楼litsnake1（litsnake）回复于 2002-12-23 15:22:50 得分 40

你的问题好象是错在  
  Set   cmd.ActiveConnection   =   dbconn  
  这句上  
  改为  
  cmd.ActiveConnection   =   dbconn  
  把set去掉  
  Dim   cmd   As   ADODB.Command  
          Dim   rst   As   ADODB.Recordset  
          Set   cmd   =   New   ADODB.Command  
          ConnectDB  
          With   cmd  
                  .ActiveConnection   =   Cnn  
                  .CommandType   =   adCmdText  
                  .CommandText   =   "select   *   from   car_color"  
                  Set   rst   =   New   ADODB.Recordset  
                  Set   rst   =   .Execute()  
                  rst.Close  
                  Set   rst   =   Nothing  
          End   With  
  Top

相关问题

• 连接
• dbconn
• activeconnection
• cmd
• rst
• 出错
• 关闭
• dim
• new adodb
• close

• 帖主：wang_jun_qiang
• litsnake1

• Visual Basic类图书
• Visual Basic类源码下载