一个数据库操作的类.0.1 (vb.net)

原创 2004年08月19日 11:52:00

Public Class Daxecutor<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

    Private Connstr As String

    Private Conn As SqlClient.SqlConnection

    Private Rs As SqlClient.SqlDataReader

    Private Sqlstr As String

    Private Rcmd As SqlClient.SqlCommand

    Private Sb As New System.Text.StringBuilder

    Private Sqlpar As New SqlClient.SqlParameter

 

    Friend Sub New()

 

    End Sub

 

    '*******************************************************************

    '执行不返回sql

    Friend Sub Execute()

        Rcmd.Connection.Open()

        Rcmd.CommandText = Sqlstr

        Rcmd.ExecuteNonQuery()

    End Sub

 

    '*******************************************************************

    '执行单个返回值sql

    Friend Function GetSingleValue() As Object

        Rcmd.Connection.Open()

        Rcmd.CommandText = Sqlstr

        Return Rcmd.ExecuteScalar()

    End Function

 

    '*******************************************************************

    '执行结果集sql

    Friend Function GetQueryds() As SqlClient.SqlDataReader

        Rcmd.Connection.Open()

        Rcmd.CommandText = Sqlstr

        Rs = Rcmd.ExecuteReader(CommandBehavior.SingleResult)

        Return Rs

    End Function

    '*******************************************************************

    '构造参数

    Friend Overloads Sub Addpar(ByVal SqlPar As String, ByVal Valpar As String)

        Rcmd.Parameters.Add(SqlPar, Valpar)

    End Sub

 

    '*******************************************************************

    'sql语句属性

    Public WriteOnly Property Istext() As Byte

        Set(ByVal Value As Byte)

            If Value = 1 Then

                Rcmd.CommandType = CommandType.Text

            Else

                Rcmd.CommandType = CommandType.StoredProcedure

            End If

        End Set

    End Property

    '*******************************************************************

    'sql语句

    Public Property Sql() As String

        Get

            Return Sqlstr

        End Get

        Set(ByVal Value As String)

            Sqlstr = Value

        End Set

    End Property

 

    '*******************************************************************

    '启动数据库对象

    Friend Sub Open()

        Connstr = ConfigurationSettings.AppSettings("SQLConnString")

        Conn = New SqlClient.SqlConnection(Connstr)

        Rcmd = New SqlClient.SqlCommand(Sqlstr, Conn)

    End Sub

 

    '*******************************************************************

    '终止数据库对象

    Friend Sub Terminate()

        Conn.Close()

        Rcmd.Connection.Close()

        Conn = Nothing

        Rcmd = Nothing

    End Sub

End Class

 

用法一:返回单个值

        Dim Sql As New Daxecutor

        Dim User_t, Pass_t As String

        Dim ck As Object

        User_t = Username.Text

        Pass_t = Password.Text

        'Sqlstr = "select top 1 id from Datadmin_user where Auser='" & User_t & "' and Apass='" & Pass_t & "'"

        With Sql

            .Open()

            .Sql = "select top 1 id from Datadmin_user where Auser=@User_t and Apass=@Pass_t"

            .Istext = 1

            .Addpar("@User_t", User_t)

            .Addpar("@Pass_t", Pass_t)

            ck = .GetSingleValue()

            .Terminate()

        End With

        Sql = Nothing

 

用法二:插入操作

        Dim Sql As New Daxecutor

 

        With Sql

            .Open()

            .Sql = "insert into Npaper_articles (classtype,titles,content,Istop,Keywords,Keyperson) values (" _

                    & "@Classtypes," _

                    & "@Title," _

                    & "@contents," _

                    & "@Istops," _

                    & "@keyw," _

                    & "@keyp)"

            .Istext = 1

            .Addpar("@Classtypes", Classtypes)

            .Addpar("@Title", Title)

            .Addpar("@contents", contents)

            .Addpar("@Istops", Istops)

            .Addpar("@keyw", Keyw)

            .Addpar("@keyp", Keyp)

            .Execute()

            .Terminate()

        End With

        Sql = Nothing

 

