获得当前数据库文件
设置时Table1.Active := False;
procedure TForm1.FormCreate(Sender: TObject); var s: string; begin s := ExtractFilePath(ParamStr(0)) + 'MyDatabase'; //数据库存放在程序当前目录内的MyDatabase里
//ShowMessage(s); Table1.DatabaseName := s; Table1.Active := True; end;
Table有3个属性很重要:Active:打开数据连接,设置DatabaseName和TableName属性时要先关闭Active属性,设置完后才能打开
DatabaseName:设置数据库别名或者数据库的全路径目录
TableName:指向数据库文件名