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

Вниз

Подскажите пожалуста работа с Access   Найти похожие ветки 

 
Apachi   (2005-12-22 12:24) [0]

Подскажите очень прошу как из Delphi запустить аксес приложение с расширением <имя файла>.ade


 
Digitman ©   (2005-12-22 12:37) [1]


> аксес приложение


что под сим подразумевается ?

Access-приложение всю жизнь имело имя файла MSACCESS.EXE ..

с какого перепугу оно у тебя вдруг стало иметь произвольное имя/расширение ?


 
Apachi   (2005-12-22 12:44) [2]

Как запустить разобрался

WinExec(""C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" C:\Ремонт\Ремонт.ade",0);

теперь у меня вопрос скорее по VB :)
Это приложение Ремонт.ade, у меня исходники есть, требует параметр который я так понял задается через параметр Command
а как его в командной строке задавать понятия не имею
пробывал типа

WinExec(""C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" C:\Ремонт\Ремонт.ade Open",0);

Нифига
Всеравно спасибо буду искать форум VB


 
Digitman ©   (2005-12-22 12:52) [3]


> Как запустить разобрался
>
> WinExec


справка для Пушкина писана ?

ведь черным же по белому там:

This function is provided for compatibility with earlier versions of Windows. For Win32-based applications, use the CreateProcess function.


 
Apachi   (2005-12-22 12:53) [4]

Ураааа нашол!
писать надо так

 WinExec(""C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE" C:\Ремонт\Ремонт.ade /cmd Open",0);


 
Apachi   (2005-12-22 13:02) [5]

Да без разницы и то и то работает

Да нет у меня просто ситуация такая гавенная
Пришол работать программистом
До меня тут кучу всего написали, половина исходников пропала
Есть екзешник (исходника которого нет) он праверяет версию файла C:\Ремонт\Ремонт.ade, обновляет ее если надо, и запускает с параметрами, хорошо изходники C:\Ремонт\Ремонт.ade есть!

Но вот вопрос екзешник первый работает нормально в W-XP SP1
а теперь я начал ставить SP2 и на тебе выдает Run Time Error 52 File alredy exist, с какого перепугу, может быть подскажите что там в винде смотреть надо???

Короче пишу с нуля этот екзешник, знаю только что он должен делать


 
Digitman ©   (2005-12-22 13:14) [6]


> Пришол работать программистом


неужели ?
а я подумал - брандмейстером)..


> половина исходников пропала


ну это твоя личная половая драма, согласись ?)


> Есть екзешник


да мало ли что там у тебя "есть" !

"запустить аксес приложение" означает НЕ иначе как "создать и стартовать процесс приложения, бин.образ которого находится в файле msaccess.exe"

а вся эта свистопляска с переименованием стандартных расширений MSAccess-документов (*.mdb - файлов) во всякие *.ade - она от лукавого и ни к чему совершенно


 
Apachi   (2005-12-22 13:52) [7]

ах да извиняюсь WinExec и CreateProcess оказалось не одно и тоже

зпапускать нужно так

var
 StartUpInfo: TStartUpInfo;
 ProcessInfo: TProcessInformation;
begin
FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0);
 with StartUpInfo do
 begin
   cb := SizeOf(TStartUpInfo);
   dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
   wShowWindow := SW_SHOWNORMAL;
 end;
CreateProcess(nil, "C:\Program Files\Microsoft Office\Office10\MSACCESS.EXE C:\Ремонт\Ремонт.ade /cmd Open", nil, nil, false, NORMAL_PRIORITY_CLASS,nil, nil, StartUpInfo, ProcessInfo);

мля как все ето нудно пишется
да если бы я всю жизнь на Делфях писалбы :)


 
Digitman ©   (2005-12-22 13:54) [8]


> если бы я всю жизнь на Делфях писалбы


я понимаю - на иврите проще)



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

Форум: "Начинающим";
Текущий архив: 2006.01.15;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.014 c
14-1135089618
(CHALING 32)S K i N E R
2005-12-20 17:40
2006.01.15
Трафик!


14-1135262770
Pazitron_Brain
2005-12-22 17:46
2006.01.15
Операционные системы в массы!


2-1135329585
SergeyG
2005-12-23 12:19
2006.01.15
Как к программе (проекту) подключить форму ранее разработанной


6-1122450032
Eugene V.
2005-07-27 11:40
2006.01.15
IdHTTP (Indy 10, Delphi 2005)


14-1135085051
Иксик
2005-12-20 16:24
2006.01.15
Удаленная тех. поддержка





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский