Jak sprawdzić czy istnieje jakaś baza (gł system paradox) oraz jak sprawdzić czy istnieje tablica o wcześniej wpisanej nazwie w jakiejś bazie (także gł system paradox)
0
0
// Database1 = Comp. Palette -> Data Access -> TDatabase
// Edit1 - TEdit z nazwą bazy danych
Database1.Connected := False;
try
Database1.DatabaseName := Edit1.Text; //<-- alias lub ścieżka
Database1.Connected := True;
except
on EDatabaseError do
ShowMessage('nic z tego, baza prawdopodobnie nie istnieje');
end;
// Table1 = Comp. Palette -> Data Access -> TTable
// Edit2 - TEdit z nazwą tabeli
Table1.Close;
Table1.DatabaseName := Database1.DatabaseName;
Table1.TableType := ttParadox; //<-- miało być dla paradoxów
try
Table1.TableName := Edit2.Text;
Table1.Open;
except
on EDatabaseError do
ShowMessage('nic z tego, tabela prawdopodobnie nie istnieje');
end;