VPF::узнать установленные бд - Форум программистов

TaNK

Дата 29.5.2008, 10:45 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 669
Регистрация: 29.10.2006
Где: Краснодар

Репутация: нет
Всего: 1

Цитата(Alca @ 29.5.2008, 09:26)

Код


Unit1.h

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <BDE.hpp>
#include <DBTables.hpp>
#include <DB.hpp>
#include <ADODB.hpp>
#include <Mask.hpp>
#include <Registry.hpp>
//---------------------------------------------------------------------------
class TfrmMain : public TForm {
    __published:
        TButton*    btnStart;
        TComboBox *AliasesList;
        void __fastcall FormCreate(TObject *Sender);

    private:
        hDBIDb  hDB;
        hDBICur hCursor;
        DBDesc  DBDesc;
        //TblDesc: TBLBaseDesc;

    public:    
        __fastcall TfrmMain(TComponent* Owner);
        __fastcall ~TfrmMain();
};
//---------------------------------------------------------------------------
extern PACKAGE TfrmMain *frmMain;
//---------------------------------------------------------------------------
#endif
 
 
Unit1.cpp

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---------------------------------------------------------------------------
TfrmMain *frmMain;
//---------------------------------------------------------------------------
__fastcall TfrmMain::TfrmMain(TComponent* Owner) : TForm(Owner) {}
//---------------------------------------------------------------------------
__fastcall TfrmMain::~TfrmMain() {}
//---------------------------------------------------------------------------
void __fastcall TfrmMain::FormCreate(TObject *Sender) {
    DBIResult Rslt;

    AliasesList->Items->Clear(); // combobox
    hDB = NULL;
    try {
        DbiInit(NULL);   // Инициализация BDE
        DbiOpenDatabaseList(hCursor);
        do {
            Rslt = DbiGetNextRecord(hCursor, dbiNOLOCK, &DBDesc, NULL);
            if (Rslt != DBIERR_EOF) {
                AliasesList->Items->Add(StrPas(DBDesc.szName));
            }
        }
        while (/*Rslt != DBIERR_NONE*/Rslt == 0);

        DbiCloseCursor(hCursor);
    } catch (Exception &exception) {
        Application->ShowException(&exception);
    }                    
}
//---------------------------------------------------------------------------

Спасибо помогло +1

--------------------

Oracle 11.2.0.3.0
FireBird 1.0-2.5

Лена

Дата 29.5.2008, 11:22 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 879
Регистрация: 16.8.2006

Репутация: 11
Всего: 11

Вариант от Borland, тоже вроде не плох:

Объект Session, имеющий тип TSession создается автоматически в программе, работающей с базами данных. Вам не нужно заботиться о создании и уничтожении данного объекта, но его методы и свойства могут быть полезны в некоторых случаях. В этом компоненте содержится информация обо всех базах данных, с которыми работает программа. Ее можно найти в свойстве DataBases.

Session1->GetDatabaseNames(ук. на список куда поместить)

Можно и явно: TSession на вкладке BDE.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »