ADOQuery2.Active := False; ADOQuery2.SQL.Clear; ADOQuery2.SQL.Add('CREATE TABLE `CCK` ('); ADOQuery2.SQL.Add(' `ljh` C (80) NOT NULL, '); ADOQuery2.SQL.Add(' `zy` C (100) NOT NULL, '); ADOQuery2.SQL.Add(' `rk` I NOT NULL,'); ADOQuery2.SQL.Add(' `fc` I NOT NULL,'); ADOQuery2.SQL.Add(' `cpano` C (50) NOT NULL ) '); //showmessage(adoquery2.SQL.Text); try ADOQuery2.ExecSQL; except Application.MessageBox('创建数据表失败!', '小闭环助手', MB_OK); exit; end;
是不是这样? CREATE TABLE [tempdb].[dbo].[lqz] ( [零件号] char (30) NOT NULL, [零件名] char (20) NOT NULL, [数量] numeric (10,0) NOT NULL, [重量] numeric (2,0) NOT NULL, [d] char (2) NOT NULL )
sorry,搞措了! 参考下面的: CREATE TABLE `a` ( `姓名` M NULL, `code` C (20) NOT NULL, `citemcode` C (80) NOT NULL, `期初库存` N (18,4) NULL, `本期入库` N (18,4) NULL, `本期出库` N (18,4) NULL, `期末库存` N (18,4) NULL )
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('CREATE TABLE `CCK` (');
ADOQuery2.SQL.Add(' `ljh` C (80) NOT NULL, ');
ADOQuery2.SQL.Add(' `zy` C (100) NOT NULL, ');
ADOQuery2.SQL.Add(' `rk` I NOT NULL,');
ADOQuery2.SQL.Add(' `fc` I NOT NULL,');
ADOQuery2.SQL.Add(' `cpano` C (50) NOT NULL ) ');
//showmessage(adoquery2.SQL.Text);
try
ADOQuery2.ExecSQL;
except
Application.MessageBox('创建数据表失败!', '小闭环助手', MB_OK);
exit;
end;
我用ftfloat试了试:
//电量
Table1.fielddefs.Add('Pdds',
ftfloat,
0,
False);我想要长度为10,小数位数为2,默认的却是数值型长度为20,小数位数为2
CREATE TABLE [tempdb].[dbo].[lqz] (
[零件号] char (30) NOT NULL,
[零件名] char (20) NOT NULL,
[数量] numeric (10,0) NOT NULL,
[重量] numeric (2,0) NOT NULL,
[d] char (2) NOT NULL
)
参考下面的:
CREATE TABLE `a` (
`姓名` M NULL,
`code` C (20) NOT NULL,
`citemcode` C (80) NOT NULL,
`期初库存` N (18,4) NULL,
`本期入库` N (18,4) NULL,
`本期出库` N (18,4) NULL,
`期末库存` N (18,4) NULL
)
Table1.fielddefs.add('Yhh',
ftstring,
8,
False);
字符型的是这样的,那数值型的呢?
var
i, j: integer;
Sql: string;
fname, fPath: String;
lsfName, ltfName: string;
begin
//==================================
fName:=edit1.Text;
fPath:=edit2.Text; //==================================
Table1.DatabaseName:=fPath;
Table1.TableName:=fName;
Table1.TableType:=ttFoxPro;
//==================================
Table1.Close;
Table1.fielddefs.clear; //用户编号
Table1.fielddefs.add('Yhh',
ftstring,
8,
False);
//抄表库号
Table1.fielddefs.add('Cbkh',
ftstring,
3,
False);
//抄表日期
Table1.fielddefs.add('Cbrq',
ftstring,
19,
False);怎么创建指定长度和小数位数的数值型字段Pdds呢????
//电量
Table1.fielddefs.Add('Pdds',
。。
);
Table1.createtable;
Table1.Active:=True;
怎么创建指定长度和小数位数的数值型字段Pdds呢????
`Yhh` C (8) NOT NULL,
`Cbkh` C (3) NOT NULL,
`Cbrq` C (19) NOT NULL,
`Pdds` N (10,2) NULL
)