access数据库的使用,快进来!(88分)

  • 主题发起人 主题发起人 jun
  • 开始时间 开始时间
J

jun

Unregistered / Unconfirmed
GUEST, unregistred user!
1、在access数据库中(abc.mdb),己有表(b1)要靠拷贝一个相同结构的表(b2)。(数据不要)
2、abc.mdb内有表(b1, b2, b3, b4, b5 ...), 要在ComboBox1内列出当前库内所有的表。?
 
1) select * into b2 from b1 where 1=2
2) 前面说过看系统表,在vb里可以在workspace.databases察
 
请说详细点,我用的是DiamondAccess 在delphi 3 运行!
 
access,大概没系统表,恩,好象挺难。
 
2)
procedure TForm1.Button1Click(Sender: TObject);
var
lstTable :TStringList;
begin
lstTable :TStringList.Create;
try
Database1.Session.GetTableNames('your databasename','',False,False,lstTable);
ComboBox1.Items.Assign(lstTable);
finally
lstTable.Free;
end;
end;
 
access 有5个系统表,没有就不叫关系数据库
select name from msysobjects where where type=1
 
to :killgates
lstTable :TStringList.Create; 是否 lstTable := TStringList.Create
Database1.Session 根本没有呀!怎用?
 
第一﹕create table b2 as select struct from b1;若你不要數據你可以在條件語句中
加上一個不可能有的值﹐這樣就只建立表了。在SQL如何直接抓表結構﹐小弟還沒有用過﹐
哪位大蝦曉得﹐請告之哈﹐免得小弟去找了﹐也不知有沒有。
第二﹕我沒試過﹐Kissgates應該可以用。另外﹐你建好一個DataBase后﹐再建一個表﹐表
中選好你建的這個DataBase后﹐在該Table中有個TableName屬性﹐你可以將它們全抓出來﹐
就是所有的TableName了。
 
多人接受答案了。
 
2)
procedure TForm1.Button1Click(Sender: TObject);
var
lstTable :TStringList;
begin
lstTable :TStringList.Create;
try
Database1.Session.GetTableNames('your databasename','',False,False,lstTable);
ComboBox1.Items.Assign(lstTable);
finally
lstTable.Free;
end;
end;
 
后退
顶部