Добавить сетевую путь в бд.

[staziah2]

Добрый день!

Безымянный2.JPG____________________2.JPG (91,98 Кбайт, скачиваний: 340)
Здесь я разрабатываю программу,это последняя форма,над которой работаю.Попробую объяснить,я не знаю как прописать,чтобы при нажатии wwDBComboDlg
Безымянный5.JPG____________________5.JPG (97,98 Кбайт, скачиваний: 318)
открылось окно: Безымянный2.JPG____________________2.JPG (94,92 Кбайт, скачиваний: 341)
Выбрал нужный файл,нажал на открыть,и в wwDBComboDlg высветился адрес: Безымянный3.JPG____________________3.JPG (53,2 Кбайт, скачиваний: 343) .
Далее нажимаем на кнопку "Создать" и в бд в таблице Naryadi поле Path появились данные.
Вот база MS SQL 2000
Безымянный3.JPG____________________3.JPG (97,72 Кбайт, скачиваний: 346)

Компоненты:OpenDialog,wwDBComboDlg,ADOConnection,Main(AdoQuery),DataSource. Работаю на Delphi 7.

Как правильно написать,чтоб сработало.

Сообщение отредактировано: staziah2 - 25.03.15, 01:35

[neut ral]

я так понял Вы не умеете пользоваться TOpenDialog...
тогда вот:
http://www.sources.ru/delphi/files/open_and_save.shtml

[staziah2]

Цитата neut ral @ 25.03.15, 06:37

я так понял Вы не умеете пользоваться TOpenDialog...
тогда вот:
http://www.sources.ru/delphi/files/open_and_save.shtml

Мне только OpenDialog,а SaveDialog не нужен.Учитывая что сделано,в Filter написано:'TIFF-файлы|*.tif|Картинки|*.tif; *.jpg; *.bmp|JPG-файлы|*.jpg|BMP-файлы|*.bmp|Все файлы|*.*'.

if OpenDialog1.Execute then
  begin
   dm.Mainpath.AsString:= OpenDialog1.FileName;
end;

и все равно не работает,надо чтоб и бд в поле Path появилась запись,как на последнем рисунке,так же чтоб и в wwDBComboDlg высветилась строка,как на предпоследнем рисунке.

Сообщение отредактировано: Bas - 26.03.15, 06:36

[Bas]

Цитата staziah2 @ 25.03.15, 22:54

и все равно не работает,надо чтоб и бд в поле Path появилась запись

Ошибка есть?
Mainpath в каком режиме (insert, edit, bowse)?
Заведите переменную и присвойте ей OpenDialog1.FileName, поставьте точку останова и посмотрите значение.

[staziah2]

Цитата Bas @ 26.03.15, 07:22

Цитата staziah2 @ 25.03.15, 22:54

и все равно не работает,надо чтоб и бд в поле Path появилась запись

Ошибка есть?
Mainpath в каком режиме (insert, edit, bowse)?
Заведите переменную и присвойте ей OpenDialog1.FileName, поставьте точку останова и посмотрите значение.

Mainpath в режиме edit.

[Bas]

Цитата staziah2 @ 26.03.15, 22:49

Mainpath в режиме edit.

dm.Mainpath.Post есть?

[staziah2]

Цитата Bas @ 27.03.15, 06:31

Цитата staziah2 @ 26.03.15, 22:49

Mainpath в режиме edit.

dm.Mainpath.Post есть?

да,есть...