| Типы программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Помогите начинающему!, Как поставить закладку в таблице? Поиск по БД Отображение данных в TDBComboBox, Не получается... Регистр букв при работе с dbf ч/з ADO, Как сделать запрос неразличимый к рег-ру Какие есть способы поиска в DBGrid1 ? обновление параметров Как Вы относитесь к курящим девушкам? WinAPI, GetUserName Пароль на таблице, где его вводить? Запрос на проверку при удалении Delphi + Oracle, длиная строка Обзор таблицы через TreeView1, Задача Как поместить картинку в BLOB поле Надпись "Unregistered version" в FR, Как убрать? Транзакции, SQL DBGrid, Скроллинг не работает База данных в dbf формате, Помогите обработать DBF выделению оперативной памяти под бд Работа с TStringList., __ Ограничить размер кэша для SQLQuery, как можно ограничить размер кэша Delphi+ADO+MS SQL2000 Помогите. Вопрос по ЗАПРОСУ, там вопрос про оператор like Различия синтаксиса SQL Как можно получить кол-во строк рез-та запроса? InstallShield. Проблема с клиентом для MySQL Запрос в базе данных работа с apolo v6.0 dbf & cdx, открытие двух dbf афйлов Преобразование, dbf в cds БД Paradox на лежит на хосте., Как получить к ней доступ из программы Поиск, Поиск Как получить список доступных БД?, Как получить список доступных БД? Запрос SQL, как объединить два разнотипных поля? Нумерация выборки????????, Доб-ть счет-к к DBGrid-у не зав. от сорт TADOQuery и параметры, ADO и MSSQL База данных в dbf формате, Помогите обработать DBF минимизировать связку компонентов, MySQL, DbExpress DBGrid и AdoQuery, не изменяется значение в столбце :( TdxDBGrid, сохранение в реестр, Как загрузить данные ???? в чем разница между NT и 2000 Запросы и параметры, или как избавится от многих проблем…. закрытие чужой программы Побайтное чтение и запись, Неизвестная база *.DAT (возможно BTree) Сохранение в Blob поле .... [ABsolute DB] Не открывается картинка из бд, access в дельфи через ado организация поиска в БД DBGrid, как что-то дописать в ячейке Разрыв страницы в Fast Report, на скриптовом языке? Real округляется до Integer, Oracle через BDE BDE,DBF,SQL, запрос с агрегатными функциями Перенос на страницы, FastReport БД и Дерево, Какие функции надо использовать Вопрос о реестре, новые методы Как Вы относитесь к курящим девушкам? Ссылки на литературу по работе с БД в Delphi Из ячейки в Memo Переходим на клиент-сервер (советы), на примере MS SQL Server MS SQL dbf через ADO, каракули Таблица с разными полями, Paradox, BDE ADO + OLEException, Генерация исключений Узнать, пусто ли Blob-поле, Access, Ado Печать с двух сторон, как реализовать??? RichEdit У меня к вам ышо вопросик есть ебаут Creating Проблемма с БД Проблемы с Query и DataSource удаленная БД, организационные вопросы Импорт данных Excel -> dbf, нужен пример импорта данных Перенос БД (ФайлСервер -> КлиентСервер), Paradox -> MySQL Как с помощью ADO открыть таблицу dBase (.dbf) |
Платные хостинги Раскрутка сайта Книги по программированию Пароль на таблице, где его вводить?
- Есть некий алиас BDE, в нём есть некая Paradox-таблица. Делаем:Код ........var table: TTable;begin table := TTable.Create(nil); table.DatabaseName := 'alias'; table.TableName := 'table.db'; table.Active := true;.......................end;highlightSyntax('delphiMDZmNm','delphi');и вот в строке table.Active := true; вылетает окошко и просит ввести пароль. Пароль известен. Где в программе нужно его ввести, чтобы во время работы не вылетало окошко. - Вот при использовании ADO в ADOConnection есть ConnectionString и LoginPrompt, при использовании ODAC в OraSession есть ConnectString и ConnectPrompt а вот для BDE затрудняюсь ответить. Однако может я натолкнул Вас на путь решения? - Dimich, тогда если не трудно пример ADO ConnectionString для подключения к BDE. - ConnectionString для ADO я нашёл, но так долго подключается, что я отказываюсь использовать ADO для доступа к Paradox.Посему вопрос в первом посте остаётся открытым: Где в программе вводить пароль? - Компонент - Database - ОК. Используем TDatabase.Вот мой код:Код ..........................var db: TDatabase; table: TTable; str: string;begin db := TDatabase.Create(nil); db.AliasName := 'TOOLS'; db.DatabaseName := 'tools'; db.LoginPrompt := false; db.Params.Add('PASSWORD=syskma'); db.Connected := true; table := TTable.Create(nil); table.DatabaseName := 'tools'; table.TableName := 'main.db'; table.Active := true;...............................................end;highlightSyntax('delphiyZmVlO','delphi');Когда делаю table.Active := true один хрен вылетает окно с запросом пароля. Где тут ошибка? Это сообщение отредактировал useless - 2.12.2004, 10:58 - Сними выделение с Login Promt компоненты TDatabase... - Непонял, как снять выделение? - Database1.LoginPromt:=False - Код db.AliasName := 'TOOLS'highlightSyntax('delphiUyMmUw','delphi');а вот db.DataBase должно быть отличное от AliasName, свое названиеКод db.DatabaseName := 'mytools'highlightSyntax('delphiZTM4NW','delphi');и тогдаКод table.DatabaseName := 'mytools'highlightSyntax('delphiyYzA0N','delphi');иначе table снова напрямую обращается к алиасу в BDE... Это сообщение отредактировал Dayana - 2.12.2004, 17:13 - Люди, подправил код как советуете:Код ...........................var db: TDatabase; table: TTable;begin db := TDatabase.Create(nil); db.AliasName := 'TOOLS'; db.DatabaseName := 'mytools'; db.LoginPrompt := False; db.Params.Add('Password=syskma'); db.Connected := true; table := TTable.Create(nil); table.DatabaseName := 'mytools'; table.TableName := 'main.db'; table.Active := true;...........................................end;highlightSyntax('delphiTk0NTY','delphi');Не работает - хоть ты тресни. Пароль теперь не спрашивает, но выдаёт ошибку "Insufficient table rights for operation. Password required." В Database Explorer попробовал открыть эту таблицу с паролем "syskma" - открывает без проблем.Помогите разобраться! - Неужели, я так никогда и не смогу достучаться до запароленой таблицы !!!! - Как временный вариант, можно попробовать использовать функцию keybd_event () для заполнения поля с username и password в окошке ConnectDialogа.Однако я знаю, что сейчас на меня обрушится гора критики от Вас, и Вы будете правы. Это не выход, а всего лишь один из вариантов временного решения проблемы. - Да я уже и на такой вариант согласен, если по-хорошему не получается. Можно по-подробнее об этом варианте, я новичок в Delphi. - Вот такой корявый примерчик:Код Const UserName = 'USERNAME'; Password = 'MYPASSWORD';var i : Integer;begin // поместим в буфер клавы username,Tab,password,Tab,Enter // симулируем ввод username for i := 1 to Length (UserName) do keybd_event(Byte (UserName [i]), 0, 0, 0); // клавиша Tab keybd_event(9, 0, 0, 0); // симулируем ввод password for i := 1 to Length (Password) do keybd_event(Byte (Password [i]), 0, 0, 0); // клавиша Tab keybd_event(9, 0, 0, 0); // клавиша Enter keybd_event(13, 0, 0, 0); // Теперь пытаемся получить доступ к таблице, чтобы выскочило окошко ConnectDialogа // ....................end;highlightSyntax('delphiTRmMDk','delphi');  |