Access資料庫,要如何用程式語法增加資料集或拷貝資料集(50分)

T

tayancom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #1

請教前輩:
程式用到的Access資料庫,要如何用程式語法增加資料集,
問題:
1.程式要如何判斷 Cust.mdb資料庫 是否有 City資料集.
2.假如不存在時,要如何把 Updb.mdb 內的 City資料集 拷貝到 Cust.mdb
謝謝!!

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #2

你的意思是不是要如何判断一个数据库中是否存在某个表？？？

我贴个给你，以前也是别人教我的。
//这个函数用来判断来某个表是否存在
Function Tmain.ExistsTable(AtableName:String):Boolean;
Var
SL:tStrings;
I:integer;
S:String;
begin
Result:=false;
s:=UpperCase(ATableName);
SL:=TStringList.Create;
Try
ADOConnection1.GetTableNames(sl,False);
for i:=0 to (sl.Count-1) do
Begin
if UpperCase(sl)=s then
Begin
Result:=True;
Break;
end;
end;
finally
sL.free;
end;
end;

例子：
if not ExistsTAble('cust') then
Begin
AdoCommand1.CommandTExt:='Select * Into Cust From City';
AdoCommand1.execute;
end;

 

L

lovedp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #3

gz

 

T

tayancom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #4

>if not ExistsTAble('cust') then
這問題解決了,謝謝!!
>AdoCommand1.CommandTExt:='Select * Into Cust From City';
這段不行, 是要把 Updb.mdb資料庫 內的 City資料集 拷貝到 Cust.mdb資料庫 內.
謝謝您的教導!!

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #5

Adoconnection连接在updb.mdb上。

select * into city in "cust.mdb" from city
或
insert into city in "cust.mdb" select * from city

 

T

tayancom

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-30

• #6

可以了.謝謝!