字号: 小 中 大 |
推荐给好友
上一篇 |
下一篇
Delphi开发工具中如何访问数据库结构[2]
发布: 2008-5-21 12:42 |
作者: 不详 |
来源:
csai |
查看: 23次 | 进入软件测试论坛讨论
Table1:TTable;
Begin
Alias:='fjs'; TableName:='d*'; //初始化
Session.GetTableNames(Alias, {别名}
TableName, {过滤器}
True, {是否显示文件扩展名(对DBF) }
False, {是否显示系统表}
ListBox1.Items);
If ListBox1.Items.Count=0 then
Begin
MessageDlg('数据库'+Alias+'中没有数据表'+TableName, mtError, [mbOK], 0 );
Exit;
End;
Table1:=TTable.Create(nil);
Table1.DatabaseName :=Alias;
Table1.TableName := ListBox1.Items.Strings[0];
{取得表中字段名及索引名}
Table1.Open;
if Table1.Active then