1)创造一个数据库（access） 2)将一个现存的表复制到一个新表 (50分)

P

peleg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #1

1)如何在程序里面创造一个数据库！
2)将一个现存的表复制到一个新表

 

滑

滑翔机

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #2

Table.CreateTable
或在Query中使用Sql 语句

 

P

peleg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #3

是数据库，是一个文件，不是数据表

 

D

dpfans

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #4

var
newtable:ttable;
begin
newtable:=ttable.create;
with newtable do
begin
active:=false;
databasename:='pubs';
tabletype:=ttdefault;
tablename:=edit1.text;
tabletype:=ttdefault;
fielddefs.clear;
fielddefs.add(edit2.text,ftinteger,0,false);
fielddefs.add(edit3.text,ftinteger,0,false);
indexdefs.clear;
end;
createtable;
end;

 

曾

曾阿牛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #5

其实这样的问题搜索一下就知道了阿

 

曾

曾阿牛

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
CreateAccess:OleVariant;
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:/temp/Aceco.mdb;Jet OLEDBatabase Password=55629');
end;
注意
uses ComObj

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #7

http://www.delphibbs.com/delphibbs/dispq.asp?lid=1034659

 

H

hbwyq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #8

1、用 曾阿牛 的方法；
2、执行 SQL ： select * into newtable from oldtable

 

P

plane822

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #9

create table newtablename select * from oldtablename

 

P

peleg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-21

• #10

1)曾啊牛回答对了
2）hbwyq回答对了