在VB.NET中使用SQLSUGAR

由纪小年 · 2022/09/02

本文使用SqlSugarScope 单例模式，新建一个VB.NET的窗体项目，添加NuGet程序包

搜索SQLSUGAR然后在右侧点击安装，可以根据项目的.NET版本选择SQLSUGAR的版本。

在Form1中添加三个按钮，把如下程序复制进程序。

需要注意，在SQLSever中要创建一个名为Student的表，表格式要跟Class Student中的配置保持一致。

Imports SqlSugar

Public Class Form1
    ''' <summary>
    ''' 插入
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim list = SqlSugarHelper.Db.Queryable(Of Student)().ToList()

        SqlSugarHelper.Db.Insertable(New Student With {.SchoolId = 1, .Name = "jack"}).ExecuteCommand()
    End Sub
    ''' <summary>
    ''' 更新
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        SqlSugarHelper.Db.Updateable(New Student With {.Id = 1, .SchoolId = 2, .Name = "jack2"}).ExecuteCommand()
    End Sub
    ''' <summary>
    ''' 删除
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        SqlSugarHelper.Db.Deleteable(Of Student)().Where(Function(it) it.Id = 1).ExecuteCommand()
    End Sub
End Class

Public Class Student
    <SugarColumn(IsPrimaryKey:=True, IsIdentity:=True)>
    Public Property Id As Integer
    Public Property SchoolId As Integer?
    Public Property Name As String
End Class

Public Class SqlSugarHelper
    Public Shared Db As SqlSugarScope = New SqlSugarScope(New ConnectionConfig() With {
        .ConnectionString = "Data Source=SQLEXPRESS; Initial Catalog=King; User Id=sa; Password=123;",
        .DbType = DbType.SqlServer,
        .IsAutoCloseConnection = True
    }, Function(db)
           db.Aop.OnLogExecuting = Function(sql, pars)
                                       Console.WriteLine(sql)
                                   End Function
       End Function)
End Class

Imports SqlSugar

Public Class Form1

''' <summary>

''' 插入

''' </summary>

''' <param name="sender"></param>

''' <param name="e"></param>

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim list = SqlSugarHelper.Db.Queryable(Of Student)().ToList()

SqlSugarHelper.Db.Insertable(New Student With {.SchoolId = 1, .Name = "jack"}).ExecuteCommand()

End Sub

''' <summary>

''' 更新

''' </summary>

''' <param name="sender"></param>

''' <param name="e"></param>

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

SqlSugarHelper.Db.Updateable(New Student With {.Id = 1, .SchoolId = 2, .Name = "jack2"}).ExecuteCommand()

End Sub

''' <summary>

''' 删除

''' </summary>

''' <param name="sender"></param>

''' <param name="e"></param>

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

SqlSugarHelper.Db.Deleteable(Of Student)().Where(Function(it) it.Id = 1).ExecuteCommand()

End Sub

End Class

Public Class Student

<SugarColumn(IsPrimaryKey:=True, IsIdentity:=True)>

Public Property Id As Integer

Public Property SchoolId As Integer?

Public Property Name As String

End Class

Public Class SqlSugarHelper

Public Shared Db As SqlSugarScope = New SqlSugarScope(New ConnectionConfig() With {

.ConnectionString = "Data Source=SQLEXPRESS; Initial Catalog=King; User Id=sa; Password=123;",

.DbType = DbType.SqlServer,

.IsAutoCloseConnection = True

}, Function(db)

db.Aop.OnLogExecuting = Function(sql, pars)

Console.WriteLine(sql)

End Function

End Function)

End Class

发表回复取消回复

此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据。

西北地区扭扭车总冠军发表在 FactoryTalk View SE 版本 15.00.00 的新增功能和增强功能2024/10/15
坐等大佬D盘更新，祝大佬全家福寿安康
shuai 发表在给我留言2024/10/12
有公众号之类的吗，之前这个网站打不开了
Node-RED核心节点Nodes – 纪小年发表在 Node-RED处理消息2024/06/08
[…] 关于使用Change…
Node-RED核心节点Nodes – 纪小年发表在 Node-RED编写Functions2024/06/08
[…] 关于使用Functi…
纪小年发表在在罗克韦尔AB官网免费下载软件(申请下载码)2024/04/24
谢谢提醒，已删 :)

在VB.NET中使用SQLSUGAR

您可能还喜欢...

发表回复取消回复

最新文章

最新评论

标签云

浏览次数

在VB.NET中使用SQLSUGAR

您可能还喜欢...

VB编写圆角无边框窗体

[吐血奉献]VB与三菱FX系列PLC通信模块

使用Visual Studio开发WINCC或FTView SE的.Net控件

发表回复 取消回复

最新文章

最新评论

标签云

浏览次数

发表回复取消回复