go zqfleaf:
    是的,在不周的数据库中。(.mdb)

解决方案 »

  1.   

    dim cn as new adodb.connectioncn.open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
               "Data Source=A1......"cn.execute "select * into tablename in B1 from tablename"'或不带数据
    cn.execute "select * into tablename in B1 from tablename where false"
      

  2.   

    谢谢你,of123
       好像在SQLServer中就不行了,是不是啊!请问。
      

  3.   

    一样的呀
    只是connectstring不一样
    SQLServer的话
    cn.open "DRIVER=SQLServer;Server=YourServer;DataBase=YourData;.." & 
      

  4.   

    TO holydiablo
       你好,我试过了,可是直的不行。(SqlServer中)
        
    Dim cn As New ADODB.connection
    cn.Open "driver={sqlerver};server=server;database=Mis;uid=sa;pwd=sa"
    cn.execute "select * into tableDec in DBdec from TB1 where false"