基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

MVC5增删改查实例

Imports System.Web.Mvc

Imports System.Data.SqlClient

Public Class CRUDController
    Inherits Controller

    ' GET: /CRUD
    Function Index() As ActionResult
        Using conn As New SqlConnection(System.Configuration.ConfigurationManager.
    ConnectionStrings("ADOConstr").ConnectionString)
            Using da As New SqlDataAdapter("select * from tb_user", conn)
                Using ds As New DataSet
                    da.Fill(ds)
                    Dim list As New List(Of UserViewModel)
                    For Each row As DataRow In ds.Tables(0).Rows
                        list.Add(New UserViewModel With {.EMail = row("EMail").ToString(), .Name = row("Name").ToString(), .ID = row("ID").ToString(), .Telephone = row("Telephone").ToString()})
                    Next
                    Return View(list)
                End Using
            End Using
        End Using
    End Function

    ' GET: /CRUD/Details/5
    Function Details(ByVal id As Integer) As ActionResult
        Using conn As New SqlConnection(System.Configuration.ConfigurationManager.
    ConnectionStrings("ADOConstr").ConnectionString)
            Using da As New SqlDataAdapter("select * from tb_user where id = " & id.ToString(), conn)
                Using ds As New DataSet
                    da.Fill(ds)
                    Dim row = ds.Tables(0).Rows(0)
                    Dim m As New UserViewModel With {.EMail = row("EMail").ToString(), .Name = row("Name").ToString(), .ID = row("ID").ToString(), .Telephone = row("Telephone").ToString()}
                    Return View(m)
                End Using
            End Using
        End Using
    End Function

    ' GET: /CRUD/Create
    Function Create() As ActionResult
        Return View()
    End Function

    ' POST: /CRUD/Create
    <HttpPost()>
    Function Create(ByVal collection As FormCollection) As ActionResult
        Try
            ' TODO: Add insert logic here

            Return RedirectToAction("Index")
        Catch
            Return View()
        End Try
    End Function

    ' GET: /CRUD/Edit/5
    Function Edit(ByVal id As Integer) As ActionResult
        Return View()
    End Function

    ' POST: /CRUD/Edit/5
    <HttpPost()>
    Function Edit(ByVal id As Integer, ByVal collection As FormCollection) As ActionResult
        Try
            ' TODO: Add update logic here

            Return RedirectToAction("Index")
        Catch
            Return View()
        End Try
    End Function

    ' GET: /CRUD/Delete/5
    Function Delete(ByVal id As Integer) As ActionResult
        Using conn As New SqlConnection(System.Configuration.ConfigurationManager.
    ConnectionStrings("ADOConstr").ConnectionString)
            Using da As New SqlDataAdapter("select * from tb_user where id = " & id.ToString(), conn)
                Using ds As New DataSet
                    da.Fill(ds)
                    Dim row = ds.Tables(0).Rows(0)
                    Dim m As New UserViewModel With {.EMail = row("EMail").ToString(), .Name = row("Name").ToString(), .ID = row("ID").ToString(), .Telephone = row("Telephone").ToString()}
                    Return View(m)
                End Using
            End Using
        End Using
    End Function

    ' POST: /CRUD/Delete/5
    <HttpPost()>
    Function Delete(ByVal id As Integer, ByVal collection As FormCollection) As ActionResult
        Try
            ' TODO: Add delete logic here
            Using conn As New SqlConnection(System.Configuration.ConfigurationManager.
    ConnectionStrings("ADOConstr").ConnectionString)
                conn.Open()
                Using cmd As New SqlCommand("delete from tb_user where id = " & id.ToString(), conn)
                    cmd.ExecuteScalar()
                End Using
            End Using
            Return RedirectToAction("Index")
        Catch
            Return View()
        End Try
    End Function
End Class