データグッドビュー編集後のエラーについて

質問

ＶＢ初心者です。

(1)フォームロード時にアクセスのデータベースにアクセスし、データグリッドビューに表示
(2)フォーム上のデータグリッドビューを編集
(3)データベースに登録ボタン押下すると、フォーム上にあるデータグリッドビューをアクセスのデータベースに反映（update）
というプログラムを作成中ですが、データベースに登録ボタンを押下すると「オブジェクト参照がオブジェクト インスタンスに設定されていません。」とのエラーが出ます。

ネットで色々調べたのですが、よくわかりませんでした。
このエラー内容が分かる方、ご教示の程よろしくお願いします。
ＰＣ環境はWINXP+VS2008です。

Imports System.IO
Imports System.Data.OleDb

Public Class Form1
Dim dAdp As OleDb.OleDbDataAdapter
Dim dSet As DataSet = New DataSet("T_資料")

Public Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'▼フォームロード時の処理
Dim cn1 As New OleDb.OleDbConnection("Provider=""Microsoft.Jet.OLEDB.4.0"";Data Source=" & Application.StartupPath & "\登録.mdb;")
Dim cmd1 As New OleDb.OleDbCommand("SELECT * FROM T_資料", cn1)
cn1.Open()
Dim dAdp As OleDb.OleDbDataAdapter

dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM T_資料", cn1)
dAdp.Fill(dSet, "T_資料")
DataGridView1.DataSource = dSet.Tables("T_資料")

End Sub

Public Sub cmd_Db_reg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Db_reg.Click

'▼「データベースに登録」ボタンを押下したときの処理
Try

Dim adapter As New tourokuDataSetTableAdapters.T_資料TableAdapter()
dAdp.Update(dSet, "T_資料")
MessageBox.Show("更新に成功しました。")

Catch ex As Exception
MessageBox.Show("更新に失敗しました。" + vbCr + ex.Message)
End Try

End Sub
End Class

回答No.2

angel_Z · ベストアンサー

こんにちは。

これではどうですか？

Imports System.IO
Imports System.Data
Imports System.Windows.Forms

Public Class Form1
Private dAdp As OleDb.OleDbDataAdapter
Private dSet As DataSet = New DataSet("T_資料")

Public Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

'▼フォームロード時の処理
Dim cn1 As New OleDb.OleDbConnection("Provider=""Microsoft.Jet.OLEDB.4.0"";Data Source=" & Application.StartupPath & "\登録.mdb;")
Dim cmd1 As New OleDb.OleDbCommand("SELECT * FROM T_資料", cn1)
cn1.Open()

dAdp = New OleDb.OleDbDataAdapter("SELECT * FROM T_資料", cn1)
dAdp.Fill(dSet, "T_資料")
Me.DataGridView1.DataSource = dSet.Tables("T_資料")
cn1.Close()

End Sub

Public Sub cmd_Db_reg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_Db_reg.Click

'▼「データベースに登録」ボタンを押下したときの処理
Try
Dim Builder As New OleDb.OleDbCommandBuilder(dAdp)
Builder.GetUpdateCommand()
dAdp.Update(dSet.Tables("T_資料"))
MessageBox.Show("更新に成功しました。")

Catch ex As Exception
MessageBox.Show("更新に失敗しました。" + vbCr + ex.Message)
End Try

End Sub
End Class

お礼

無事にデータベースの更新ができました。
助かりました。ありがとうございました。

回答No.1

Wr5

>Dim cn1 As New OleDb.OleDbConnection("Provider=""Microsoft.Jet.OLEDB.4.0"";Data Source=" & Application.StartupPath & "\登録.mdb;")
>Dim cmd1 As New OleDb.OleDbCommand("SELECT * FROM T_資料", cn1)
>cn1.Open()
>Dim dAdp As OleDb.OleDbDataAdapter

このdAdpって、ローカル変数だったりしないですか？

お礼

アドバイスありがとうございます。
無事データベースの更新が行えました。

補足

早々のご回答ありがとうございます。

グローバル変数に変更したら、「オブジェクト参照がオブジェクト インスタンスに設定されていません。」というエラーは無くなりましたが、「更新には、変更された行を含む DataRow コレクションが渡されたとき、有効な UpdateCommand が必要です。」というエラーが出てしまいました・・・

Public Class Form1
Public dAdp As OleDb.OleDbDataAdapter
Public dSet As DataSet = New DataSet("T_資料")