SqlCommandBuilder VB.NET

      2017/07/13

SqlCommandBuilderはコマンドを自動で作成してくれます。
コマンドとはSelectCommandとか手動で作成してました。

ソース
Imports System.Data.SqlClient

Public Class Form1
Dim cn As New SqlConnection(
"Data Source=(local)\SQL;" +
"Initial Catalog=ADO;" +
"Integrated Security=True;Pooling=False")
Dim table As New DataTable()
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim adapter As New SqlDataAdapter()
adapter.SelectCommand = New SqlCommand()
adapter.SelectCommand.CommandText = "select * from meibo "

adapter.SelectCommand.Connection = cn

adapter.Fill(table)
DataGridView1.DataSource = table

Dim dr As DataRow = table.NewRow
dr("number") = CInt(TextBox1.Text)
dr("name") = TextBox2.Text
dr("部署コード") = TextBox3.Text
table.Rows.Add(dr)

Dim table2 As New DataTable()
table2 = table.GetChanges(DataRowState.Added)

Dim cmdbuil As New SqlCommandBuilder
cmdbuil.DataAdapter = adapter
adapter.Update(table2)

End Sub

End Class

何となく形になってきました。
SqlCommandBuilderは万能ではなく結合したテーブルや
主キーがないテーブルはダメみたいです。

PR



 - ADO.NET

Translate »