请问用ADO如何动态创建一个新的ACCESS数据库?请高手剔教!谢谢(50分)

F

fjw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #1

我想用Ado在程序中自动创建一个新的Access数据库，并且能把其它的Access数据库
中的部分表和视图复制到这个新建的Access数据库中,不知怎么办?请高手们剔教！
还有一个问题，我想用VBA或宏删除Access数据库中的所有表和记录， 不知玩过VBA
的高手们试过没有，请剔教，谢谢！

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #2

创建一个新的Access数据库的方法：
procedure TForm1.Button1Click(Sender: TObject);
var
CreateAccess:OleVariant;
begin
CreateAccess:=CreateOleObject('ADOX.Catalog');
CreateAccess.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:/accessmdb.mdb');
end;

 

T

T金花

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #3

这个CreateOleObject是不要申明。

 

F

fjw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #4

请问yhaochuan,这个CreateOleObject是什么啊?我怎么找不到它啊?

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #5

忘了告诉你它在ComObj单元中
你在要使用这个函数的单元中的USES加上ComObj就行了。

 

Y

yhaochuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-10

• #6

想知道某个函数在哪个单元可以用下面的方法：
在单元文件里，用键盘将光标移到这个函数中间，然后按F1，出现帮助文件后
前几行之内会有如下内容
Unit

ComObj//这个单词是粗体的，颜色是绿色的（还是叫兰色）
//上面的ComObj说明了这个函数定义于这个单元。

 

F

fjw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #7

Yhaochuan:
谢谢你的剔教，不胜感谢，由于我的积分太少，所以只能给你这一点分了，如果以后
分多后，再给你多补一点如何？谢谢！

 

F

fjw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-11

• #8

谢谢！

 

F

fjw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-04

• #9

大家好，我的一段关于ADO的代码出现了错误，请大家帮忙。谢谢！
procedure TForm1.NssADOConnection1AfterConnect(Sender: TObject);
var
catlevariant;
tdblevariant;
begin
cat:=createoleobject('adox.catalog');
cat.activeconnection:=NssAdoConnection1.ConnectionObject;
tdb:=createoleobject('adox.table');
tdb:=cat.tables('abcdefg'); //本库中的链接表表名
tdb.Properties('jet oledb:link datasource'):='e:/db1.mdb'; //就是运行到此出现的错误，不知为何？
end;

出现错误提示：“找不到成员”，不知怎么回事，请高手指教，不胜感谢！