投稿者 熊造  (社会人) 投稿日時 2009/2/24 01:46:22
ReleaseホルダーやDebugホルダーのなかでは問題なく動くのですが、デスクトップなど他の場所に
移して実行するとエラーとなってしまいます。
DBはAccessを使用しています。 どなたか教えていただけませんでしょうか

System.IO.FileNotFoundException: ファイルまたはアセンブリ 'Interop.ADODB, Version=2.8.0.0, Culture=neutral, PublicKeyToken=null'、またはその依存関係の 1 つが読み込めませんでした。指定されたファイルが見つかりません。
ファイル名 'Interop.ADODB, Version=2.8.0.0, Culture=neutral, PublicKeyToken=null' です。
   場所 在庫受払表.frm在庫受払表.ID作成()
   場所 在庫受払表.frm在庫受払表.btn表示_Click(Object sender, EventArgs e)

ID作成()の内容は並べ替えをして番号をつけているだけです。
        Dim db As New ADODB.Connection
        Dim tb As ADODB.Recordset
        Dim mySQL As String = ""
        Dim Ct As Integer

        db.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\****\在庫受払.mdb")
        tb = New ADODB.Recordset

        mySQL = "SELECT 日付,取引区分,ID FROM T_在庫受払表 ORDER BY 日付,取引区分 "

        tb.Open(mySQL, db, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)
        Ct = 0
        Do Until tb.EOF
            Ct = Ct + 1
            tb.Fields("ID").Value = Ct
            tb.Update()
            tb.MoveNext()
        Loop

        tb.Close()
        db.Close()