Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

Как записать путь к файлу в БД, используя 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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.024 c
1-1099039366
Aleksandr.
2004-10-29 12:42
2004.11.14
Как получить поток по его ThreadID?


14-1098879796
Шишкин Илья
2004-10-27 16:23
2004.11.14
Аналог IntToStr в Turbo Pascal


4-1096839798
Ded Moroz
2004-10-04 01:43
2004.11.14
Перехват


1-1098958255
Max Ivanych
2004-10-28 14:10
2004.11.14
Как изменить шрифт у нескольких записей в ListBox ?


1-1099325326
ser_ega
2004-11-01 19:08
2004.11.14
CheckListBox