用法三:数据集操作

        Dim Rs As SqlClient.SqlDataReader

        Dim Sql As New Daxecutor

        With Sql

            .Open()

            .Sql = "select id,Mname,classtype from Npaper_submenu"

            .Istext = 1

            Rs = .GetQueryds()

        End With

        'Sqlstr = "select id,Mname,classtype from Npaper_submenu"

        'Rcmd = New SqlClient.SqlCommand(Sqlstr, Conn)

        'Rcmd.Connection.Open()

        'Rs = Rcmd.ExecuteReader(CommandBehavior.CloseConnection)

 

        Do While Rs.Read = True

            Classtype.Items.Add(New ListItem(Rs.GetString(1), Rs.GetByte(0).ToString))

        Loop

        Rs.Close()

        Sql.Terminate()

        Sql = Nothing

 

VB.NET 数据库表通用操作类模块

也可以浏览这里,有更详细的UML类视图描述http://leek.woku.com/article/4859859.html 作者:段利庆    QQ:14035344            这个类模...
  • leek
  • leek
  • 2009年07月30日 15:10
  • 1971

访问数据库通用类 VB.NET

访问数据库通用类  VB.NET    这是在学习的 NET 的时候写的一个数据访问类 不完善的地方请网友指正。同样也适合初学者参考Imports System.DataImports System....
  • heimaoxiaozi
  • heimaoxiaozi
  • 2007年08月13日 14:08
  • 1868

vb.net中对数据库操作的公共类

在开发中通过总结自己编写了一个关于数据操作的公共类,在实际操作中觉得使用起来非常方便。实现在module中定义。使用时直接调用即可这里数据连接采用sqlConnection一 数据连接 Public ...
  • jsnicle
  • jsnicle
  • 2005年09月08日 16:16
  • 2501

vb.net 操作Access数据库帮助类

VB.net 操作Access数据库的一些常用方法,代码如下 Imports System Imports System.Data.SqlClient Imports System.Config...
  • lqh4188
  • lqh4188
  • 2013年12月29日 11:30
  • 5385

Vb.net 和SQL 数据库交互小结

个人版机房收费系统暂时的告于段落,对于vb.net 和SQL Sever 数据库的交互,现在总结一下。 一 数据库连接   1 vb.net 和SQL Sever 连接,使用的connec...
  • zllaptx4869
  • zllaptx4869
  • 2013年07月12日 18:55
  • 3786

VB.NET 使用 OleDb 操作 Access 数据库(来自 MSDN)

VB.NET 使用 OleDb 操作 Access 数据库 这里采用 OleDb 方式对 Access 数据库进行访问,主要内容都来自 MSDN 帮助文档。建议新手注意 MSDN 的用途。 首先导入命...
  • Linmson
  • Linmson
  • 2014年04月03日 13:52
  • 5592

vb.net 教程 8-3 数据库操作10-2

接上一节,下面开始正式进行修改: 使用sql的update语句: Private Sub btnEdit1_Click(sender As Object, e As EventArgs) Ha...
  • UruseiBest
  • UruseiBest
  • 2017年12月23日 21:55
  • 58

vb.net 教程 8-3 数据库操作7

续上一节,将获得的数据库架构信息全部显示出来,这次不用循环,直接使用DataGridView来显示: Private Sub Button6_Click(sender As Object, e...
  • UruseiBest
  • UruseiBest
  • 2017年12月12日 21:03
  • 56

vb.net 教程 8-3 数据库操作11

数据新增、删除和修改操作差不多。 无非就是新建sql语句,执行command.ExecuteNonQuery 本节例子使用的是NorthWind中的类别表。 有了前面查询和修改的知识,相信大家可以看...
  • UruseiBest
  • UruseiBest
  • 2017年12月23日 22:16
  • 58

VB.net SQL数据库操作

Public Class Form_main     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As Syst...
  • linfengmove
  • linfengmove
  • 2013年05月11日 09:57
  • 797
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个数据库操作的类.0.1 (vb.net)
举报原因:
原因补充:

(最多只允许输入30个字)