adodc控件的属性写成代码发生的错误，高手帮帮我

有劳各位大哥了，我现在一个程序里面用了一个adodc的控件，然后该窗体里也有DataGrid的控件  
  原来我连接数据库都写在这个adodc控件的属性里的，将其ConnectionString连接一个数据，然后RecordSource选到所要连的表，现在我准备把它写到代码里去，就发生这个错误，大家帮我看看啊，谢谢啦。写到代码里的代码如下：（直接双击adodc控件写的代码）  
   
  Private   Sub   AdodcCustomLevel_WillMove(ByVal   adReason   As   ADODB.EventReasonEnum,   adStatus   As   ADODB.EventStatusEnum,   ByVal   pRecordset   As   ADODB.Recordset)  
  AdodcCustomLevel.ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=D:\cangku\logo.mdb;Persist   Security   Info=False"  
  AdodcCustomLevel.RecordSource   =   customLevel  
  End   Sub  
   
  报的错误为编译错误：过程声明与同名事件或过程的描述不匹配 问题点数：20、回复次数：5Top

1 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-07 21:10:24 得分 0

引用ADO类型库版本的问题  
  在工程/引用/Microsoft   ActiveX   Data   Object   2.X   Library  
  其中   2.X   你试着从2.0到2.5，一个一个地引用，看看哪一个才是正确的Top

2 楼daisy8675（莫依 沉迷）回复于 2006-03-07 23:19:47 得分 20

靠，楼上的答得也太NX了。  
   
  我觉得抢分是个好事情，但是拜托你不要这么不负责的答题，看清楚再答。OK？？？  
   
  ==========================================================================  
  to   lz:  
  ：（直接双击adodc控件写的代码）。//这是你自己说你的操作。WillMove这个事件只是MS写adodc控件默认的事件。请注意，不是所有的默认是正确。  
   
  所以你写adodc连接不应该   adodc控件的事件，而是应该选择正确事件去写  
   
  例如：form运行时候连接则写在form_load中间  
              点command则写在click中间  
   
  给你个示范：  
   
   
  示范：  
  '--如何用Adodc控件代码去连接Access  
  Private   Sub   Command1_Click()  
    Dim   strConn   As   String  
     
    strConn   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source="   &   App.Path   &   "\test.mdb;Persist   Security   Info=False"  
     
    '   adodc的连接字符串  
    Adodc1.ConnectionString   =   strConn  
     
    '   指定Command对象的形态  
    Adodc1.CommandType   =   adCmdText  
     
    '   设置传回一个资料录集。  
    Adodc1.RecordSource   =   "Select   *   from   People"  
     
    '   将记录集合绑定DataGrid1  
    Set   DataGrid2.DataSource   =   Adodc1  
  End   Sub  
  Top

3 楼faysky2（出来混，迟早是要还嘀）回复于 2006-03-08 00:17:15 得分 0

楼主，如个问题解决了，还望告知解决的方法Top

4 楼of123（）回复于 2006-03-08 08:48:47 得分 0

问题在这一句，RecordSource   属性的值应该是一个字符串，它可以是一个表名，或一个   SQL   语句。  
   
  AdodcCustomLevel.RecordSource   =   customLevel  
   
  如果   customLevel   就是表名，用双引号括起来：  
   
  AdodcCustomLevel.RecordSource   =   "customLevel"  
   
  或  
   
  AdodcCustomLevel.RecordSource   =   "SELECT   *   FROM   customLevel"Top

5 楼wowozly（）回复于 2006-03-09 16:17:19 得分 0

谢谢daisy8675大哥，问题解决了。  
  告知faysky2()：其实就是只要写在form_load里就可以了，然后加上Set   DataGrid.DataSource   的语句，数据库就可以正常连接了。Top

相关问题

• 控件
• 代码
• 属性
• 连接
• 解决
• datagrid
• microsoft
• adodc
• adodccustomlevel
• recordsource

• 帖主：wowozly
• daisy8675

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