动态创建Access表(100分)

  • 主题发起人 DelphiCQ6
  • 开始时间
D

DelphiCQ6

Unregistered / Unconfirmed
GUEST, unregistred user!
动态创建Access表,其中有一个字段为Real型,想在创建时指定它的小数位数为2位
比如
Create Table ClientTotal(Total Real);
请问SQL语句怎么写?
 
Digits : Integer ; //小数位数
TotalLength : Integer ; //总长度
begin
Digits := 2 ;
Sql := 'create Table ClientTotal(Total'+' Number('+IntToStr(TotalLength)+','+IntToStr(Digits)+'))'
 
编译报错
Create_Table_String:='Create Table ClientTotal( Total Number(8,2) )
ADOQuery.SQL,Clear;
ADOQuery.SQL.ADD(Create_Table_String);
ADOQuery.SQL.Prepared;
ADOQuery.SQL.ExecSQL;
提示说定义数据表结构出错
 
commandstr := 'CREATE TABLE total ( total numeric(8,2) )';
adocommand1.CommandText := commandstr;
adocommand1.Execute;
 
多人接受答案了。
 
顶部