| Программирование под linux, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Сохранение имени файла в базу данных, Как? Вычисляемые поля Как избежать пропадания значка? Hook!, Перехват клавы! Как сделать атрибут для .... создать составной ключ, что не так Сохранение запроса в файл Ошибка при добавлении записи, TQuery как получить ответ sql запроса в преременную, ответ запроса в переменую Name not unique in this context, помогить чтоль... Как Вы относитесь к курящим девушкам? научите пользоватся footer и sumlist (DBGridEh), азы... Как создать при запуске алиас Insert into table2 (из 2.mdb) из Table1 (из 1.mdb), С помощью Delphi и что бы не тормозило.. Элементы окна, как добраться? Пароль для всех, как сделать?, Пароль на запуск программы. Автофильтр, как в MS Excel Пароль к базе данных, База Access, подключение ADO Связь между таблицами, Delphi+ADO+Access Надпись MEMO в ячейках DBGrid Нумерация выборки в DbGrid, С аксесом неполучается никак!!! Как сделать пароль в БД Access Текстовое поле заполняется пробелами, до полного размера Упорядочить данные по полю типа Date, В TTable Лучший DBGrid, Какой лучший DBGrid? Доступ к событиям программно созданого объекта. (FB/IB, IBX) - Ошибка в IBX!, Нашел и исправил Упаковка индексированной таблицы Paradox, как сделать ? Выподающий список Почему Access ругается Странный Tab С помощью делфи подключится MS SQL 7.0, Делфи и MS SQL 7.0 Проблемы с Access, ADOTable2.Delete; KADao и база Access RESTORE DATABASE и TAdo.Connected Мусор на рабочем столе, Как избежать? Сохранить измененные данные в файле! QReport, основы Создание новой базы данных., *.mdb BLOB has been modified. Базу FoxPro не открыть, Базу FoxPro не открыть Вопрос по Блоб - полям!, Извлечение значения через параметры Quer через ADO к InterBase, подключение как обновить Lookup поле Что за ошибка?, Can not retrieve ResultSet data Server, создание собственного сервера Реальные примеры использования FreeReport Пример работы с SMTP, вопрос SQL запрос, Правильный sql запрос Запись графического файла, в прле типа Graphic ADOQuery и DataSource, не видят друг друна Как выбрать и записать общее количество записей из SQL или XML?, что выбрать... Статья Vit'a в FAQ'е, Удивлен, что никто ее не читал... Проблемы с кодировкой BDE Как Вы относитесь к курящим девушкам? Сервисы BDE, какие имеются GUID как с ними работать Работа с реестром..., Помогите, кто может... DBLookUpComboBox, Связывание 2х таких Выделить всю строку в DBGrid изменение данных, из потоков Индексирование таблиц, вопрос чай............... FastReport, Cross-отчет, отчего зависит высота заголовка? SQL-запросы при работе с Access Как максимально уменьшить размер программы?, Как избавиться от лишнего кода? Изменять текст в DBLookupComboBox создание field в таблице Сложная фильтрация, база данных TComboBox.ReadOnly |
Платные хостинги Раскрутка сайта Книги по программированию Как создать при запуске алиас
- Хочу при первом запуске программы создавать автоматически алиас. БД Paradox. Но что то не как не пойму.Код program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1}, Unit2 in 'Unit2.pas' {DM: TDataModule};{$R *.RES}begin DM.Database1.DatabaseName:= 'NewAlias'; DM.Database1.DriverName:= 'STANDARD'; DM.Database1.Params.Clear; DM.Database1.Params.Add('PATH=C:\); Application.Initialize; Application.CreateForm(TForm1, Form1); Application.CreateForm(TDM, DM); Application.Run;end.highlightSyntax('delphiY3ZTk0','delphi'); Это сообщение отредактировал Alex - 17.2.2005, 00:01 - UserТы вообще ходил по той ссылке, что я оставил?http://forum.vingrad.ru/index.php?showtopic=42630 - Код procedure MakeAlias (path, name:String);var L: TStringList;beginResult := true; L := TStringList.Create; try L.Add ('PATH='+path); Session.AddAlias (name, 'PARADOX', L); except Result := false;end;freeAndNil (L);end;function DelAlias (name:String):Boolean;beginResult := True;try Session.DeleteAlias (name);except Result := False; end;end;highlightSyntax('delphi5MGJjM','delphi'); - А это ничего, что Вы пытаетесь юзать компоненты еще до того, как сделалосьApplication.Initialize;и тем более создалась форма (или DataModule, что это у Вас)Application.CreateForm(TDM, DM);Имхо это очень неправильно! - Вот что вышло господа программисты. Код program Project1;uses classes, dbtables, Forms, Unit1 in 'Unit1.pas' {Form1};{$R *.RES}varL: TStringList;path : String;beginL := TStringList.Create;trypath :='C:\';L.Add ('PATH='+path);L.Add ('enable bcd=FALSE');Session.AddAlias ('qqqqq', 'PARADOX', L);exceptend; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run;end.highlightSyntax('delphiNDExNj','delphi');Токо вот меня интерисует как проверить, созданн ли данный алиас - то просто подключиться, а если нет то прописать - то что я уже написал. Типа небольшой проверки сделать.Подскажите? Это сообщение отредактировал Alex - 17.2.2005, 00:00 - User - пользуйтесь обрамлением кода, читать трудно...PS. Созданный так Alias будет временным, только на время работы программы - Vit как не странно но он сохраняется в BDE_Administrator. Может я что то не доконца сделал. Жду твоих рекомендаций, лучше в данном примере. - User объясни зачем тебе проверять есть ли уже алас или нет?! используй мою функцию, если результат true - значит небыло такого алиса, иначе он уже присутствует. - Даже после закрытия программы? - Ага под Window XP все окей, убивается, а под window 2000 нет. Самое интересное что это происходит токо на моей машине, на остальных 2 убивается после закрытя программы, в чем дело неясно? - А административные права есть?PS. Не мучайся, советую делать session.SaveConfigFile чтобы стабильно работало всегда и везде  |