高手请进

Question

sqlstr:='Create Table TableXXX ('+abc+' varchar (20) NOT NULL,FieldName2 varchar (20) NOT NULL )';
With ADOQuery1 Do
Begin
   Close;
   SQl.Clear;
   SQl.add(sqlstr);
   ExecSQL;
End;

Answer 1

adoquryClass.SQL.Text := 'Create Table FaqClass ' +
      '(' +
      'ClassID INT not null PRIMARY KEY,' +
      'ParentClassID INT not null,' +
      'ClassTitle char(100) not null,' +
      'ClassType TINYINT DEFAULT 0' +
      ')';

Answer 2

用sql语句创建，也可以用adox创建，推荐使用后者，给你一个vb的例子
Sub CreateTable()   Dim tbl As New Table
   Dim cat As New ADOX.Catalog'打开目录。
   ' 打开目录。
   cat.ActiveConnection = _ 
      "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=c:\Program Files\Microsoft Office\" & _
      "Office\Samples\Northwind.mdb;"   tbl.Name = "MyTable"
   tbl.Columns.Append "Column1", adInteger
   tbl.Columns.Append "Column2", adInteger
   tbl.Columns.Append "Column3", adVarWChar, 50
   cat.Tables.Append tblEnd Sub

Answer 3

str:='Create Table tablename FieldName varchar (20) NOT NULL )';
With ADOQuery1 Do
Begin
   Close;
   SQl.Clear;
   SQl.add(str);
   ExecSQL;
End;