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

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

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

Re[3]: データベース更新

分類:[.NET 全般]　

VB2008です

以下のプログラムでデータグリッドビュー上では行の削除を
行うことができるようになったのですが、
データベース上にも反映させるにはどう改善したらよいのでしょうか？

''' -------------------------------------
'''
''' 削除ボタンの処理
'''
''' --------------------------------------
Private Sub sakuzyo_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sakuzyo_btn.Click

For Each row As DataGridViewRow In DataGridView.SelectedRows
DataGridView.Rows.Remove(row)

Next

End Sub

Private Sub DataGridView_UserDeletingRow(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowCancelEventArgs) Handles DataGridView.UserDeletingRow

If (Not e.Row.IsNewRow) Then

Dim response As DialogResult = _
MessageBox.Show( _
"Are you sure you want to delete this row?", _
"Delete row?", _
MessageBoxButtons.YesNo, _
MessageBoxIcon.Question, _
MessageBoxDefaultButton.Button2)
If (response = DialogResult.No) Then
e.Cancel = True

End If
End If

End Sub

■No58915 (ｊｒｋさん) に返信
> VB2008です
> データベース上にも反映させるにはどう改善したらよいのでしょうか？

データベースの接続や読み取りは出来ているのでしょうか？

データベースの更新は幾つか方法があります。参考リンクだけ提示しておきます。
※提示したリンク先のデータベースは統一性はありません、あくまで文法的な参考として。

DataAdapter によるデータソースの更新
http://msdn.microsoft.com/ja-jp/library/33y2221y.aspx#Y1369

BindingSourceを使用してのデータベース更新
http://noccinet.blog57.fc2.com/blog-entry-2.html

ExecuteNonQueryを使用してのデータベース更新
http://homepage1.nifty.com/rucio/main/VBdotNet/Database/Database3.htm

Googleブックス　プレビューで読める範囲
VB.NET+SQL Server データベースアプリ作成考え方のキモ: DB職人が教える
http://bit.ly/mHB2Ss

接続はできています。
登録処理はできますので。

以下のようにしてみたのですが、またDBの更新ができません。
どこがおかしいのでしょうか。

''' -------------------------------------
'''
''' 削除ボタンの処理
'''
''' --------------------------------------
Private Sub sakuzyo_btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sakuzyo_btn.Click

''Me.DataGridView.Rows.RemoveAt(Me.DataGridView.CurrentCell.RowIndex)

Dim connStr As String = "Data Source = OWNER-PC\SQLEXPRESS; Initial Catalog = kakeibo; Integrated Security = True"

Dim sql As String = "SELECT * FROM Table_1"
Dim conn As SqlClient.SqlConnection = New SqlClient.SqlConnection(connStr)

Dim comm As SqlClient.SqlCommand = New SqlClient.SqlCommand(sql, conn)
Dim dataadapter As SqlClient.SqlDataAdapter = New SqlClient.SqlDataAdapter(comm)

Dim ds As DataSet = New DataSet()

conn.Open()
dataadapter.Fill(ds, "Table_1")
conn.Close()
DataGridView.DataSource = ds
DataGridView.DataMember = "Table_1"

Dim sqlCmdBuilder As New SqlClient.SqlCommandBuilder(dataadapter)
sqlCmdBuilder.GetUpdateCommand()
dataadapter.Update(ds.Tables("Table_1"))

End Sub

■No58920 (ｊｒｋさん) に返信

削除ボタンイベントに読み込みから更新処理まで書いたら、そりゃ削除されませんよ。
読み込み部分と更新処理を分離させないと。

dataadapterは、フォームのフィールド変数に定義する

Me.DataGridView.Rows.RemoveAt(Me.DataGridView.CurrentCell.RowIndex)
Dim sqlCmdBuilder As New SqlClient.SqlCommandBuilder(dataadapter)
sqlCmdBuilder.GetUpdateCommand()
dataadapter.Update(ds.Tables("Table_1"))

参考
http://blog.livedoor.jp/akf0/archives/51536291.html

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

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

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

Re[3]: データベース更新

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