如何用语句修改ACCESS2000字段允许空字符串?

解决方案 »

  1.   

    alter table ......应可以吧。
      

  2.   

    ses
      ADOX_TLB;procedure TForm1.Button1Click(Sender: TObject);
    var
      DS: string;
      Catalog: _Catalog;
      DBName : string;
    begin
      DBName := 'c:\test\test.mdb';
      Catalog := CoCatalog.Create;
      DS := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + DBName + ';Jet OLEDB:Engine Type=5';
      Catalog.Set_ActiveConnection(DS);
      Catalog.Tables['MyTable'].Columns['MyField'].Properties['Jet OLEDB:Allow Zero Length'].Value := True;
      Catalog.Tables['MyTable'].Columns['MyField'].Properties['Nullable'].Value := True;end;