我用代码创建了一个表
但是我换一个数据表名字!创建救不执行了!为何??
是否是table没有释放资源的原因!如果是怎么解决!!??
希望大侠帮忙!急!
一位大虾说用
table1.close;
但是这个用了后,执行的时候还是那样!怎么办?
一位大虾说
你用Query控件使用SQL语句来创建试试看
但是Query控件使用SQL语句来创建这个方面的代码不会写!你能帮我传点吗??谢谢了!

解决方案 »

  1.   

    table1.close;
    table1.Active := False;
    table1.DatabaseName := '_DB';
    table1.TableType := ttDefault;
    table1.TableName := RxDBLookupCombo1.Text+'1';‘取自该空间的字符
    if not Table1.Exists then begin
      with FieldDefs do begin
          Clear;
        for i := 0 to DBGrid4.Columns.Count-1 do
        begin
          with AddFieldDef do begin
            Name :=  DBGrid4.Columns.Items[i].FieldName;
            DataType := ftString;
            Size := 30;
          end;
        end;
    end;
      

  2.   

    当创建完表后,调用Table1.Free释放,不知是否可以