如何利用已存在的数据库建立空的与之结构相同的数据库?(50分)

  • 主题发起人 主题发起人 wtiebo
  • 开始时间 开始时间
W

wtiebo

Unregistered / Unconfirmed
GUEST, unregistred user!
Just as the title! The Database is Paradox. Thanks to all of you!
 
要在PowerBuilder中可就简单了,从DataWindow导出SQL语言,执行一遍就得了,
Delphi的数据库功能实在太差,要开发数据库,还得用PB。
还是想想怎么导出SQL语句吧。
 
用 TBatchMove 可以复制 Table.
 
table2.fielddefs:=table1.fielddefs;
table2.indexdefs.aasgn(table1.fielddefs);
table2.createtable;
table2.open;
 
简单.
paradox不是一个目录吗?
拷贝目录,再Delete All;
BTW,delphi也是可以导出SQL的,大家看SQL Explore里面不就用了?
只不过我们用的比较少,大家找找肯定可以找到.
 
哓刚: SQL Explore不可以导出Paradox,Dbase等文件型数据库
的DDL SQL语句的.
不过 利用SQL语句的方法是比较好的方法 ! 生成表格比较简单.
生成一串Create Table 的SQL语句吧! 然后执行它!
李璋琦的办法也很好!
 
SQL Server有一个Script的描述,可以倒出整个数据库的结构,写成SQL.
如果找到这个函数或SQL语句就发了,呵呵
 
OH, there are so many superior help me! I am moved deeply by all of you!
Thank you very very much! And now, let me try!
 
To 李璋琦:
I have tried your method, but when I excute it to this sentence:
> table2.createtable;
There is an error Coming: " Invalid parameter "
Why?
 
你没有设置databasename和tablename的值,也可以只设置tablename的值
 
TBatchMove可解决大部分捣腾数据的工作.
"要在PowerBuilder中可就简单了,从DataWindow导出SQL语言,执行一遍就得了,
Delphi的数据库功能实在太差,要开发数据库,还得用PB。
还是想想怎么导出SQL语句吧。"
说这话肯定是并不真正了解Delphi的数据库功能.
PB? 除了DataWindow外没什么特色,(我是先用PB后改用Delphi的)
PB的Bug太多了,尤其是中文方面.
PB中的数据管道就相当与TBatchMove,但速度奇慢.
哥们,过来吧,别用那玩艺了!
 
使用database desktop,首先用Utility中的copy功能拷贝数据表;
其次,使用utility中的Empty功能清空数据表即可!
 
To 李璋琦:
I already set them. But the problem exists yet! I reallydo
n't know
why.

To 曹晓钢 and DeckYou:
I want todo
this in program. In fact, Ido
n't want the user todo
this by hand.
To SeaSky:
This is a good way, but Ido
n't write the SQL sentence again. I want
to use the existed database.
Thank all of you and long your help!
 
请看下面代码:
procedure TForm1.Button1Click(Sender: TObject);
begin
table2.tablename:='c:/create.db';
Table2.fielddefs:=table1.fielddefs;
table2.indexdefs.assign(table1.indexdefs);
table2.createtable;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Table1.databasename:='DBDEMOS';
Table1.Tablename:='customer.db';
Table1.open;
end;

如果还不行,把你的原码maileto:delphi4@263.net
 
TO 李璋琦:
Thank you very much! I forget to open Table1 before I evaluate
the parameters of it to the Table2.
Thank you again! The marks will come to you soon!
 
TO 李璋琦:
Thank you very much! I forget to open Table1 before I evaluate
the parameters of it to the Table2.
Thank you again! The marks will come to you soon!
 
后退
顶部