Ошибка при экспорте DBF

[ilyuha]

Добрый день.
АХ2009
Win XP
У нас имеется самописный функционал, который выгружает документы в формате DBF. Но у некоторых пользователей возникает ошибка при экспорте:
"Метод "execute" в COM-объекте класса "ADODB.Command" возвратил код ошибки 0x80040E14 (<неизвестно>), который означает: [Microsoft][Драйвер ODBC dBase] Ошибка синтаксиса в инструкции CREATE TABLE."


Драйвер установлен.
Посоветуйте пожалуйста, в чем может быть причина...

[asd1274]

У вас проблема с синтаксисом в команде создания файла dbf.
Попробуйте ее вытащить в info и выполнить например в Foxpro.
Вот рабочий вариант:

    CCADOConnection              dBF_Con;
    CCADOCommand             aDO;
    CCADORecordset             aDR;
    str filePath = 'c:\\1\\', fileName = '001.dbf';
    str                                   cmdText, cmd_del, cmd_value;
    CustTable                        CustTable;
    RContractTable                RContractTable;

    ;

    dBF_Con     = new CCADOConnection();
    aDO         = new CCADOCommand();
    aDR         = new CCADORecordset();


     dBF_Con.open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Extended Properties=dbase 5.0;Data Source="+filePath+";");
         ADO.activeConnection(dBF_Con);
        if (dBF_Con)
    {
         cmd_del = "DROP Table "+ fileName;
         ADO.commandText(cmd_del);
         ADR = ADO.execute();
       cmdText = " CREATE TABLE " + fileName + " (ACCOUNTNUM char(20), DATEDOG date, NDOG char(20), DOGACCOUNT char(10))"; // договора

        ADO.commandText(cmdText);
        ADR = ADO.execute();
      }

Как то так - сверьте с тем что есть у вас.

[ilyuha]

Цитата:

Сообщение от asd1274

У вас проблема с синтаксисом в команде создания файла dbf.
Попробуйте ее вытащить в info и выполнить например в Foxpro.
Вот рабочий вариант:

    CCADOConnection              dBF_Con;
    CCADOCommand             aDO;
    CCADORecordset             aDR;
    str filePath = 'c:\\1\\', fileName = '001.dbf';
    str                                   cmdText, cmd_del, cmd_value;
    CustTable                        CustTable;
    RContractTable                RContractTable;

    ;

    dBF_Con     = new CCADOConnection();
    aDO         = new CCADOCommand();
    aDR         = new CCADORecordset();


     dBF_Con.open("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Extended Properties=dbase 5.0;Data Source="+filePath+";");
         ADO.activeConnection(dBF_Con);
        if (dBF_Con)
    {
         cmd_del = "DROP Table "+ fileName;
         ADO.commandText(cmd_del);
         ADR = ADO.execute();
       cmdText = " CREATE TABLE " + fileName + " (ACCOUNTNUM char(20), DATEDOG date, NDOG char(20), DOGACCOUNT char(10))"; // договора

        ADO.commandText(cmdText);
        ADR = ADO.execute();
      }

Как то так - сверьте с тем что есть у вас.

У нас все практически один в один, только имеются доп. условия...

[asd1274]

Какие именно - если можете дайте ваш код - попробую у себя запустить.

[ilyuha]

cmdText                 = " CREATE TABLE " + filenameTmp + " (";
            cmdTextInsertTemplate   = " INSERT INTO "  + filenameTmp + " (";

            while select usrExpImpField
            order by usrExpImpField.Sequence
            where usrExpImpField.GroupId == groupId
            {
                if (usrExpImpField.Enabled)
                {
                    fieldName = usrExpImpField.ExFieldName ? usrExpImpField.ExFieldName : usrExpImpField.fieldName(false, "");
                   cmdText += strfmt("%1 %2%3,",
                                    fieldName,
                                    this.BaseTypeToADOType(usrExpImpField.baseType()),
                                    usrExpImpField.baseType() == Types::String ? strfmt("(%1)",usrExpImpField.FieldSize()) : "");

                    cmdTextInsertTemplate += fieldName + ",";
                }
            }

            cmdText =   strdel(cmdText,strlen(cmdText),1);
            cmdText += ")";

            cmdTextInsertTemplate =   strdel(cmdTextInsertTemplate,strlen(cmdTextInsertTemplate),1);
            cmdTextInsertTemplate += ") values (";

            dBF_Con     = new CCADOConnection();
            aDO         = new CCADOCommand();
            aDR         = new CCADORecordset();
            dBF_Con.open("Driver={Microsoft dBase Driver (*.dbf)};");
            ADO.activeConnection(dBF_Con);

            if (dBF_Con)
            {
                ADO.commandText(cmdText);
                ADR = ADO.execute();
            }

[asd1274]

Если можно, то покажите здесь значение cmdText - перед "ADR = ADO.execute();" - я его прогоню в foxpro.

[Владимир Максимов]

А с правами доступа к нужной директории все в порядке?

1. С того рабочего места, где Вы выполняете код видна та сетевая директория, в которой Вы пытаетесь создать файл DBF?
1.2. Вы выполняете код со стороны сервера или клиента? Сетевая папка видна и со стороны сервера и со стороны клиента?
2. У пользователя, от имени которого идет обращение, есть права на создание файлов в указанной директории?

[asd1274]

Наверное в данном случае была бы не синтаксическая ошибка а какая то другая или я ошибаюсь?

[ilyuha]

Цитата:

Сообщение от Владимир Максимов

А с правами доступа к нужной директории все в порядке?

1. С того рабочего места, где Вы выполняете код видна та сетевая директория, в которой Вы пытаетесь создать файл DBF?
1.2. Вы выполняете код со стороны сервера или клиента? Сетевая папка видна и со стороны сервера и со стороны клиента?
2. У пользователя, от имени которого идет обращение, есть права на создание файлов в указанной директории?

С правами все в порядке.

[asd1274]

Повторюсь - тогда проблема в провайдере - вам надо Jet указывать обязательно. Хотя наверное проще было бы CREATE сделать без указания пути к файлу - его надо перенести в описание провайдера.