powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как сделать
17 сообщений из 17, страница 1 из 1
Как сделать
    #32202130
TimKo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть несколько ДБ. Как на Делфи5 сделать, чтобы программа подставляла один за другим разные пути к базам (у каждой базы свой путь), выводя из каждой информацию?????????????????????
...
Рейтинг: 0 / 0
Как сделать
    #32202161
Vladimir_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Неплохо бы указывать что за база и через что идёт обращение к ней
...
Рейтинг: 0 / 0
Как сделать
    #32202163
mpro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
менять пути и выводить инфу
...
Рейтинг: 0 / 0
Как сделать
    #32202720
TimKo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а как???
...
Рейтинг: 0 / 0
Как сделать
    #32203400
Lt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lt
Гость
Если соединение выполняется через компонент Database то можно
изменять его совойство databasename или как там его.
Список путей можно хранить либо в ини-файле (IniFiles)
или в текстовом.
...
Рейтинг: 0 / 0
Как сделать
    #32203414
TimKo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а они и хранятся в файле вместе с паролями и username и как заставить прогу выуживать информацию не из одной БД(к которой указаны путь,логин) а из всех,подключаясь к ним поочереди.
...
Рейтинг: 0 / 0
Как сделать
    #32203434
Lt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lt
Гость
Database.Open;
// после выполнения этого оператора, если соединение успешно
можно выводить данные (доп TSession)
Database.Close;
// передача новых параметров соединения
Database.Open;
и т.д.
конкретное количество обращений будет определяться количеством
путей - паролей
полученный данные можно накапливать например в TList или
соответствующих компонентах
...
Рейтинг: 0 / 0
Как сделать
    #32203454
TimKo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так понимаешь в чем дело используется HTBase, а там нет open,close-------есть connect,disconnect, но при таком использовании:
HTBase1.Connect;
ввожу пути
HTBase1.Disconnect;
и все по-новой
- она выдает какую-то ошибку в процессе????
...
Рейтинг: 0 / 0
Как сделать
    #32203468
Lt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lt
Гость
Может у тебя путь/пароль/имя пользователя неправильные
и не получается сконнектится с базой просто по этой причине
(параметры надо задавать при отключенном соединении, после
disconnect)
...
Рейтинг: 0 / 0
Как сделать
    #32203481
TimKo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нет, это у меня все правильное.Когда я ввожу их поочереди все работает.
Вот я пишу
HTBase1.Disconnect;
HTBase1.DbPath:='.......';
HTBase1.UserName:='.....';
HTBase1.Password:='...';
HTBase1.Connect;
HTBase1.Disconnect;

HTBase1.DbPath:='новый путь';
HTBase1.UserName:='новое имя';
HTBase1.Password:='новый пароль';
HTBase1.Connect;
HTBase1.Disconnect;
и не работает ведь???
...
Рейтинг: 0 / 0
Как сделать
    #32203498
Lt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lt
Гость
Честно говоря не занаю что это за HTBase поэтому не могу сказать ничего определенного. По всей видимости после disconnect не происходит отключения от БД. Если информация скачивается через Query или подобные наборы данных то можно попробовать закрывать их для начала или посмотреть дополнительные свойства HTBase( у него есть свойство Active)
...
Рейтинг: 0 / 0
Как сделать
    #32203546
TimKo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Да, информация скачивается через Query.\
Пробовал типа
HTBase1.Active:=true;
HTBase1.DbPath:='...';
HTBase1.UserName:='...';
HTBase1.Password:='...';
HTquery1.active:=true;
HTBase1.Connect;
HTBase1.Disconnect;
HTquery1.active:=false;
HTBase1.Active:=false;
HTBase1.Active:=true;
HTBase1.DbPath:='...';
HTBase1.UserName:='...';
HTBase1.Password:='...';
HTquery1.active:=true;
HTBase1.Connect;
HTBase1.Disconnect;
HTQuery1.Active:=false;
HTBase1.active:=false;
все равно какая-то ошибка в процессе: 'access violation at ....'
????
...
Рейтинг: 0 / 0
Как сделать
    #32203574
Lt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lt
Гость
Судя по коду производится попытка переустановки параметров при установленном соединении, т.к. команда Connect эквивалентна установке свойства Active компонента в true. Я имел ввиду анализ свойства Active после выполнения Disconnect.
...
Рейтинг: 0 / 0
Как сделать
    #32203582
Lt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lt
Гость
Можно попробовать
HTQuery1.close(если есть) HTQuery1.Active:=false;
HtBase1.Disconnect;
// insert new password, path and username
HTBase1.Connect; если есть свойство Autoconnect или как его там не помню
можно сразу HTQuery1.Open или HTQuery1.Active:=true;
// получение данных
// все сначала
...
Рейтинг: 0 / 0
Как сделать
    #32204441
TimKo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Она выдает какую-то ошибку, я то пишу через function TForm1.HtBase1LoginPrompt:


function TForm1.HtBase1LoginPrompt(Sender: TObject): Boolean;
begin
HTBase1.DbPath:='tcpip:/10.77.0.62:13000';
HTBase1.UserName:='...';
HTBase1.Password:='...';
HTQuery1.close;
HtBase1.Disconnect;
HTBase1.DbPath:='tcpip:/10.77.0.63:13000';
HTBase1.UserName:='...';
HTBase1.Password:='...';
HTBase1.Connect;
HTQuery1.open;
end;


может надо как-нибудь по-другому????
...
Рейтинг: 0 / 0
Как сделать
    #32206035
mpro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
надо использовать нормальные компоненты, обращайся к разработчику
...
Рейтинг: 0 / 0
Как сделать
    #32206051
mpro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
обращайся к разработчику это по твои компоненты в смысле за помощью
...
Рейтинг: 0 / 0
17 сообщений из 17, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Как сделать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]