帮我检查一下这段程序 procedure TForm2.Button8Click(Sender: TObject); var bname:string; begin while not table1.Eof do begin //query1.DatabaseName:='visual foxpro table'; query1.Close; query1.SQL.Clear; bname:=table1.fieldbyname('code').asstring; query1.sql.Text:='create table '+bname+'(rq date primary key,'+ 'uptime time,upqk time,downtime time,downqk time,cqqk numeric)'; query1.ExecSQL; table1.MoveBy(1); end; end;
表名,字段名, 类型,长度,精度,默认值。如果是这样就是拼sql的事了。
procedure TForm2.Button8Click(Sender: TObject);
var
bname:string;
begin
while not table1.Eof do
begin
//query1.DatabaseName:='visual foxpro table';
query1.Close;
query1.SQL.Clear;
bname:=table1.fieldbyname('code').asstring;
query1.sql.Text:='create table '+bname+'(rq date primary key,'+
'uptime time,upqk time,downtime time,downqk time,cqqk numeric)';
query1.ExecSQL;
table1.MoveBy(1);
end;
end;
如果用TABLE,CREATE就可以了,当然了,如果想让数据库按照自己的意愿进行,必要的SQL语句是必不可少的.
create table
database
procedure
trigger
只要是SQL语句的..大部分是可通的..