Ошибка при создании строки соединения

@TrueSize · Регистрация: 11.05.2011

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

Здравствуйте!
При создании строки соединения вылетает Название: 8feca35adb12.jpg
Просмотров: 75

Размер: 19.5 Кб

Помогите пожалуйста разобраться, где ошибка в коде?

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
getdir(0,db); //узнаю путь к файлу
db:=db+'\dat.mdb';
 
adoconnection1.Connected:=false;
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source'+db+
'Mode=Share Deny None;Extended Properties="";'+
'Jet OLEDB:System database="";Jet OLEDB:Registry Path="";'+
'Jet OLEDB:Database Password=xf3z54dlc;Jet OLEDB:Engine Type=5;'+
'Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;'+
'Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";'+
'Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;'+
'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False;';
adoconnection1.Connected:=true;
adotable1.Active:=true;

@эля1 · 07.08.2011, 07:49

Попробуй указать путь к файлу автоматически через ConnectionString

@TrueSize · 07.08.2011, 12:00 **[ТС]**

Сообщение от эля1

Попробуй указать путь к файлу автоматически через ConnectionString

Что вы имеете ввиду? Поподробнее можно? Если посудить, путь у меня и так определяется автоматически... Или я что-то путаю?

@эля1 · 07.08.2011, 12:22

Когда поместили на форму TADOConnection, то в инспекторе объектов жмете свойство ConnectionString, дальше жмете build, а теперь выбираете подключаемые данные Microsoft Jet 4.0 OLE DB Provider. дальше указываете путь к Вашей базе данных. И на этой же вкладке проверьте подключение. Жмете OK

@TrueSize · 07.08.2011, 12:53 **[ТС]**

Сообщение от эля1

Когда поместили на форму TADOConnection, то в инспекторе объектов жмете свойство ConnectionString, дальше жмете build, а теперь выбираете подключаемые данные Microsoft Jet 4.0 OLE DB Provider. дальше указываете путь к Вашей базе данных. И на этой же вкладке проверьте подключение. Жмете OK

Вы кажется не поняли суть моей проблемы... Я пытаюсь сформировать строку соединения программно для создания динамического пути к файлу .mdb . Для того, чтобы программа работала на другом компьютере без ковыряния в исходнике.

@эля1 · 07.08.2011, 13:27

если это сработает. Скопируете в код программы что получиться. Тогда точно будет работать без ошибок.

@TrueSize · 07.08.2011, 13:41 **[ТС]**

Сообщение от эля1

если это сработает. Скопируете в код программы что получиться. Тогда точно будет работать без ошибок.

Я это и сделал (разумеется, пытался поставить в нужных местах знаки "+" и апострофы, потому что без них вылетает ошибка, где ругается на синтаксис), но где то все равно ошибся... Вот я и хочу узнать, где....

@эля1 · 07.08.2011, 14:15

Вот рабочий код подключения

Delphi
1
2
3
4
d:='C:\1\1.mdb';
  ADOConnection1.Connected:=false;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+d;
  ADOConnection1.Connected:=true;

Добавлено через 5 минут
1 ошибка у вас:

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

Delphi
1
'Data Source'+db

Надо 'Data Source='+db

2 ошибка

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

Delphi
1
'Extended Properties=""

Вроде надо так

Delphi
1
'Extended Properties='+QuoTedStr('')

и везде где стоят двоиные кавычки

@TrueSize · 07.08.2011, 14:39 **[ТС]**

Сдвиг есть, но теперь вылетает другая ...

@эля1 · 07.08.2011, 14:46

начните со следующего рабочего кода

Delphi
1
2
3
4
d:='C:\1\1.mdb';
  ADOConnection1.Connected:=false;
  ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+d;
  ADOConnection1.Connected:=true;

А дальше если надо, то добавляется по строчке и проверяйте на работоспособность

@TrueSize · 07.08.2011, 15:23 **[ТС]**

Теперь уже выскакивает ошибка, что не удается найти файл... Хотя путь к файлу устанавливается точный..

Delphi
1
2
3
4
5
6
7
8
9
adoconnection1.Connected:=false;
getdir(0,db);
db:=db+'\data\Deloen_log.mdb';
edit7.Text:=db;
adoconnection1.Connected:=false;
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin; Data Source='+db+
'Persist Security Info=True; Jet OLEDB:Database Password=xf3z54dlc;';
adoconnection1.Connected:=true;
adotable1.Active:=true;

