tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]  [ワード検索]  [Home]

タイトル アプリケーションのコンポーネントで…例外が
投稿日: 2012/10/02(Tue) 13:23
投稿者タダシ
Visual Basic 2010
アクセスデータベースのあるテーブルからSUM関数を使用してデータの合計を表示させるPGを作っています。そこで以下のようなエラーが発生します。

アプリケーションのコンポーネントでハンドルされていない例外が発生しました。
[続行]をクリックすると、アプリケーションはこのエラーを無視し、続行しようとします。
[終了]をクリックすると、アプリケーションは直ちに終了します。

アセンブリ'AS受入管理システム, Version=1.0.0.8, Culture=neutral,
PublicKeyToken=null'から型
'ADODB.Fields ToInternal Fields Marshaler'を読み込めませんでした。

というエラーメッセージが出てきます。

コードは
lsSqlSum = "SELECT Sum(数量) AS 数量の合計 FROM TMP_AS受入検査品一覧"
lrsSum.Open(lsSqlSum, godDb, ADODB.CursorTypeEnum.adOpenDynamic,
ADODB.LockTypeEnum.adLockReadOnly)

If lrsSum.BOF = True Then
lblSuryo.Text = "数量: 0"
Else
lblSuryo.Text = "数量:" & Format(NzLng(lrsSum.Fields("数量の合計").Value), "#,##0")
End If

lrsSum.Close()

エラーが発生している部分は「lrsSum.Fields("数量の合計").Value」この部分になります。

自分の開発環境では特に問題なく動作するのですが、
インストールディスクを作成して、他のパソコンにインストールし、動作させるとこのエラーが発生します。

色々調べたのですが、よくわかりません。
誰かご存知の方がいらしたら教えて下さい。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。