动态创建数据库请帮我看看我做的怎么不对!

Question

procedure TForm1.Button1Click(Sender: TObject);
var
qry1:tadoquery;
begin
qry1:=tadoquery.create(self); 
qry1.close;
qry1.sql.text:='create table my_tbl('+
                  'No int PRIMARY KEY CLUSTERED, '+
                  'Name varchar(100))';
qry1.execsql;
end; 
 

Answer 1

Create是建构函数，我觉得用ADO创建表，应该用SQL语句
Create Table...

Answer 2

用sql 索引怎么创建 ？
sqlstr:='Create Table TableXXX ( FieldName1 varchar(20)  ,FieldName2 varchar(20) NOT NULL )';
      With adoQuery1 Do
      Begin
        Close;
        SQl.Clear;
        SQl.add(sqlstr);
        sql.add('create index FieldName on ''tableXXX''(FieldName1)');　//词句化有句法错误请帮忙看看
        ExecSQL;
      End;

Answer 3

sql.add('create index FieldName on tableXXX(FieldName1));

Answer 4

用adox创建更好，有的属性用ado不能改

Answer 5

前面不用create 语句,将后面的create(self)替换成createtable()即可

Answer 6

您可以使用adoquery直接创建表.如楼上同志所说,adoquery1.sql.add('create table mytable(field1 char(5),field2 integer)
create index myindex on mytable (field1)'),然后adoquery1.execsql就ok了.