root/trunk/activex/vbscript_accesstodbase.d

import std.c.windows.windows; /* for MessageBoxA */

import activex; /* for AXO */

void main()
{
    AXO cnn = new AXO("ADODB.Connection");
    AXO rst = new AXO("ADODB.Recordset");


    //Const adSchemaProviderSpecific = -1

    //Const JET_SCHEMA_USERROSTER = "{947bb102-5d43-11d1-bdbf-00c04fb92675}"

    

    //Working formats:
    //dBase 5.0  - directory has to already exist
    //dBase IV   - directory has to already exist
    //Jet 3.x    - .mdb file has to already exist (and be the right format)

    //Doesn't work:
    //Excel 8.0
    //Text        - something is read-only?
    //Lotus WK4
    //HTML Export - something is read-only?
    //HMTL Import - The Microsoft ... cannot open the file 'F:\Pgm\ADO\Paradox'. ...


    char[] F = r"D:\MyFiles\pgm\d\src\jcc7\tests\activex\filenames.mdb";
    char[] Format = "dBase IV";
    char[] TargetPath = r"d:\MyFiles\pgm\d\src\jcc7\tests\activex";
    char[] databaseTarget = "dbase";
    char[] Table = "tbl_turnpike_filenames";

    try
    {
        with(cnn)
        {
            set("ConnectionString", toVariant("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" ~ F ~ "'" ));
            call("Open");
        }

        rst.call("Open", 
          toVariant("SELECT * INTO [" ~ Format ~ "; database=" ~ TargetPath ~ "].[" ~ databaseTarget ~ "] FROM [" ~ Table ~ "]"), 
          toVariant(cnn), 
          toVariant(3), /* Const adOpenStatic = 3 */
          toVariant(1)); /* Const adLockReadOnly = 1 */

    }
    finally
    {
        int ret = MessageBoxA(null, "Message\0", "Title\0", 0);
        //ie.call("Quit");
    }
}