用delphi动态创建的access表，设置其字段的“是否允许空字符串”为真

var   access:OleVariant;
begin
access       :=       CreateOleObject('ADOX.Catalog');
access.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=d:/zz/temp.mdb');
access:=null;
        try
                tmpQuery       :=       TAdoQuery.Create(nil);
                tmpQuery.ConnectionString       :=       'Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=d:/zz/temp.mdb;Persist   Security   Info=False';
                with       tmpQuery       do
                begin
                        Close;
                        Sql.Clear;
                        Sql.Add('CREATE       TABLE       T_test               ');
                        Sql.Add('(       ');
                        Sql.Add('t_a1   varchar(10),       ');
                        Sql.Add('t_a2   varchar(20)           ');
                        Sql.Add(')');
                        ExecSql;
                end;
access:=CREATEoleoBJECT('adox.catalog');
access.activeconnection:='Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=d:/zz/temp.mdb;Persist   Security   Info=False';
access.Tables['T_Test'].Columns['t_a1'].Properties('Jet   OLEDB:Allow   Zero   Length'):=true;
                MessageBox(HANDLE,'成功创建。','提示',MB_OK+MB_ICONINFORMATION);
        finally
                tmpQuery.Free;
        end;
end;