Связь нескольких баз через delphi

@pek · Регистрация: 27.04.2016

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

здравствуйте
хочу сделать в sqlservere несколко баз
так чтобы в одной были имена остальных баз (остальные будут одинаковые только название разны)
и чтобы в delphi реализовать вход в первую базу там выбор ныжной базы и переход туда
подскажите как это сделать
если есть пример киньте
заранее благодарен

@pincet · 24.10.2016, 12:44

зачем?

@pek · 24.10.2016, 12:48 **[ТС]**

ну например куча баз по городам москва питер киев вних стоматологических клиник , типа клиенты заболевания
я выбираю киев и поподаю в клиентов только киева
москву и только москвы
тоесть идёт переподключения по базам

@iap · 24.10.2016, 12:59

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

ну например куча баз по городам москва питер киев вних стоматологических клиник , типа клиенты заболевания
я выбираю киев и поподаю в клиентов только киева
москву и только москвы
тоесть идёт переподключения по базам

Не надо так делать.
Должен быть справочник городов и таблица клиник.
В таблице клиник - ID города, соответствующий ID в справочнике городов и т.д.

В клиенте задаёте город - и он с этого момента формирует запросы с WHERE CityID=<Выбранный ID города>.
Добавился город - и не придётся создавать таблицу, а ещё страшнее, базу, специально для этого.
Просто добавится ещё одна запись в таблице городов, которую надо будет задать при создании новой клиники.

@Grossmeister · 24.10.2016, 13:01

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

типа клиенты

Почему не сделать одну таблицу, скажем, по клиентам, в которой будет столбец с городом (или ссылкой на справочник городов)?

@pek · 08.08.2017, 03:11 **[ТС]**

посмотрите пожалуйста / что не так
ошибка "операция недоступна если обьет открыт"
с начало я с помощью procedure TForm2.InitaDatabase1; подключаюсь к общей базе через ini где ip из этой базы выдаю grig
потом procedure TForm2.Button1Click я опять из ini беру ip и из grid я считываю название базы для catalog с помощью cxGrid1DBTableView1.DataController.GetDi splayText(cxGrid1DBTableView1.DataContro ller.FocusedRecordIndex,0).
далее я привязываюсь к edit логин и пароль который в непосредственной базе который выбирается cxGrid1DBTableView1.DataController.GetDi splayText(cxGrid1DBTableView1.DataContro ller.FocusedRecordIndex,0).
я думаю ошибка в логине пароле что то не то выбираю

Delphi
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
procedure TForm2.Button1Click(Sender: TObject);
var
  IniFile: TIniFile;
 ip,user,password,catalog: string;
  connectionString: string;
  begin
 ADOConnection2.Connected:=false;
 connectionString:='Provider=SQLOLEDB.1;Password=DB_PASSWORD;Persist Security Info=True;User ID=DB_USER;Initial Catalog=DB_DATABASE;Data Source=DB_ADDRESS';
 
 
   IniFile:= TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
 
  ip:= IniFile.ReadString('IpAddresses', 'ip', '');
   catalog:=  cxGrid1DBTableView1.DataController.GetDisplayText(cxGrid1DBTableView1.DataController.FocusedRecordIndex,0) ;
 
  ADOQuery2.Close;
