遇到一个问题请大家帮个忙？

Question

小弟我最近在做一个系统，想在delphi中自动在数据库中创建一个表。
不知道行不行，如果行的话请您给出具体的实现步骤。

Answer 1

sql.clear;
sql.add('create table....);
execsql;中间的建表语句视数据库而定

Answer 2

没什么问题，SQL可以作什么在Delphi中就可以作什么

Answer 3

///在指定的数据库中建立表function CreatTable(LpDataBaseName, LpTableName, LpSentence: string): Boolean; //建立新表
var
  CreatTableQuery: TQuery;
  SQLsentence: string;
  Successed: Boolean; //成功否
begin
  Successed := False;
  SQLsentence := 'CREATE TABLE "' + LpTableName + '" ' + LpSentence;
  CreatTableQuery := TQuery.Create(nil);
  try
    try
      with CreatTableQuery do
      begin
        UniDirectional := True;
        Active := False;
        Sql.Clear;
        DataBaseName := LpDataBaseName; //数据库名
        Sql.Add(SQLsentence);
        ExecSQL;
        Successed := True;
      end;
    except
      MessageBox(Application.Handle, Pchar(' 在建立数据库 ' + Trim(LpDataBaseName) + ' 中的 ' + Trim(LpTableName) + ' 表出错，建立未能成功 ！'), '建立失败', 0 + 16);
      Successed := False;
    end;
  finally
    CreatTableQuery.Free; //释放建立的Query
    if Successed then
      Result := True //建立成功
    else
      Result := False; //建立失败
  end;
end;

Answer 4

在企业管理器中新建一个表，结构定义好之后，将生成的SQL语句复制到程序中用Query进行ExecSQL调用，这个方法最Easy