VB 2010 （58）DataAdapter更插删（欠存储过程）

ngbshzhn

于 2020-04-24 08:47:31 发布

阅读量147

点赞数

分类专栏： # Visual Basic 2010 进阶

本文链接：https://blog.csdn.net/ngbshzhn/article/details/105722951

版权

本文详细介绍了如何使用VB 2010中的DataAdapter进行数据库的插入、删除和更新操作，包括直接操作和通过存储过程的方式。通过实例代码展示了数据适配器的用法，帮助开发者更好地理解数据访问技术。

摘要由CSDN通过智能技术生成

Imports System.Data.SqlClient
Public Class Form1
    Dim insertUpdateParams() As String = _
                  {"@au_id", "@au_lname", "@au_fname", "@phone", "@address", "@city", "@state", "@zip", "@contract"}
    '连接数据库
    Private Function GetConnection() As SqlConnection
        Return New SqlConnection(My.Settings.pubsConnectionString)
    End Function

    '插入过程
    Private Sub testDataAdapterInsertCommand()
        Dim insertCommand As SqlCommand = BuildSqlCommand("usp_authors_Insert", insertUpdateParams)

        Dim adapter As SqlDataAdapter = New SqlDataAdapter
        adapter.InsertCommand = insertCommand

        Dim reader As SqlDataReader = GetSqlReader()
        Dim table As DataTable = GetTableFromReader(reader)

        Dim row As DataRow = table.NewRow
        row("au_id") = "335-22-0707"
        row("au_fname") = "Foo"
        row("au_lname") = "deBar"
        row("Phone") = "800-555-1212"
        row("contract") = 0
        table.Rows.Add(row)

        adapter.Update(table.GetChanges)
    End Sub
    '更新
    Private Sub testDataAdapterUpdateCommand()
        Dim updateCommand As SqlCommand = Build