我在一个mianform中添加了一个PageControl,一个adoTable,再在其中新加了三个TabSheet控件,现在的问题是怎么在三个页面中连接不同的数据库?在TabSheet的mousedown事件中对adoTable中的tablename属性来修改到不同的数据库表名吗?还有其他办法没?
谢谢。
谢谢。
解决方案 »
- 我是继续还是放弃?
- 怪事:GetFileVersionInfo只能获取到delphi程序的版本信息!
- 请教:delphi7安装完成提示unregistered未注册,请问开发的软件会不会有影响。请高手指点(给分)?
- 我想把BMP图转化成string类型的。用流的方式。用下面的函数为什么会出错呢。给分!
- 使用SPCOMM,如何才能把按收到的数据(十六进制数)显示成十进制数?
- 初学者求教,关于修改表结构(在线等待)谢谢各位!
- 怎么取得TdxBar主题的颜色
- 即刻给分,delphi中的Ascc码函数是哪个,如何写?
- delphi如何在当前位置插入一第纪录?
- 激情放送
- 新手遇到问题了,大家看看先
- 100分求救,DELPHI调用.NET写的WEBSEVICE问题
修改TableName属性,只能连接同一个数据库中不同的数据表,而不是不同的数据库。
其实我就是连接同一个数据库的不同表
delphi是这个学期的选修课
所以很多都不熟悉
我想在点击进入tabsheet5的时候修改连接
procedure Tmainform.TabSheet5Show(Sender: TObject);
var
student:string;
begin
ADOTable1.TableName:= student;
end;
可是提示是错误的,为什么?我已经连好了数据库,student是其中的一个表。
另外在改变TableName之前要关闭
ADOTable1.Active := False;
ADOTable1.TableName := 'Student';
ADOTable1.Active := True;
恩,谢谢
那个问题解决了
现在的问题是还没达到我要的目的
比如
procedure Tmainform.TabSheet5Show(Sender: TObject);
begin
ADOTable1.Active := False;
ADOTable1.TableName := 'student';
ADOTable1.Active := True;
end;
procedure Tmainform.TabSheet1Show(Sender: TObject);
begin
ADOTable1.Active := False;
ADOTable1.TableName := 'book';
ADOTable1.Active := True;
end;
我想在点tabsheet5的时候连接student表
在点tabsheet1的时候连接book表提示错误:
[Error] Unit1.pas(50): Undeclared identifier: 'TabSheet1Show'
[Error] Unit1.pas(50): ';' expected but '(' found
[Error] Unit1.pas(52): Undeclared identifier: 'ADOTable1'
[Error] Unit1.pas(53): Missing operator or semicolon
[Error] Unit1.pas(54): Missing operator or semicolon
[Fatal Error] books.dpr(5): Could not compile used unit 'Unit1.pas'并不是我不想专研delphi
实在是选修课,现在期末做数据库设计,开发语言我就选择了delphi
可是实在太多不懂,回头再做又比较难
所以请你们帮帮我,谢谢
谢谢chris_mao 的提示
结贴
procedure TForm1.PageControl1Change(Sender: TObject);
const
TableArray: array [0..1] of string = ('student', 'book');
begin
ADOTable1.Active := False;
ADOTable1.TableName := TableArray[TPageControl(Sender).ActivePageIndex];
ADOTable1.Active := True;
end;