タイトル : 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,」という表示でエラーが内容が表示され、最大値を取ってくることができません。 どうすれば解決するのでしょうか すみません。宜しくお願いいたします。 |