在pb(datawindow中)如何给数据库中的表添加字段>>>>>>>>>>>>>>>>>>>>>>>>>

[okyzx]

在pb(datawindow中)如何给数据库中的表添加字段>>>>>>>>>>>>>>>>>>>>>>>>>

[ice2water]

PB修改数据库表结构的技巧

华侨城集团公司信息中心李清

PowerBuilder是目前公认的、最佳的数据库前端开发工具之一。在实际开发应用中，经常会遇到修改数据库表结构的情况。用PowerBuilder修改数据库表结构与用Foxbase修改数据库结构不同。在PowerBuilder中，除可以在数据库表结构中添加字段名外，无法直接修改数据库表结构，如删除某个字段名或类型或字段名长度等，都会导致数据库表记录的丢失。我们通过实践探索，总结了几种方法仅供大家参考，请大家批评指正。

一、修改数据库表结构，数据库表中没有记录
方法１：将表结构以ExportTable文件格式输出。
从Database中选择要修改的数据库表Table。
从Objects中选择ExportTable／ViewSyntaxtoLog，取名保存即选SaveLogAs，以*.sql格式保存。
从Objects中选择DatabaseAdministration。
从File中选择DosOpen，选文件名Filename，*.sql，打开进行修改。
从Objects中选择Execute　SQL。即产生一新的数据库表结构。
注意：Table名不要同名。

方法２：将表结构以SQLSyntax文件格式输出。
从Database中选择要修改的数据库表Table。
按Preview键。
从File中选择SaveRowsas，FileFormat选SQLSyntax，取表名*.sql保存。
从File中选择DosOpen，打开表名*.sql，进行修改。
取表名后，Execute　SQL。
注意：此种方法没有生成PrimaryKey。

二、修改数据库表结构，保存原数据库表中记录
方法１：先修改数据库表结构，用SQL语句转移数据库表中记录
将表1生成表1.sql，修改结构，将表1另取名为表2。
运行表2.sql，生成表2。此时产生一新的数据库表结构。
从Objects中选择DatabaseAdministration，写SQLStatement：Insert　into新表名　select*　from旧表名；Execute　SQL。将旧表中所有字段内容转入新表中。
删除表1，从File中选择DosOpen，打开文件名Filename即表2.sql，将表2统一改为表1。运行表1.sql，生成新结构的表1，此时无记录。
按步骤3，将表2中的记录全部转入表1中。
　　若将部分字段转入，写SQLStatement：
　　insertinto新表名（字段１，字段２．．．．．．）　
　　select字段１，字段２．．．．．．from旧表名；
Execute　SQL。旧表中部分字段内容转入新表中。

方法２：将表结构和记录以SQLSyntax文件格式输出。
从Database中选择要修改的数据库表Table，按Preview键。
从File中选择SaveRowsas，File　Format选SQLSyntax，取表名*.sql保存。
从File中选择DosOpen，打开表名*.sql，进行修改。
取表名后，Execute　SQL。

方法３：将表结构和记录以TXT文件格式输出。
从Database中打开数据库表，按Preview键。
从File中选择SaveRowsas，File　Format选TXT，取表名*.txt保存。
将表生成表.sql，修改结构，运行表.sql，此时产生一新的数据库表结构。
从Database中打开数据库表，按Preview键。
从Rows中选择Import，选*.txt。
从File中选择SavechangestoDatabase。

注意：方法１适用于任何修改数据库表结构的任何情况。方法２和方法３对删除字段名不适用。

[okyzx]

这个我看不懂,是pb8的吗?
在pb8中有什么方法?????????????????

[zlheadof]

能不能简单点啊

[zjyx]

意思就是（如果要保存原是记录的情况下）

先用SQL语句把需修改的表1内记录存入另一相同表结构的表2

然后导出表1的结构为文本，进行所需的修改（当然，要符合SQL的语法）

用EXEC执行修改过后的语法，生成新的表1

再使用SQL语句将所要保留的记录，从表2中的相对应字段中取出放入表1中

以上的方法过于繁复，而且数据量过大时几乎是不可行的，期望有更好的方法！！

[qqf]

然后再动态的建数据窗口对象，你可以参考用户参考手册中的。

[qqf]

EXECUTE IMMEDIATE "ALTER TABLE st add a6 char(6)" USING SQLCA;
if sqlca.SQLCode=-1 then
messagebox("",SQLCA.SQLErrText)
end if

注：上面是给ST表增加A6字段，字段类型为CHAR(5)