能,用SQL语句的Create Table ……就行了。

解决方案 »

  1.   

    两种方法:
    1。直接用sql写:
    str := 'create table aaa (teleno char(7))';
    conn.Execute(str);
    str := 'insert into aaa(teleno) values(''hello'')';
    conn.execute(str);2.使用adotable:
    str := 'create table aaa (teleno char(7))';
        conn.Execute(str);
        with ADOTable1 do
        begin
            TableName := 'aaa';
            active := true;
            insert;
            fields[0].AsString := 'hlll';
            post;
            insert;
            fields[0].asstring := 'ddsiewewewe';
            post;
            Active := false;
        end;