做一个连接到ACCESS,再做一个到DBASE,然后一条数据一条数据倒。

解决方案 »

  1.   

    如果我想先生成dbase文件呢?
    (因为文件名后六个字符是日期,要动态生成)
      

  2.   

    dim cnn as adodb.connection
    opnFilePath = opnFilePath + "\" + opnFileName + "_" + "DB4"
    If Dir(opnFilePath, vbDirectory) = "" Then MkDir opnFilePath
    Set cnn = new adodb.connection
    cnn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data......"
    '******************************************************************
    strTempStr = "SELECT * INTO [dBASE IV;DATABASE=" + _
    opnFilePath + "].[" + tableName + "]" + " FROM [" + tableName + "]"
    '******************************************************************
    cnn.Execute strTempStr
    cnn.Close
    set cnn = nothing
      

  3.   

    用dbase IV则中文成了乱码,如何解决,急切等待中?