DataAdapter.insertCommand vb.netでデータベースに新しい行を追加できません

Question

DataAdapter.InsertCommandコマンドを使用してデータベースに新しいレコードを追加しようとしました。それはここでは、データベースに

を新しいレコードを挿入しません。しかし、なぜ私は知らない私のコードは次のとおりです。

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click 
    Dim cnn As New OleDb.OleDbConnection 
    Dim cmd As New OleDb.OleDbCommand 
    Dim da As New OleDb.OleDbDataAdapter 
    Dim ds As New DataSet 
    Dim dt As New DataTable 
    cnn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\1_Project\Project_of_VB_Net\AccessDatabase\StudentDatabase.accdb" 
    cmd.Connection = cnn 
    cmd.CommandText = "INSERT INTO StudentData(StudentID) VALUES (@studentid)" 
    cmd.Parameters.AddWithValue("@studentid", "123") 
    Try 
     cnn.Open() 
     da.InsertCommand = cmd 
    Catch ex As Exception 
     Console.WriteLine(ex.Message) 
    Finally 
     cnn.Close() 
    End Try 
End Sub 

私はそれで間違っているものを見つける助けてください？

Answer 1

私はすべて、何がうまくいくのかに賛成しています。私は上記の解決策を見ています。ただし、データアダプタを使用する利点は、データテーブルのCRUD操作に必要なすべてのSQLコマンドをラップすることです。独自のコマンドを設定することも、Visual Studioでsqlcommandbuilderを使用して自動的に設定することもできます。アダプターが設定した後、次にあなたがする必要があるのは、この

のようなもの

Dim myds As New DataSet() 
    Dim mytable as New datatable() 
    myds.Tables.Add(mytable) 
    Dim myconstr As String = "ConnectionStringtoDataBase" 
    Dim myconn As New SqlConnection(myconstr) 

    Dim da as new SqlDataAdapter(“SELECT * FROM StudentTable”,cnn) 
    Dim mycb As New SqlCommandBuilder(da) 
    da.Fill(mytable) 
    Dim myrow As DataRow = mytable.NewRow() 
    myrow("ID") = "thestudentid" 
    myrow("StudentName") = "John doe" 
    myrow("StudentID") = 12345 
    myrow("StudentClass") = "VB 101" 
    mytable.Rows.Add(myrow) 
    da.Update(mytable) 

あなたの選択コマンドは、一つのテーブルであればCommandBuilderは、自動的に「そうでなければ、（挿入、更新を追加し、データアダプタにコマンドを削除しますです手動で設定する必要があります）。