Работа с ODBC на других машинах

@mustang12 · Регистрация: 07.10.2014

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

Доброго времени суток, уважаемые форумчане. Есть проект курсовой: разработка рейсов аэрофлота. Все идет непосредственно через MySQL. Есть сайт, на котором идет поиск билетов, бронирование мест, просмотр всех рейсов. И есть клиент-программа, написанная на C++, через которую идет внесение рейсов в список и редактирование. Так вот, в чем соль: на ноуте, на котором писался курсач все запускается и компилируется без проблем. А на других компах, на которых хочу запустить данную клиент-программу пишет ДВА РАЗА ошибку "Источник данных не найден и не указан драйвер, используемый по умолчанию", потом открывается форма ввода пароля для просмотра. Когда вводится любой пароль(правильный/неправильный), неважно. Пишет "ADOTable1. Cannot perform this operation on a closed dataset".
Сразу говорю, ODBC установил на другую машину(а именно ODBC Connector) на x32 и на x64. Через Администрирование успешно подключился к хостингу, на котором размещена сама база, однако все равно не помогает. Есть идеи?

Вот форма ввода пароля для доступа к клиент программе:

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
String input_variable, password;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button1Click(TObject *Sender)
{
    input_variable = Edit1->Text;
    ADOTable1->First();
    bool coincidence=false;
    ADOTable1->First();
    for (int i=0;i<ADOTable1->RecordCount;i++)
    {
        password=ADOTable1->FieldByName("adminpass")->AsString;
        if (input_variable == password) coincidence = true;
        ADOTable1->Next();
    }
    if (!coincidence)
    {
        Label2->Show();
        Edit1->Text = "";
        return;
    }
    else
    {
        Label2->Visible = false;
        Edit1->Text = "";
        Form1->Show();
        Form1->Label2->Visible = true;
        Form1->Label3->Visible = true;
        Form1->Label4->Visible = true;
        Form1->Label5->Visible = true;
        Form1->Edit1->Visible = true;
        Form1->Edit2->Visible = true;
        Form1->Edit3->Visible = true;
        Form1->Edit4->Visible = true;
        Form1->Button1->Visible = true;
        Form3->Hide();
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button2Click(TObject *Sender)
{
 
    this->Close();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::FormKeyPress(TObject *Sender, System::WideChar &Key)
{
    if (Key==VK_RETURN) {
        Button1->Click();
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button4Click(TObject *Sender)
{
    Form3->Hide();
}
//---------------------------------------------------------------------------

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .