Объектно-ориентированное программирование на С++ - eDrive

void _ _fastcall TDBForm1::ConnectClick (TObject *Sender) {
AnsiString s = "Extended Properties=\"FILEDSN=myDBF.dsn;\";";
TADOConnection *cnn = DataModule1–>ADOConnectionDBF;
TADOTable *rst = DataModule1–>ADOTableDBF;
try {
cnn–>Connected = false;
cnn–>ConnectionString = s;
cnn–>Connected = true;
rst–>TableName = "T";
rst–>Active = true;
} catch (...) {
s = PromptDataSource(0, "");
try {
cnn–>Connected = false;
cnn–>ConnectionString = s;
cnn–>Connected = true;
rst–>TableName = "T";
rst–>Active = true;
} catch (...) { ShowMessage (s); }
}
}
91
Возможно подключение и при отсутствии файла .DSN, в том числе – и
без использования объектов ADOConnection, если известны все необходимые
параметры командной строки. Еще один пример посвящен открытию доступа
к таблице dBase и к листу Excel:
void __fastcall TDBForm1::DBFConnectClick (TObject *Sender) {
AnsiString s = "Provider=MSDASQL.1;\
Extended Properties=\"DBQ=D:\\DATABASES;\
Driver={Microsoft dBase Driver (*.dbf)};DriverId=533;FIL=dBase 5.0;\";";
TADOConnection *cnn = DataModule1–>ADOConnectionDBF;
TADOTable *rst = DataModule1–>ADOTableDBF;
try {
cnn–>Connected = false;
cnn–>ConnectionString = s;
cnn–>Connected = true;
rst–>TableName = "Т";
rst–>Active = true;
} catch (...) { ShowMessage (“Увы…”); }
}
void __fastcall TDBForm1::XLSConnectClick (TObject *Sender) {
AnsiString s = "Provider=MSDASQL.1;\