Поиск:

Ответ в темуСоздание новой темы Создание опроса
> проложить путь в БД 
:(
    Опции темы
staziah2
Дата 24.3.2015, 08:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 24.3.2015

Репутация: нет
Всего: нет
Добрый день! Не могу никак сообразить,что нужно прописать в процедуре.Какие коды.
Компоненты:OpenDialog,wwDBComboDlg,Button1(Создать) на форме,в дате модуля ADOQuery,Datasource. 
Суть:человек нажимает на wwDBComboDlg,открывается окно(выбор папки),выбрал нужный файл,и в строке wwDBComboDlg текст пути.Нажимаем на Button1(Создать),и в БД в поле path,оказалась новая путь.

Это сообщение отредактировал(а) staziah2 - 24.3.2015, 08:08
PM MAIL ICQ   Вверх
salik
Дата 24.3.2015, 08:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 28.1.2011

Репутация: нет
Всего: 1
Вопросы надо ставить конкретнее, а не сделай то незнамо что.
PM MAIL   Вверх
Poseidon
Дата 24.3.2015, 08:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 3
Всего: 133
staziah2, опиши лучше проблему на своем родном языке.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
staziah2
Дата 24.3.2015, 09:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 24.3.2015

Репутация: нет
Всего: нет
Цитата(Poseidon @ 24.3.2015,  08:51)
staziah2, опиши лучше проблему на своем родном языке.

Код

procedure TForm5.wwDBComboDlg1Enter(Sender: TObject);
begin
 with (Sender as  Form5.wwDBComboDlg1) do
begin
if (CanDropDown) then
 begin
   CanDropDown:=False;
if ni InInsert then
  begin
   Form5.OpenDialog1.InitialDir:= ExtractFilePath(dm.Mainpath.AsString);
   Form5.OpenDialog1.FileName:= dm.Mainpath.AsString;
 end;
   if Form5.OpenDialog1.Execute then
begin 
  dm.Mainpath.AsString:= Form5.OpenDialog1.FileName;
end;
end
else
begin
CanDropDown:=true;
end;
end;


Что-то наподобие. Насчет программы представьте себе,открыли программу Электронный архив чертежей,вам надо будет добавить новый рисунок с расширением *.tif,то бишь указать путь откуда этот рисунок и куда(то бишь в бд в таблицу [naryadi], в поле [path].
я не знаю как картинки выложить.

Добавлено через 2 минуты и 17 секунд
Цитата(salik @ 24.3.2015,  08:30)
Вопросы надо ставить конкретнее, а не сделай то незнамо что.


см.ниже
PM MAIL ICQ   Вверх
salik
Дата 24.3.2015, 10:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 74
Регистрация: 28.1.2011

Репутация: нет
Всего: 1
Цитата(staziah2 @ 24.3.2015,  10:49)
я не знаю как картинки выложить.

Я так понял у вас есть папка куда вы копируйте все  ваши файлы выбранные в диалоговом окне. И просите написать запрос на добавление в базу строки с именем файла. Все правильно?
PM MAIL   Вверх
staziah2
Дата 25.3.2015, 01:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 24.3.2015

Репутация: нет
Всего: нет
Цитата(salik @ 24.3.2015[/QUOTE)

Я так понял у вас есть папка куда вы копируйте все  ваши файлы выбранные в диалоговом окне. И просите написать запрос на добавление в базу строки с именем файла. Все правильно?


Да,например картинки находятся \\Pdc\Наряды\    Вот там и находятся все отсканированные листы-наряды
PM MAIL ICQ   Вверх
Vas
Дата 25.3.2015, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28
Код

var
  fullFileName : string;

begin
  // Установка полного имени файла с диском и путем
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Показ составляющих частей этого полного имени
  ShowMessage('Диск       = '+ExtractFileDrive (fullFileName));
  ShowMessage('Каталог    = '+ExtractFileDir   (fullFileName));
  ShowMessage('Путь       = '+ExtractFilePath  (fullFileName));
  ShowMessage('Имя        = '+ExtractFileName  (fullFileName));
  ShowMessage('Расширение = '+ExtractFileExt   (fullFileName));
end;



--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
staziah2
Дата 26.3.2015, 01:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 24.3.2015

Репутация: нет
Всего: нет
Цитата(Vas @ 25.3.2015,  14:37)
Код

var
  fullFileName : string;

begin
  // Установка полного имени файла с диском и путем
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Показ составляющих частей этого полного имени
  ShowMessage('Диск       = '+ExtractFileDrive (fullFileName));
  ShowMessage('Каталог    = '+ExtractFileDir   (fullFileName));
  ShowMessage('Путь       = '+ExtractFilePath  (fullFileName));
  ShowMessage('Имя        = '+ExtractFileName  (fullFileName));
  ShowMessage('Расширение = '+ExtractFileExt   (fullFileName));
end;

и в БД запишется?
PM MAIL ICQ   Вверх
Vas
Дата 26.3.2015, 16:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 830
Регистрация: 29.6.2005
Где: Stavropol region

Репутация: 23
Всего: 28
Записуйте и запишется
Код

var
  fullFileName : string;
begin
  // Установка полного имени файла с диском и путем
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';
  // пишем в БД
  //DoSomething();
  TQuery.Params.ParamByName('имя поля').AsString := ExtractFilePath(fullFileName);
  //DoSomething();
end;


Это сообщение отредактировал(а) Vas - 26.3.2015, 16:29


--------------------
И опыт, сын ошибок трудных, И гений, парадоксов друг, И случай, бог изобретатель. ... (А.С. Пушкин)
PM MAIL   Вверх
staziah2
Дата 27.3.2015, 01:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 24.3.2015

Репутация: нет
Всего: нет
Цитата(Vas @ 26.3.2015,  16:28)
Записуйте и запишется
Код

var
  fullFileName : string;
begin
  // Установка полного имени файла с диском и путем
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';
  // пишем в БД
  //DoSomething();
  TQuery.Params.ParamByName('имя поля').AsString := ExtractFilePath(fullFileName);
  //DoSomething();
end;

Спасибо большое.
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1522 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.