用ADO完成这些工作好象的确有问题,我也正在头疼,起码ADO不支持DDL指令
建议使用DAO来完成,查询可以交给ADO完成,
另外这样 就有execute 方法,不知道能不能完成,我还没试   
  Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Set cnn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ".\data\xj.mdb"
    rs.Open history, cnn    cnn.Execute

解决方案 »

  1.   

    adodc1.recordsouce="          "
      

  2.   

    将SQL语句赋给ado控件的recordsouce属性adodc1.recordsouce="你的SQL语句"
      

  3.   

    dim rs as new ADODB.Recordset
    dim cn as new adodb.connect
    然后
    用RS执行就行了~~
    例:
        dim ss as string
        ss="select * from dual"
        rs.open ss ,cn
        rs.close
      

  4.   

    dim sSQL as stringsSQL=""
    Adodc1.recordsource=sSQL
    Adodc1.refresh
      

  5.   

    Ado可以完成SQL语句的查询,但最好用Ado对象,而不是控件。因为控件只适用于那些非常简单的单行操作,如用SQl语句的话,用对象最好。
        dim cn as new adodb.connection  '声明对象
        cn.execute " "                 'SQl语句
        虽然形式简单,但功能却强大异常--甚至比标准SQl还厉害。如想细看可参见 “电脑报2002合订本下“16页文章。