ADOQuery2.SQl.Clear;
ADOQuery2.SQL.Add('select * from users where username='''+Edit1.text+''';');
ADOQuery2.Open;
if ADOQuery2.Recordcount<>0 then
begin
  if ADOQuery2.FieldByName('password').AsString= Edit2.text then
                 user:= IniFile.ReadString('IpAddresses', 'user', '');
                 password:= IniFile.ReadString('IpAddresses', 'password', '');
  connectionString := StringReplace(connectionString,'DB_ADDRESS',ip,[rfReplaceAll, rfIgnoreCase]);
  connectionString := StringReplace(connectionString,'DB_USER',user,[rfReplaceAll, rfIgnoreCase]);
  connectionString := StringReplace(connectionString,'DB_PASSWORD',password,[rfReplaceAll, rfIgnoreCase]);
  connectionString := StringReplace(connectionString,'DB_DATABASE',catalog,[rfReplaceAll, rfIgnoreCase]);
 
 
  ADOConnection2.ConnectionString:=connectionString;
  adoconnection2.LoginPrompt:=false;
  ADOConnection2.Connected:=true;
 
end
  else
ShowMessage('вход не выполнен');//условие если пароль не верный
 
end ;
 
procedure TForm2.InitaDatabase1;     // подключение через ini
var
  IniFile: TIniFile;
 ip,user,password,catalog: string;
  connectionString: string;
  begin
 ADOConnection1.Connected:=false;
 connectionString:='Provider=SQLOLEDB.1;Password=dubovoy;Persist Security Info=True;User ID=dubovoy;Initial Catalog=ОСНОВНАЯ БАЗА;Data Source=DB_ADDRESS';
   IniFile:= TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
   ip:= IniFile.ReadString('IpAddresses', 'ip', '');
  connectionString := StringReplace(connectionString,'DB_ADDRESS',ip,[rfReplaceAll, rfIgnoreCase]);
 
 
 
  ADOConnection1.ConnectionString:=connectionString;
  adoconnection1.LoginPrompt:=false;
  ADOConnection1.Connected:=true;
  end;
 
 
end.

заранее благодарен

@qwertehok · 08.08.2017, 16:20

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

посмотрите пожалуйста / что не так

ты задаешь вопрос по делфи в ветке по БД

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

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

ну так выясняй

тебе уже объяснили что заводить на сервере кучу баз не обязательно
можно хранить все в одной и получить тот же функционал

@pek · 09.08.2017, 05:47 **[ТС]**

подскажите как перенести вопрос в ветку delphi или там тему создать с постом #6

@qwertehok · 09.08.2017, 07:51

напиши модератору ветки

@pek · 09.08.2017, 18:02 **[ТС]**

подскажите плиз стал понимать свои ошибки
но не могу доделать стал писать так
как мне сделать чтобы считанный фокус сразу был виден для запроса

Delphi
1
2
3
4
5
6
catalog:=  cxGrid1DBTableView1.DataController.GetDisplayText(cxGrid1DBTableView1.DataController.FocusedRecordIndex,0) ;
 
ADOQuery2.Close;
ADOQuery2.SQl.Clear;
ADOQuery2.SQL.Add('use catalog select * from users where username='''+Edit1.text+''';');
ADOQuery2.Open;

Добавлено через 7 минут
дошел до этого момента

Delphi
1
ADOQuery2.SQL.Add('use '+ catalog + 'select * from users where username='''+Edit1.text+''';');

но видит вот такое ИМЯБАЗЫselect то есть не правильно

@qwertehok · 09.08.2017, 18:03

а пробел перед select поставить?

@pek · 09.08.2017, 18:15 **[ТС]**

да спасибо.
а подскажите у меня в базе есть
1 username на английском туда захожу
1 username на русском туда не могу зайти
что делать

@qwertehok · 09.08.2017, 18:37

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

что делать

это ваша задача - вам решать

@pek · 10.08.2017, 04:38 **[ТС]**

и всё таки
что можно сделать если не определяет логин написанный на русском а на английском определяет

ошибка входа пользователя "имя пользователя "

@D1973 · 10.08.2017, 05:05

сравнить кодировки в БД и в программе?

@qwertehok · 10.08.2017, 06:45

Не по теме:

да какие там кодировки?
кривые руки
у меня все русские логины в Firedac работали

@pek · 10.08.2017, 09:00 **[ТС]**

подскажите в каком месте руки кривые

@qwertehok · 10.08.2017, 09:19

Не по теме:

1. ты создал тему не в том разделе
2. ты не слушаешь советов что тебе говорят
3. ты пробел сам добавить не можешь
4. ты спрашиваешь, но код свой не показываешь

продолжать?

@pek · 10.08.2017, 09:54 **[ТС]**

вот код кнопки

Delphi
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
procedure TForm2.Button1Click(Sender: TObject);
var
  IniFile2: TIniFile;
 ip,user,password,catalog: string;
  connectionString2: string;
  begin
// ADOConnection2.Connected:=false;
// connectionString2:='Provider=SQLOLEDB.1;Password=DB_PASSWORD;Persist Security Info=True;User ID=DB_USER;Initial Catalog=DB_DATABASE;Data Source=DB_ADDRESS';
 
 
 //  IniFile2:= TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
 
//  ip:= IniFile2.ReadString('IpAddresses', 'ip', '');
   catalog:=  cxGrid1DBTableView1.DataController.GetDisplayText(cxGrid1DBTableView1.DataController.FocusedRecordIndex,0) ;
 
ADOQuery2.Close;
ADOQuery2.SQl.Clear;
ADOQuery2.SQL.Add('use '+ catalog + ' select * from users where username='''+Edit1.text+''';');//логин 
ADOQuery2.Open;
 
  if ADOQuery2.FieldByName('password').AsString= Edit2.text then                                            //пароль 
  begin
  ADOConnection2.Connected:=false;
  connectionString2:='Provider=SQLOLEDB.1;Password=DB_PASSWORD;Persist Security Info=True;User ID=DB_USER;Initial Catalog=DB_DATABASE;Data Source=DB_ADDRESS';
 
 
  IniFile2:= TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
 
  ip:= IniFile2.ReadString('IpAddresses', 'ip', '');
                 user:= Edit1.text;        // логин
                 password:= Edit2.text  ;  // пароль
 
  connectionString2 := StringReplace(connectionString2,'DB_ADDRESS',ip,[rfReplaceAll, rfIgnoreCase]);
  connectionString2 := StringReplace(connectionString2,'DB_USER',user,[rfReplaceAll, rfIgnoreCase]);
  connectionString2 := StringReplace(connectionString2,'DB_PASSWORD',password,[rfReplaceAll, rfIgnoreCase]);
  connectionString2 := StringReplace(connectionString2,'DB_DATABASE',catalog,[rfReplaceAll, rfIgnoreCase]);
 
 
  ADOConnection2.ConnectionString:=connectionString2;
  adoconnection2.LoginPrompt:=false;
  ADOConnection2.Connected:=true;
  ShowMessage('вход');
     edit1.Clear;
     edit2.Clear;
 
 
 
  end
  else  ShowMessage('вход не выполнен');
  edit1.Clear;
  edit2.Clear;
 
 
  end ;

@qwertehok · 10.08.2017, 11:21

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

вот код кнопки

и что?
где ошибка? на какой строке? что там внутри?
отладчиком проходил?

Новые блоги и статьи Все статьи Все блоги /
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(), которая. . .

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376

	Связь нескольких баз через delphi 24.10.2016, 12:25. Показов 1364. Ответов 20 Метки нет (Все метки) здравствуйте хочу сделать в sqlservere несколко баз так чтобы в одной были имена остальных баз (остальные будут одинаковые только название разны) и чтобы в delphi реализовать вход в первую базу там выбор ныжной базы и переход туда подскажите как это сделать если есть пример киньте заранее благодарен 0

@pincet 1654 / 1153 / 173 Регистрация: 23.07.2010 Сообщений: 6,910
	24.10.2016, 12:44
	зачем? 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	24.10.2016, 12:48 [ТС]
	ну например куча баз по городам москва питер киев вних стоматологических клиник , типа клиенты заболевания я выбираю киев и поподаю в клиентов только киева москву и только москвы тоесть идёт переподключения по базам 0

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	09.08.2017, 05:47 [ТС]
	подскажите как перенести вопрос в ветку delphi или там тему создать с постом #6 0

@qwertehok 5966 / 4542 / 1094 Регистрация: 29.08.2013 Сообщений: 28,151 Записей в блоге: 3
	09.08.2017, 07:51
	напиши модератору ветки 0

@qwertehok 5966 / 4542 / 1094 Регистрация: 29.08.2013 Сообщений: 28,151 Записей в блоге: 3
	09.08.2017, 18:03
	а пробел перед select поставить? 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	09.08.2017, 18:15 [ТС]
	да спасибо. а подскажите у меня в базе есть 1 username на английском туда захожу 1 username на русском туда не могу зайти что делать 0

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	10.08.2017, 04:38 [ТС]
	и всё таки что можно сделать если не определяет логин написанный на русском а на английском определяет ошибка входа пользователя "имя пользователя " 0

@D1973 Модератор 9916 / 6453 / 2455 Регистрация: 21.01.2014 Сообщений: 27,389 Записей в блоге: 3
	10.08.2017, 05:05
	сравнить кодировки в БД и в программе? 0

@qwertehok
	10.08.2017, 06:45
	Не по теме: да какие там кодировки? кривые руки у меня все русские логины в Firedac работали 1

@pek 0 / 0 / 1 Регистрация: 27.04.2016 Сообщений: 376
	10.08.2017, 09:00 [ТС]
	подскажите в каком месте руки кривые 0

@qwertehok
	10.08.2017, 09:19
	Не по теме: 1. ты создал тему не в том разделе 2. ты не слушаешь советов что тебе говорят 3. ты пробел сам добавить не можешь 4. ты спрашиваешь, но код свой не показываешь продолжать? 1