Ошибка при имени dbf файла более 8 символов ( MSDASQL.1 )

@idm · Регистрация: 19.03.2015

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток

Цель функции: Найти *.dbf файлы в директории, присоединиться к ним в цикле и выполнить SQL запрос.
Ситуация такая: собрал проект на своей тачке ( установлен BDE может дело в нем ), все работает как нужно(!), но на соседней машине при имени файла более 8 символов происходит ошибка ( прилагается скрин ).
Уважаемые знатоки, помогите пожалуйста бездарю победить эту проблему, программа должна оставаться универсальной на сколько это возможно ( без дополнительных ручных настроек )
Вот код функции, слабоват в этом - сильно не пинайте,но критика приветствуется

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
void ScanINPUT()  // Ищем в IN *.dbf файлы и заполняем бокс "ChooseFile"
{
    Form1->ChooseFile->Clear();
    if (FindFirst("C:\\IN\\*.dbf", faAnyFile | faDirectory, File) == 0)
    {
        do
        {
            Form1->ChooseFile->Items->Add(File.Name);
        }
        while(FindNext(File) == 0);
    }
    Form1->Edit2->Text = Form1->ChooseFile->Items->Count; // Выводим количество dbf файлов в поле
 
    Form1->ADOConnection1->Connected = false;
    Form1->ADOConnection1->ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Initial Catalog=C:\\IN";
    Form1->ADOQuery1->Connection = Form1->ADOConnection1;
    Form1->ADOConnection1->Connected = true;
    int MassCount(0);
    for(int i(0);i < Form1->ChooseFile->Items->Count;i++)
    {
        Form1->ADOQuery1->SQL->Clear();
        Form1->ADOQuery1->SQL->Add("SELECT COUNT(*) as count FROM ["+Form1->ChooseFile->Items->Strings[i]+"]");
        Form1->ADOQuery1->Open();
        MassCount = MassCount+StrToInt(Form1->ADOQuery1->FieldByName("count")->AsString);
    }
    Form1->Edit3->Text = IntToStr(MassCount);
    Form1->ADOConnection1->Connected = false;
}

RAD Studio XE8

@Grossmeister · 08.12.2015, 15:02

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

установлен BDE может дело в нем

Вполне возможно. Сталкивался с тем, что при связи с dbf через ODBC (например, из Oracle) не воспринимаются имена больше 8 символов. Полагаю, что это тянется со времен DOS, там как раз был такой максимум: 8 символов имя и 3 символа расширения.

@idm · 09.12.2015, 11:18 **[ТС]**

Да, про это я читал, но к адекватному решению самостоятельно прийти так и не смог, может необходимо изменить Provider, соответственно ConnectionString или.. ( идей особо нет - потому и создал тему )

Добавлено через 20 часов 7 минут
К сожалению мне не удалось найти оптимального решения ( без установки BDE на все пользовательские машины ), и был вынужден решить проблему так:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
void ScanINPUT()  // Ищем в IN *.dbf файлы и заполняем бокс "ChooseFile"
{
    Form1->ChooseFile->Clear();
    if (FindFirst("C:\\IN\\*.dbf", faAnyFile | faDirectory, File) == 0)
    {
        do
        {
            Form1->ChooseFile->Items->Add(File.Name);
        }
        while(FindNext(File) == 0);
    }
    Form1->Edit2->Text = Form1->ChooseFile->Items->Count; // Выводим количество dbf файлов в поле
 
    Form1->ADOConnection1->Connected = false;
    Form1->ADOConnection1->ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Initial Catalog=C:\\IN";
    Form1->ADOQuery1->Connection = Form1->ADOConnection1;
    Form1->ADOConnection1->Connected = true;
    int MassCount(0);
    for(int i(0);i < Form1->ChooseFile->Items->Count;i++)
    {
        RenameFile("C:\\IN"+Form1->ChooseFile->Items->Strings[i],"C:\\IN"+IntToStr(i)+".dbf"); // ДОБАВЛЕНО
        Form1->ADOQuery1->SQL->Clear();
        Form1->ADOQuery1->SQL->Add("SELECT COUNT(*) as count FROM ["+IntToStr(i)+".dbf]"); // ИЗМЕНЕНО
        Form1->ADOQuery1->Open();
        MassCount = MassCount+StrToInt(Form1->ADOQuery1->FieldByName("count")->AsString);
        RenameFile("C:\\IN"+IntToStr(i)+".dbf","C:\\IN"+Form1->ChooseFile->Items->Strings[i]); // ДОБАВЛЕНО 
    }
    Form1->Edit3->Text = IntToStr(MassCount);
    Form1->ADOConnection1->Connected = false;
}

Тема все еще актуальна, если найдется тот, кто подскажет более рациональный способ, то буду ОЧЕНЬ признателен!

P.S. Локальный путь "C:\\IN"... далее будет заменен на SelectDirectory

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .