C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: オートナンバーについて

分類:[.NET 全般]　

お世話になっております。
現在VB２００５勉強中
デザイン　ボタン１　グリッド１　テキストボックス３　コンボボックス１
データ登録システム
下のプログラムにSQL文でつくった下のオートナンバーを入れたいのですがどこに宣言したらいいでしょうか？
　　　　　　　　　　SELECT MAX(IN_SYAINID)+1 FROM SYAIN
わかりずらい説明ですがお願いします。

Dim a As String

'ボタン１が押されたときのイベント
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim Cn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\starsystem.STARSYST-DE959A\デスクトップ\Sql_SS1.mdb")
Dim SQLCm As OleDbCommand = Cn.CreateCommand
'IF文で条件分岐
If ComboBox1.SelectedIndex = -1 Then
MsgBox("選択してください！")
End If
If Nothing = TextBox1.Text Then
MsgBox("名前を入力しなさい！")
End If
If Nothing = TextBox3.Text Then
MsgBox("一言入力しなさい！")
End If
If IsNumeric(TextBox2.Text) = False Then
MsgBox("数字を入力しなさい！")
TextBox2.Text = ""
Exit Sub
End If
' Select文で判定
Select Case ComboBox1.Text
Case "システム部"
a = "0"
Case "営業部"
a = "1"
Case "総務部"
a = "2"
End Select
'IF文、Select文の判定が通ったらデータの新規登録をする命令をSQLで
SQLCm.CommandText = "INSERT INTO SYAIN(IN_BUSYOID,FC_SYAIN,nennrei,hitokoto,IN_DELFLG) VALUES ('" & a & " ','" & TextBox1.Text & " '," & TextBox2.Text & ",'" & TextBox3.Text & "'," & 0 & ") "
Cn.Open()
SQLCm.ExecuteNonQuery()
Cn.Close()

Dim Adapter As New OleDbDataAdapter(SQLCm)
Dim Table As New DataTable
'グリッドに表示するSQL命令
SQLCm.CommandText = "SELECT BUSYO.FC_BUSYONAME, SYAIN.FC_SYAIN, SYAIN.nennrei, SYAIN.hitokoto FROM BUSYO INNER JOIN SYAIN ON BUSYO.IN_BUSYOID = SYAIN.IN_BUSYOID "
Adapter.Fill(Table)
DataGridView1.DataSource = Table
Adapter.Dispose()
SQLCm.Dispose()
Cn.Dispose()
'各ボックスの表示されている値を空にする
ComboBox1.Text = ""
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub

良く分かりませんが、とりあえずinsertした時に最新の番号を取得したいという意味で

>SQLCm.CommandText = "INSERT INTO SYAIN(IN_BUSYOID,FC_SYAIN,nennrei,hitokoto,IN_DELFLG) VALUES ('" & a >& " ','" & TextBox1.Text & " '," & TextBox2.Text & ",'" & TextBox3.Text & "'," & 0 & ")
SQLCm.CommandText = "INSERT INTO SYAIN(IN_BUSYOID,FC_SYAIN,nennrei,hitokoto,IN_DELFLG) VALUES ('" & a & " ','" & TextBox1.Text & " '," & TextBox2.Text & ",'" & TextBox3.Text & "'," & 0 & ");SELECT MAX(IN_SYAINID)+1 FROM SYAIN"

>SQLCm.ExecuteNonQuery()
Object result = SQLCm.ExecuteScalar();
int iSYAIN = Convert.ToInt32(result);

って感じ？

# IDENTITY制約付けてSELECT SCOPE_IDENTITY();の方がいいような気がしなくもないですが

■No25170 (ロックさん) に返信
> 良く分かりませんが、とりあえずinsertした時に最新の番号を取得したいという意味で
>
> >SQLCm.CommandText = "INSERT INTO SYAIN(IN_BUSYOID,FC_SYAIN,nennrei,hitokoto,IN_DELFLG) VALUES ('" & a >& " ','" & TextBox1.Text & " '," & TextBox2.Text & ",'" & TextBox3.Text & "'," & 0 & ")
> SQLCm.CommandText = "INSERT INTO SYAIN(IN_BUSYOID,FC_SYAIN,nennrei,hitokoto,IN_DELFLG) VALUES ('" & a & " ','" & TextBox1.Text & " '," & TextBox2.Text & ",'" & TextBox3.Text & "'," & 0 & ");SELECT MAX(IN_SYAINID)+1 FROM SYAIN"
>
> >SQLCm.ExecuteNonQuery()
> Object result = SQLCm.ExecuteScalar();
> int iSYAIN = Convert.ToInt32(result);
>
> って感じ？
>
> # IDENTITY制約付けてSELECT SCOPE_IDENTITY();の方がいいような気がしなくもないですが
お返事ありがとうございました
ロックさんのをもとに変数を作成して
インサートに当てはめてみたらできました
'SQLでオートナンバーを作成
SQLCm.CommandText = "SELECT MAX(IN_SYAINID)+1 FROM SYAIN"
Dim k As String
Cn.Open()
k = SQLCm.ExecuteScalar
Cn.Close()

'IF文、Select文の判定が通ったらデータの新規登録をする命令をSQLで
SQLCm.CommandText = "INSERT INTO SYAIN(IN_SYAINID,IN_BUSYOID,FC_SYAIN,nennrei,hitokoto,IN_DELFLG) VALUES (" & k & ",'" & a & " ','" & TextBox1.Text & " '," & TextBox2.Text & ",'" & TextBox3.Text & "'," & 0 & ")"
Cn.Open()
SQLCm.ExecuteNonQuery()
Cn.Close()
ありがとうございました
またおねがいいたします。

C# と VB.NET の質問掲示板

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト

Re[2]: オートナンバーについて

過去ログには書き込み不可