当前位置:网站首页>sqlHelper的增删改查
sqlHelper的增删改查
2022-07-07 18:44:00 【全栈程序员站长】
大家好,又见面了,我是全栈君。
当一件事情被反复做了多次后。会想找一种办法来取代自己去做这个反复的动作。
敲代码也一样。
在程序中。对于反复的部分。假设是全然同样,那我们就会想着将其写成一个方法(过程、函数),放在一个具有权限的需求者都可以得着的地儿。
假设需求者在同一项目中。那么就把这种方法写成一个类。假设需求者在同一类中。那么就在本类中单独建一个方法写它。将同样的东西抽象出来。供多用户调用,就是用的抽象的思想。
不论什么一个系统,都会涉及数据的传输、操作。而数据的操作概括起来不外乎增删改查(CURD),如今的系统随着使用者的增多,越来越多的用户操作,大数据频繁操作。
假设採用原来的方式来写。复杂的系统会造成大量赘余的代码。
在类上方加入两条引用:
Imports System.Data.SqlClient '引用SQL数据库连接
Imports System.Configuration '引用配置文件
建立一个操作数据库的SQLHelper类,
Public Class SQLHelper
'获取配置文件里的连接字符串
Private ReadOnly strSQLConnection As String = ConfigurationManager.AppSettings("sqlConcectStr")
'定义连接
Dim connSQL As SqlConnection = New SqlConnection(strSQLConnection)
'定义cmd命令
Dim cmdSQL As New SqlCommand
' ///<summary>
' ///depiction:<该方法是sqlhelper类的初始化>
' ///</summary>
Public Sub New()
connSQL = New SqlConnection(strSQLConnection)
End Sub
'' ///<summary>
'' ///depiction:<该方法是关闭数据库的连接>
'' ///<summary>
Private Sub CloseSQLConnection()
'推断数据库连接对象状态是否为断开。假设还没有断,则断开
If connSQL.State <> ConnectionState.Closed Then
connSQL.Close()
End If
End Sub
' ///<summary>
' ///depiction:<该方法是关闭数据库命令>
' ///</summary>
Private Sub CloseSQLCommand()
'假设命令存在。则关闭
If Not IsNothing(cmdSQL) Then
cmdSQL.Dispose() '销毁命令
cmdSQL = Nothing
End If
End Sub
'///<summary>
''//运行增删改三个操作。(有參)返回值为Boolean类型,确认是否运行成功
'///</summary>
' ///<param name="strSql">须要运行语句。通常是Sql语句,也有存储过程</param>
' ///<param name="cmdType">推断Sql语句的类型,一般都不是存储过程</param>
' ///<returns>
' ///<返回Boolean,成功为true。否则为false>
' ///</returns>
Public Function ExecuteAddDelUpdate(ByVal strSql As String, ByVal cmdType As CommandType, ByVal sqlParams As SqlParameter()) As Boolean
'用传进的參数填充本类自己的cmd对象
cmdSQL.Parameters.AddRange(sqlParams) '參数传入
cmdSQL.CommandType = cmdType '
cmdSQL.Connection = connSQL '连接
cmdSQL.CommandText = strSql '查询语句
Try
connSQL.Open() '打开连接
Return cmdSQL.ExecuteNonQuery() '运行操作
cmdSQL.Parameters.Clear() '清除參数
Catch ex As Exception
Return False
Finally
Call CloseSQLConnection() '关闭连接
Call CloseSQLCommand() '结束命令
End Try
End Function
'///<summary>
'///运行增删改三个操作,(无參)返回值为Boolean类型,确认是否运行成功
''///</summary>
'///<param name="strSql">须要运行语句。通常是Sql语句,也有存储过程</param>
' ///<returns>
' ///<返回Boolean类型。成功为true,否则为false>
'///</returns>
Public Function ExecuteAddDelUpdate(ByVal strSql As String, ByVal cmdType As CommandType) As Boolean
'用传进的參数填充类自己的cmd对象
cmdSQL.CommandType = cmdType '将
cmdSQL.Connection = connSQL '建立连接
cmdSQL.CommandText = strSql '设置查询语句
Try
connSQL.Open() '打开连接
Return cmdSQL.ExecuteNonQuery() '返回sql运行后受影响的行数
Catch ex As Exception
Return False
Finally
Call CloseSQLConnection() '关闭连接
Call CloseSQLCommand() '结束命令
End Try
End Function
'///<summary>
''///运行查询操作,(有參)返回值为DataTable类型
'///</summary>
' ///<param name="strSql">须要运行语句。通常是Sql语句。也有存储过程</param>
'' ///<param name="cmdType">推断Sql语句的类型。一般都不是存储过程</param>
' ///<returns>
' ///<返回表>
' ///</returns>
Public Function ExecuteSelect(ByVal strSql As String, ByVal cmdType As CommandType, ByVal sqlParams As SqlParameter()) As DataTable
Dim sqlAdapter As SqlDataAdapter
Dim dtSQL As New DataTable
Dim dsSQL As New DataSet
'用传进的參数填充本类自己的cmd对象
cmdSQL.Parameters.AddRange(sqlParams) '传入參数
cmdSQL.CommandType = cmdType
cmdSQL.Connection = connSQL '建立连接
cmdSQL.CommandText = strSql '查询语句
sqlAdapter = New SqlDataAdapter(cmdSQL) '实例化Adapter
Try
sqlAdapter.Fill(dsSQL) '用Adater将DataSet填充
dtSQL = dsSQL.Tables(0) 'DataTable为DataSet的第一个表
cmdSQL.Parameters.Clear() '清除參数
Catch ex As Exception
MsgBox("查询失败", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告")
Finally
Call CloseSQLCommand()
End Try
Return dtSQL
End Function
'///<summary>
''//运行查询操作,(无參)返回值为DataTable类型
''</summary>
' ///<param name="strSql">须要运行语句,通常是Sql语句,也有存储过程</param>
' ///<param name="cmdType">推断Sql语句的类型,一般都不是存储过程</param>
' ///<returns>
' ///<返回表>
' ///</returns>
Public Function ExecuteSelect(ByVal strSql As String, ByVal cmdType As CommandType) As DataTable
Dim sqlAdapter As SqlDataAdapter
Dim dtSQL As New DataTable
Dim dsSQL As New DataSet
'用传进的參数填充类自己的cmd对象
cmdSQL.CommandText = strSql
cmdSQL.CommandType = cmdType
cmdSQL.Connection = connSQL
sqlAdapter = New SqlDataAdapter(cmdSQL) '实例化Adapter
Try
sqlAdapter.Fill(dsSQL) '用Adaper将DataSet填充
dtSQL = dsSQL.Tables(0) 'DataTable为DataSet的第一个表
Catch ex As Exception
MsgBox("查询失败", CType(vbOKOnly + MsgBoxStyle.Exclamation, MsgBoxStyle), "警告")
Finally
Call CloseSQLCommand()
End Try
Return dtSQL
End Function
End Class
发布者:全栈程序员栈长,转载请注明出处:https://javaforall.cn/116442.html原文链接:https://javaforall.cn
边栏推荐
- 使用 BR 备份 TiDB 集群数据到 Azure Blob Storage
- Mrs offline data analysis: process OBS data through Flink job
- 使用高斯Redis实现二级索引
- 目前股票开户安全吗?可以直接网上开户吗。
- SQL注入报错注入函数图文详解
- POJ 1742 coins (monotone queue solution) [suggestions collection]
- Implement secondary index with Gaussian redis
- [award publicity] issue 22 publicity of the award list in June 2022: Community star selection | Newcomer Award | blog synchronization | recommendation Award
- 让这个CRMEB单商户微信商城系统火起来,太好用了!
- Jenkins 用户权限管理
猜你喜欢
Nebula Importer 数据导入实践
CodeSonar通过创新型静态分析增强软件可靠性
[MySQL - Basic] transactions
Static analysis of software defects codesonar 5.2 release
ERROR: 1064 (42000): You have an error in your SQL syntax; check the manual that corresponds to your
Mysql子查询关键字的使用方式(exists)
ERROR: 1064 (42000): You have an error in your SQL syntax; check the manual that corresponds to your
C语言 整型 和 浮点型 数据在内存中存储详解(内含原码反码补码,大小端存储等详解)
CodeSonar如何帮助无人机查找软件缺陷?
写了个 Markdown 命令行小工具,希望能提高园友们发文的效率!
随机推荐
H3C s7000/s7500e/10500 series post stack BFD detection configuration method
阿里云有奖体验:如何通过ECS挂载NAS文件系统
You want to kill a port process, but you can't find it in the service list. You can find this process and kill it through the command line to reduce restarting the computer and find the root cause of
寫一下跳錶
深度学习模型压缩与加速技术(七):混合方式
AADL inspector fault tree safety analysis module
【网络原理的概念】
Spark 判断DF为空
【OpenCV 例程200篇】223. 特征提取之多边形拟合(cv.approxPolyDP)
程序猿赚的那点钱算个P啊!
软件缺陷静态分析 CodeSonar 5.2 新版发布
目标:不排斥 yaml 语法。争取快速上手
使用 BR 备份 TiDB 集群数据到 Azure Blob Storage
Implement secondary index with Gaussian redis
Codesonar Webinar
【解决】package ‘xxxx‘ is not in GOROOT
让这个CRMEB单商户微信商城系统火起来,太好用了!
凌云出海记 | 易点天下&华为云:推动中国电商企业品牌全球化
神兵利器——敏感文件发现工具
Micro service remote debug, nocalhost + rainbow micro service development second bullet