在PB中根据结构伸展文件创建数据表

类别:数据库 点击:0 评论:0 推荐:


  在PowerBuilder(文中简称PB)中,没有现成的像 VFP 中根据结构伸展文件生成数据表的函数。而在数据库应用系统的开发中,常常需要根据用户的要求创建数据表。我们可以仿照VFP的结构伸展文件创建一个数据表sjbjg(如图),用来存放用户欲创建数据表的结构,从而来相对简单地解决这个问题。

 

  为sjbjg数据表建立一个名为d_sjbjg的Grid数据窗口,数据源采用Quick Select。

  新建一个窗口,添加一个数据窗口控件dw_1和一个按钮控件cb_1。Dw_1的dataObject设置为d_sjbjg,cb_1的text设置为“创建数据表”。在cb_1的Clicked事件中输入以下代码:

  string Mysql

  int ls_last,row

  mysql='drop table Tablename' // Table name创建的数据表名称

  execute immediate :Mysql USING SQLCA;

  Mysql='create TABLE Tablename ('

  ls_last=dw_1.rowcount()

  if ls_last>0 then

  for row=1 to ls_last

  mysql=mysql+trim(dw_1.GetItemString(row,“Field_name ”))//相应的数据表字段名

  choose case dw_1.GetItemString(row,“Field_type”)//相应数据表字段类型

  case 'char'

  mysql=mysql+' char('+trim(dw_1.GetItemString(row,“Field_len”))+') '//相应数据表字段长度

  case 'decimal'

  mysql=mysql+' decimal('+trim(dw_1.GetItemString(row,“Field_len”))+','

  mysql=mysql+trim(dw_1.GetItem String(row,“Field_dec”))+') '

  case 'integer'

  mysql=mysql+' integer '

  case 'date'

  mysql=mysql+' date '

  end choose

  if row<>ls_last then mysql=mysql+',' else mysql=mysql+')'

  next

  end if

  execute immediate :Mysql USING SQLCA;//创建数据表

  messagebox(“信息提示”,'数据表Table name创建完毕',information!,OK!)

  由于不同数据库对数据表的数据类型要求不尽相同,故本文仅以常用的char(字符型)、decimal(十进制型)、integer(整型)、date(日期型)为例,其他数据类型参照上述类型进行修改。

  本程序在PB 9.0 调试通过,数据库为PB 9.0 自带的Adaptive Server Anywhere。

本文地址:http://com.8s8s.com/it/it19426.htm