Q&A
「新規登録時にDelFlgが０のデータを10件まで」というのは、何か画面があり、そこで新規登録という作業ができるということですか？そのとき、一気に11件やろうとしたときにエラーにしたいということですか？その場合、10件までは登録できて、1件は登録しないような動作ですか？また、「新規追加時 一部抜粋」で挙げて頂いているInsert文に、DelFlgと思われる列が見当たらないのですがdtNow.ToString()がDelFlgですか？
###前提・実現したいこと
新規登録時にDelFlgが０のデータを10件まで登録可能という上限設定がわかりません。
一件ずつデータを入れていきます
10件までは登録できて、11件は登録しないような動作をしたいです
【状態】
DelFlg =0 削除されていない
DelFlg =1 削除されている
【できていること】
・新規追加時にテキストに入力されている値をデータベースへ追加
・採番可能
・削除を実行するとDelFlgが０から１に変更になる
データが行ごと削除されるわけではない
【新規追加時】
UserID UserName DelFlg
１ A ０
２ B ０
【削除時】
UserID UserName DelFlg
１ A １ ← UPDATEでDelFlgが０から１へ変更
２ B ０
このような画面です
↓関係ないと思いますが…
###一覧表示処理コード DelFlgが０のものしか表示しない Private Sub 一覧表示_Click(sender As System.Object, e As System.EventArgs) Handles 一覧表示.Click Dim strSQL As String Dim SQLDA As SqlClient.SqlDataAdapter Dim SQLDS As New DataSet() 'SQL文 strSQL = "SELECT * FROM テーブル名 WHERE DelFlg = 0 " SQLDA = New SqlClient.SqlDataAdapter(strSQL, strConnectSQL) 'データセットに格納 SQLDA.Fill(SQLDS, "TEST") Me.DataGridView1.DataSource = SQLDS.Tables("TEST") End Sub
###新規追加時 一部抜粋 'SQL文 strSQL2 = "SELECT MAX(UserCd) AS UserCdMax FROM M_User_Mizutani " ～～～省略～～～～ Dim ID As Integer = 0 If dtRow("UserCdMax") Is DBNull.Value Then ' NULL ID = 0 Else ' NOT NULL ID = CInt(dtRow("UserCdMax")) End If strSQL = "INSERT INTO テーブル名 VALUES " & _ " (" & ID + 1 & ", " & _ " '" & Text名前.Text & "' , '" & Textカナ.Text & "', " & _ " '" & Text郵便.Text & "', '" & Text住所１.Text & "', " & _ " '" & Text住所２.Text & "', '" & Text住所３.Text & "', " & _ " '" & Text住所１カナ.Text & "', '" & Text住所２カナ.Text & "', " & _ " '" & Text住所３カナ.Text & "', " & Text電話番号.Text & ", " & _ " " & TextFAX番号.Text & ", " & _ " '" & Textメールアドレス.Text & "', " & _ " '" & Text誕生日.Text & "', " & _ " '**ここにDelFlgの値が入ります 初期値０**','" & dtNow.ToString() & "', " & _ "'' )" コード
###試したこと
DelFlgが０のものを数えればいいと考えましたがどのように書けばいいのかわかりませんでした。
COUNT関数
###補足情報(言語/FW/ツール等のバージョンなど)
言語 VB.NET
ツール Visual Studio 2010
SQLServer
回答2件
0
修正拝見しました。
色々なやり方があるかと思うのですが、このケースで一番シンプルなのは、住所録画面の初期表示時に新規追加した回数を格納する変数を用意し、「新規登録」ボタンがクリックされるたびにカウントアップしていき、10件になったら「新規登録」ボタンクリック時に「これ以上は追加できません。一度画面を閉じて下さい」というようなメッセージボックスを表示するような方法でしょうか。
（一度画面を閉じたらまた新規登録できるという理解で良いのでしょうか？）
COUNT関数というキーワードが出てきているあたり、データベースのデータを見て判断したいと考えていらっしゃるかもしれないのですがそこに何か理由はありますか？
投稿2017/04/26 07:50
総合スコア1947
回答ありがとうございます
（一度画面を閉じたらまた新規登録できるという理解で良いのでしょうか？）
→データベースにデータを追加するので一度登録したら画面を閉じてもデータベース上で情報が保持されているという感じです
VBからSQLServerに接続しているのでデータベースが必要不可欠といいますか
初心者なのでうまく説明できているかわかりませんが、よろしくお願いいたします。
>データベースにデータを追加するので一度登録したら画面を閉じてもデータベース上で情報が保持されているという感じです
そこは理解できています。
何か噛み合っていないように感じています。
０．画面を開く
１．新規登録する（1回目）
２．新規登録する（2回目）
・・・
１０．新規登録する（10回目）
１１．新規登録する → ここで、10件登録済みなのでエラーにする
１２．この場合、さらに11件以降を登録したければ、１度画面を閉じる（画面を閉じても登録した10件はデータベースに登録されている）
１３．画面を再度開く
１４．新規登録する（11回目）
・・・
ということでLATEさんのやりたいことと私の認識は合っていますか？
度々すいません。
１０．新規登録する（10回目）
１１．新規登録する → ここで、10件登録済みなのでエラーにする
ここまでは自分がしたいことと同じです
１２．更に登録したければ、10件あるデータを削除して件数を減らす
１３．新規登録する
って流れです。
承知しました。その場合、当初の案（初期化時に登録した回数をカウントする変数を作る）だと問題があるのでしょうか？
問題があるなら、改善案を考えてみます。（私は問題点が分かっていません）
もし新入社員が100人いたら、10件までしか登録できなければどうするのだろうと思っています。
もしかして、「1人につき」住所が10件までしか登録できないというような制御をかけたいということですか？
何度も申し訳ございません
初期化時に登録した回数をカウントする変数を作る
という案で問題ありません。
学習のために作成しているので100人いたらというのは全く考えておりません
とりあえずは、10件まで登録できるようにしたいという感じです。
そういうことですか、了解しました。
がんばってみてください！
0
自己解決
これで解決しました。
一部抜粋
'```
sql作る
strSQL = "SELECT COUNT(DelFlg) as cntDelflg FROM テーブル名 WHERE DelFlg = 0 "
'SQL実行（Selectする） SQLDA = New SqlClient.SqlDataAdapter(strSQL, strConnectSQL) 'datatableへセット SQLDA.Fill(dtSet1, "DelFlg") Datb = dtSet1.Tables("DelFlg") dtRow1 = Datb.Rows(0) If dtRow1("cntDelflg") >= 10 Then MsgBox("これ以上追加できません。")
投稿2017/04/27 07:41
総合スコア13
あなたの回答
tips
プレビュー
