如何用Table控件动态访问不同的数据库文件?十分感谢!! atable.database := 'csdn';aTable.tableName := 'ert.db';atable.open;2.你说的问题时动态创建表,用最简单的办法用query,sql语句 检索一下。BDE的安装,delphi5自带的安装程序就能解决。你还是多看看书吧。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 使用Session.GetTableNames (数据库别名, '',True, False, ListBox1.Items);可使listbox列出不同的数据库文件使用以下语句:procedure TMainForm.ListBox1Click(Sender: TObject);begin Table1.Close; Table1.Tablename :=Listbox1.Items [Listbox1.ItemIndex]; Table1.Open;end;利用listbox可以使一个table快速的访问不同的数据库文件。其他问题还未接触,不好意思! 1.动态访问表的问题:在自己的代码中动态的设置Table的属性。不过先要关闭Table如://DataBaseName和TableName分别是要动态改的数据库名和表名procedure SetTable(DataBaseName:string;TableName:string);begin Table1.Close; Table1.DataBaseName:=DataBaseName; Table1.TableName:=TableName; Table1.Open;end;2.动态建表的问题。TTable有一个方法:TTable.CreateTable;Delphi帮助中有例子你自己去看吧,因该能看懂!3.打包问题,Delphi的InstallShield for Delphi中自带了BDE的选项。不过把BDE打进去非常不容易。所以,最好用ADO访问数据库。这样,打包时就不用打BDE了!//去试试吧! 非常感谢大家的无私帮助!!!经过昨天实验,我可以通过控制datasource访问不同的table从而访问了不同的数据库文件,成功了,不知道大家认为这是不是一个方法呢?当然,很菜鸟,现在就去试验大家提供给我的方法了,谢谢了!麻风瘦! lvloj()!雪候鸟! 非常感谢大家的无私帮助!!!经过昨天实验,我可以通过控制datasource访问不同的table从而访问了不同的数据库文件,成功了,不知道大家认为这是不是一个方法呢?当然,很菜鸟,现在就去试验大家提供给我的方法了,谢谢了!麻风瘦! lvloj()!雪候鸟! 如何让一个外部程序从任务栏恢复显示? 按钮有效性的互置的小问题? 读取文件数据问题,是不是Delphi本身就有这个问题???[在线等待] 请问delphi中如何控制控件显示的文字的间距 求delphi7补丁 请问如何改变用MessageBox产生的提示框的背景颜色啊???急、急、急 急! 使用控件时,出现"没有注册类别"错误 jpg保存到数据库的问题 关于使用COM+和MIDAS开发ERP系统的问题 升级了散分,祝兄弟们圣诞快乐,万事如意,来年都能挣很多的银子.... TQuery的问题 关于MaskEdit
可使listbox列出不同的数据库文件
使用以下语句:
procedure TMainForm.ListBox1Click(Sender: TObject);
begin
Table1.Close;
Table1.Tablename :=Listbox1.Items [Listbox1.ItemIndex];
Table1.Open;
end;
利用listbox可以使一个table快速的访问不同的数据库文件。
其他问题还未接触,不好意思!
在自己的代码中动态的设置Table的属性。不过先要关闭Table如:
//DataBaseName和TableName分别是要动态改的数据库名和表名
procedure SetTable(DataBaseName:string;TableName:string);
begin
Table1.Close;
Table1.DataBaseName:=DataBaseName;
Table1.TableName:=TableName;
Table1.Open;
end;
2.动态建表的问题。
TTable有一个方法:TTable.CreateTable;Delphi帮助中有例子
你自己去看吧,因该能看懂!
3.打包问题,Delphi的InstallShield for Delphi中自带了BDE的选项。不过
把BDE打进去非常不容易。所以,最好用ADO访问数据库。这样,打包时就不用打BDE了!
//去试试吧!