dim strsql as string,db as database 
strsql = "delete * from (表)"db.Execute strsql

解决方案 »

  1.   

    Delete * FROM TableName
      

  2.   

    dim mCmd as new Adodb.Command
    mCmd.commandtext="Delete from 表名"
    mCmd.commandType=adcmdtext
    mcmd.execute
      

  3.   

    少说了一句,上面的语句在使用的时候,一定要首先引用Ado
      

  4.   

    连好数据库后,执行SQL语句.
    如果是Access数据库,
    Delete * from Table.
    SQL Server数据库.
    Delete from Table.
      

  5.   

    SQL Server数据库.
    TURNCATE Table TABLENAME