@эля1 · 07.08.2011, 15:46

Попробуйте полный путь указать. А пароль снимите пока с файла

@TrueSize · 07.08.2011, 16:43 **[ТС]**

Пароль снял с файла, путь присваивается через переменную и определяется динамически...
Так все работает... Но мне пароль к файлу то нужен (не " для понта" все это делалось...)
Как теперь быть?
Без пароля все идеально....

Delphi
1
2
3
4
5
6
adoconnection1.Connected:=false;
getdir(0,db);
db:=db+'\data\D_log.mdb';
edit7.Text:=db;
adoconnection1.Connected:=false;
adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin; Data Source='+db;

Без пароля все работает, но стоит только добавить пароль, так сразу пишет: не удается найти файл.

@эля1 · 07.08.2011, 16:56

пароль который ставиться в аксессе это пароль на шифрование данных
7 строку вашего предыдушего кода напишите следующим образом
';Persist Security Info=True; Jet OLEDB:Database Password=xf3z54dlc';

@TrueSize · 07.08.2011, 19:54 **[ТС]**

Сообщение от эля1

пароль который ставиться в аксессе это пароль на шифрование данных
7 строку вашего предыдушего кода напишите следующим образом
';Persist Security Info=True; Jet OLEDB: Database Password=xf3z54dlc';

Я точно так же прописывал до этого... Точно такая же возникает...

@эля1 · 07.08.2011, 19:56

Вы прописывали без знака; в начале строки. В этом и разница. Приглядитесь по лучше

@TrueSize · 07.08.2011, 20:04 **[ТС]**

Сообщение от эля1

Вы прописывали без знака; в начале строки. В этом и разница. Приглядитесь по лучше

Хм, действительно, помогло

Спасибо вам огромное, что потратили на меня время!!!!

PS А вы не могли бы объяснить значимость ";" в начале строчки?

@эля1 · 07.08.2011, 20:28

Просто свойства соединения (то есть путь, пароль и тд) разделяются знаком;
А вы не увидели, что после пути нет его.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	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 была полностью переписана на Си, в. . .

@эля1 21 / 21 / 2 Регистрация: 10.11.2009 Сообщений: 66
	07.08.2011, 07:49
	Попробуй указать путь к файлу автоматически через ConnectionString 1

@эля1 21 / 21 / 2 Регистрация: 10.11.2009 Сообщений: 66
	07.08.2011, 12:22
	Когда поместили на форму TADOConnection, то в инспекторе объектов жмете свойство ConnectionString, дальше жмете build, а теперь выбираете подключаемые данные Microsoft Jet 4.0 OLE DB Provider. дальше указываете путь к Вашей базе данных. И на этой же вкладке проверьте подключение. Жмете OK 1

@эля1 21 / 21 / 2 Регистрация: 10.11.2009 Сообщений: 66
	07.08.2011, 13:27
	если это сработает. Скопируете в код программы что получиться. Тогда точно будет работать без ошибок. 1

@TrueSize 2 / 2 / 0 Регистрация: 11.05.2011 Сообщений: 131
	07.08.2011, 14:39 [ТС]
	Сдвиг есть, но теперь вылетает другая ... 0

@эля1 21 / 21 / 2 Регистрация: 10.11.2009 Сообщений: 66
	07.08.2011, 15:46
	Попробуйте полный путь указать. А пароль снимите пока с файла 1

@эля1 21 / 21 / 2 Регистрация: 10.11.2009 Сообщений: 66
	07.08.2011, 16:56
	пароль который ставиться в аксессе это пароль на шифрование данных 7 строку вашего предыдушего кода напишите следующим образом ';Persist Security Info=True; Jet OLEDB:Database Password=xf3z54dlc'; 1

@эля1 21 / 21 / 2 Регистрация: 10.11.2009 Сообщений: 66
	07.08.2011, 19:56
	Вы прописывали без знака; в начале строки. В этом и разница. Приглядитесь по лучше 1

@эля1 21 / 21 / 2 Регистрация: 10.11.2009 Сообщений: 66
	07.08.2011, 20:28
	Просто свойства соединения (то есть путь, пароль и тд) разделяются знаком; А вы не увидели, что после пути нет его. 1