Visual Basic 中学校 掲示板 投稿の管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
エラーの原因がわかりません
この投稿へのリンク
https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=8990#CommentId10829
この投稿の削除
削除パスワード
削除する
コメント本文
投稿者
熊造
 (社会人)
投稿日時
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()