Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Вниз

Как записать путь к файлу в БД, используя OpenDialog?   Найти похожие ветки 

 
Zif ©   (2004-10-15 23:16) [0]

Мастера! Подскажите как записать путь к файлу (C:\Программы\1.exe) в БД, используя OpenDialog?
Привожу несколько примеров, все не рабочие... где ошибка?
Запись должна отобразиться в DBEdit.

procedure TFormMain.ButtonClick(Sender: TObject);
begin
 if OpenDialog.Execute then
 DataModule1.ADODataSetUserLocation:=OpenDialog.FileName;
end;


procedure TFormMain.ButtonClick(Sender: TObject);
begin
 if OpenDialog.Execute then
 DataModule1.ADODataSetUserLocation:=LoadFromFile(OpenDialog.FileName);
end;


procedure TFormMain.ButtonClick(Sender: TObject);
begin
 if OpenDialog.Execute then
 DBEdit.Text:=OpenDialog.FileName;
end;


и сразу второй вопрос - как относительный путь записать (\Программы\1.exe)?


 
DrPass ©   (2004-10-16 01:44) [1]

Мда... сначала - читать теорию. А то получается живая иллюстрация к задаче "может ли обезьяна, прыгая задницей на клавиатуре, написать Windows" (без обид, ладно?)
Потом уже, когда будешь понимать, что пишешь, у тебя должно получиться что-то вроде
if OpenDialog.Execute then begin
DataModule1.ADODataSet.Edit;
DataModule1.ADODataSetUserLocation.AsString:=OpenDialog.FileName;
DataModule1.ADODataSet.Post;
end;


 
Zif ©   (2004-10-16 11:19) [2]

Большое спасибо


 
Zif ©   (2004-10-16 13:13) [3]

и еще 2 вопроса:
1. как записать относительный путь (\Программы\1.exe)?
2. как запустить этот файл?
я новичок


 
sniknik ©   (2004-10-16 13:27) [4]

> я новичок
твои проблемы, возьми книжку и почитай.

> 2. как запустить этот файл?
WinExec самое простое

> 1. как записать относительный путь (\Программы\1.exe)?
сравнить полученый с путем программы и изменить, записывать после.



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2004.11.14;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.034 c
14-1098522570
Agent13
2004-10-23 13:09
2004.11.14
Intel processor numbers


3-1097693800
kirilllius
2004-10-13 22:56
2004.11.14
обменном данных


1-1099248611
er_
2004-10-31 21:50
2004.11.14
Stringgrid


6-1094458503
Cuest
2004-09-06 12:15
2004.11.14
TTelefoon


1-1099342675
Bull-DoG
2004-11-01 23:57
2004.11.14
Изменение Цвета полосы прокрутки в Delphi





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский