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

タイトル sqlの実行
投稿日: 2005/09/22(Thu) 12:09
投稿者
[OSのVer]:Windows 2000   [VBのVer]:VB.NET   2003

連日お世話になっています。
ご教授賜り事があり、書き込みいたしました。

フォームで社員の登録等を行うプログラムを作成しています。


各項目を入力し、登録ボタンをおしたら、

自動採番のチェックが済みならば T_社員情報テーブルから
社員コードの最大値をsql文でとってきて その最大値に+1をして
フォームの社員番号項目に表示させるようにしています。
コードは下記です。

      Dim max As Integer
            cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                "データベース"
            cn.Open()

                If jidou.Checked = True Then            '自動採番チェック済み

                    'T_社員情報 社員No ← 社員No最大値 + 1
                    sql = ""
                    sql = "SELECT count(*) FROM T_社員情報"

                    oCommand = New OleDb.OleDbCommand(sql, cn)

                
                    max = CInt(oCommand.ExecuteScalar())
                    max = max + 1

    ・・・

例外エラーは MsgBox(Err.Number & "," & Err.Description)  でエラー番号
エラーメッセージで取るようにしてい
ます。

max = CInt(oCommand.ExecuteScalar()) ←ここでエラーになります。

そして「0,」という表示でエラーが内容が表示され、最大値を取ってくることができません。
どうすれば解決するのでしょうか

すみません。宜しくお願いいたします。

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

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