c# - MSAccessDBからのソースコードの抽出

Question

ソース管理に配置できるように、ソースコードを抽出したいAccessDBがあります。

Primary Interop Assemblies（PIA）を使用してデータを抽出しようとしましたが、すべてのモジュールとフォームを取得していないため、問題が発生しています。

コードには140個のフォームとモジュールがあります（質問しないでください。これは私が継承したレガシーシステムです）が、PIAコードはそのうち91個しか取得していません。

これが私が使用しているコードです。

using System;
using Microsoft.Office.Interop.Access;

namespace GetAccesSourceFiles
{
    class Program
    {
        static void Main(string[] args)
        {
            ApplicationClass appClass = new ApplicationClass();
            try
            {
                appClass.OpenCurrentDatabase("C:\\svn\\projects\\db.mdb",false,"");

                Console.WriteLine(appClass.Version);
                Console.WriteLine(appClass.Modules.Count.ToString());
                Console.WriteLine(appClass.Modules.Parent.ToString());

                int NumOfLines = 0;
                for (int i = 0; i < appClass.Modules.Count; i++)
                {
                    Console.WriteLine(appClass.Modules[i].Name + " : " + appClass.Modules[i].CountOfLines);
                    NumOfLines += appClass.Modules[i].CountOfLines;
                }

                Console.WriteLine("Number of Lines : " + NumOfLines);
                Console.ReadKey();
            }
            catch(Exception ex)
            {
                Console.WriteLine(ex.Message + "\r\n" +ex.StackTrace);
            }
            finally
            {
                appClass.CloseCurrentDatabase();
                appClass.Quit(AcQuitOption.acQuitSaveNone);
            }

        }
    }
}

そのコードに何が欠けている可能性があるかについての提案はありますか？または私のためにこれを行う製品/ツールで？

編集：これはディスクにスクリプト化する必要があることにも言及する必要があります。ソースシステムはSVNであるため、VSSとの統合はオプションではありません。ありがとう。

score 1 · Accepted Answer

より良い方法があります。Visual Sourcesafe（および場合によっては他のSCC）を使用して、適切なバージョン管理コードとオブジェクトを使用できます。このMSDNの記事を参照してください。

score 1 · Accepted Answer

これは役立つかもしれません：

    Sub AllCodeToDesktop()
       'The reference for the FileSystemObject Object is Windows Script Host Object Model
       'but it not necessary to add the reference for this procedure.

       Dim fs As Object
       Dim f As Object
       Dim strMod As String
       Dim mdl As Object
       Dim i As Integer

       Set fs = CreateObject("Scripting.FileSystemObject")

       'Set up the file.
       Set f = fs.CreateTextFile(SpFolder("Desktop") & "\" _
         & Replace(CurrentProject.Name, ".", "") & ".txt")

       'For each component in the project ...
       For Each mdl In VBE.ActiveVBProject.VBComponents
           'using the count of lines ...
           i = VBE.ActiveVBProject.VBComponents(mdl.Name).CodeModule.CountOfLines
           'put the code in a string ...
           If VBE.ActiveVBProject.VBComponents(mdl.Name).codemodule.CountOfLines > 0 Then
              strMod = VBE.ActiveVBProject.VBComponents(mdl.Name).codemodule.Lines(1, i)
           End If
           'and then write it to a file, first marking the start with
           'some equal signs and the component name.
           f.writeline String(15, "=") & vbCrLf & mdl.Name _
               & vbCrLf & String(15, "=") & vbCrLf & strMod
       Next

       'Close eveything
       f.Close
       Set fs = Nothing
   End Sub

   Function SpFolder(SpName As String)
   'Special folders
       SpFolder = CreateObject("WScript.Shell").SpecialFolders(SpName)
   End Function

から: http://wiki.lessthandot.com/index.php/Code_and_Code_Windows

score 1 · Accepted Answer

文書化されていないApplication.SaveAsTextおよびApplication.LoadFromText関数を使用できます。SaveAsText は、モジュール、フォーム、およびレポートで機能します。フォームまたはレポートをテキストとして保存すると、そのモジュールコードが結果のテキストファイルの下部に表示されます。

Access MDB (または ADP) 内のすべての非データオブジェクトをテキストとして保存するルーチンを記述し、それをモジュールに入れ、そのモジュールを Access DB の開発バージョンに保持することができます。次に、ルーチンを実行して、ダンプされたコードを VSS にチェックインします。

Mitch Wheat が説明した Visual SourceSafe メソッドほど洗練されていない可能性がありますが、それはソースコードで何をしたいかによって異なります。私は MDB の複数のバージョンに固執する傾向があり、この方法を使用して、WinMerge などの差分ツールを使用してそれらの間でソースコードを比較します。開発ブランチ間で機能を移植するのに適しています。

また、フィールドやコントロールへのすべての参照を見つけられる場所に配置するのにも適しています。Access オブジェクトをテキスト定義として表示すると、これらの参照を非常に簡単に見つけることができます。

score 0 · Accepted Answer

0

彼の Q&A もご覧ください。

MS Access で複数のプログラマーと作業する

于 2008-11-03T05:30:44.020 に答える

c# - MSAccessDBからのソースコードの抽出

4 に答える 4

Related

Reference