|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Открытие базы данных Pervasive
Прошу помочь с чтением информации из баз данных Pervasive.
Использую Delphi 7 Базы данных работают под управлением Pervasive SQL 2000i SP4. Каждая база данных состоит из двух файлов: <имя базы>.dt - размер до 10 Кб. <имя базы>.btv - размер от 50 до 700 Мб. Нужно из программы Delphi считывать из базы данных заданные поля. И нужно чтобы программа запускалась на компьютерах, на которых не установлены Pervasive и BDE. У меня так получилось сделать для баз данных .dbf используя компоненты ADOConnection, ADOTable и DataSource как описано во второй части этого примера http://gkb29asu.ucoz.ru/publ/program...delphi/9-1-0-9 Можно ли таким способом получить доступ к базам данных Pervasive? Если можно, подскажите что нужно написать в свойстве ADOConnection.ConnectionString и как настроить другие компоненты? |
#2
|
||||
|
||||
Вам нужен ODBC драйвер для вашей БД под вашу ОС (это обязательная опция для всех клиентских машин)
Его можно, я думаю, найти на офф сайте. Дальше как с любым другим провайдером нужно создать строку прям из IDE D7 |
#3
|
|||
|
|||
Пример кода
Вот рабочий код для Dbf файлов.
Можно ли сделать так же для Pervasive? Что нужно поменять? Код:
procedure TForm1.Button1Click(Sender: TObject); var AppFolderPath : string; begin // подключаемся к ДБФ и выводим данные в таблицу AppFolderPath := copy(ExtractFilePath(Application.ExeName),1,length(ExtractFilePath(Application.ExeName))-1); ADOTable1.Active:=false; ADOConnection1.Connected:=false; ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source="' +AppFolderPath + '";Extended Properties="DBASE IV;";"'; ADOConnection1.LoginPrompt:=false; ADOConnection1.Mode:=cmReadWrite; ADOConnection1.Connected:=true; // err.dbf находится в папке AppFolderPath (в данном случае в папке с программой) ADOTable1.TableName:='err'; ADOTable1.Active:=true; // Подключение выполнено end; Последний раз редактировалось Admin, 05.09.2014 в 19:23. |
#4
|
||||
|
||||
А код тут не при делах. Надо установить драйвер с сайта производителя и собрать CString как я написал выше.
|
#5
|
||||
|
||||
Цитата:
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#6
|
|||
|
|||
На компьютере установлен Pervasive SQL 2000i SP4.
Базы данных на этом компьютере открываются другой программой. Мне нужно чтобы я со своей программы мог получить доступ к базам для чтения. В Delphi 7 есть Pervasive PSQL OLE DB Provider. Мне этого достаточно? Или нужно ещё что-то скачивать? Помогите пожалуйста с подключением к базе данных или дайте ссылку где обсуждается подключение к базам данных Pervasive. |
#7
|
||||
|
||||
Цитата:
Не стоит путать форумы с богадельнями. © Bargest |