App_Code/DataControl.vb

（完整代码） 1KB 

Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.Data
'下载于51aspx.com
Public Class DataControl
    Private Cnn As SqlConnection
    Private Cmd As SqlCommand
    '下载于51aspx.com
    Public Sub New()
        Cnn = New SqlConnection
        Cmd = New SqlCommand
        Cmd.Connection = Cnn
        Cnn.ConnectionString = System.Configuration.ConfigurationManager.ConnectionStrings("DBConn").ConnectionString
    End Sub
    '下载于51aspx.com
    Public Function Get_Table(ByVal sqlStr As String) As DataTable
        '定义数据列表:将数据库中的记录通过Sql语句将返回的内容显示在数据表中
        Dim ada As New SqlDataAdapter
        Dim ds As DataSet
        Cnn.Open()
        ada.SelectCommand = Cmd
        Cmd.CommandText = sqlStr
        Cnn.Close()
        Try
            ds = New DataSet
            ada.Fill(ds)
            Return ds.Tables(0)
        Catch ex As Exception
            Return Nothing
        End Try
    End Function
    '下载于51aspx.com
    Public Function ExecSql(ByVal sqlStr As String) As String
        '执行不带返回记录集的Sql语句操作数据库(如: insert into;Update Set )
        Try
            Cmd.CommandText = sqlStr
            Cnn.Open()
            Cmd.ExecuteNonQuery()
            Cnn.Close()
            Return "OK"
        Catch ex As Exception
            Return ex.Message
        End Try
    End Function

    Public Shared Function GetText(ByVal strText As String, ByVal intLen As Int32) As String
        '如果参数大于指定的长度  则省略显示
        If strText.Length > intLen Then

            Return strText.Substring(0, intLen) & "..."

        Else

            Return strText
        End If
    End Function



End Class

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读 AI

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。