dataop.vb

来自「ASP,VB.NET写的,用的SQLSERVER数据库,影片超市系统,属于网上购」· VB 代码 · 共 87 行

Imports System.Data.SqlClient
Public Class dataOP
    Private constr As String = "uid=sa;pwd=;database=01级电子商务;server=(local)"
    Private mycon As New SqlConnection(constr)

    Public ec As String

    Public Function retab(ByVal sqlstr) As DataTable
        Dim myt As New DataTable()
        Dim myc As New SqlDataAdapter(sqlstr, mycon)
        mycon.Open()

        myc.Fill(myt)
        mycon.Close()
        Return myt
    End Function

    Public Overloads Function exeSQL(ByVal SQLSTR As String) As Boolean
        Dim mycom As New SqlCommand(SQLSTR, mycon)
        mycon.Open()
        Try
            mycom.ExecuteNonQuery()
            mycon.Close()
            Return True
        Catch ex As Exception
            ec = ex.Message
            mycon.Close()
            Return False
        End Try
    End Function

    Public Overloads Function exeSQL(ByVal SQLSTR() As String) As Boolean
        Dim comstr As String = SQLSTR(0)
        Dim i As Integer

        For i = 1 To UBound(SQLSTR)
            comstr &= SQLSTR(i) & ","
        Next
        comstr = Left(comstr, comstr.Length - 1)

        Dim mycom As New SqlCommand(comstr, mycon)
        mycon.Open()
        Try
            mycom.ExecuteNonQuery()
            mycon.Close()
            Return True
        Catch ex As Exception
            ec = ex.Message
            mycon.Close()
            Return False
        End Try
    End Function

    Public Function rearr(ByVal str As String) As String()
        Dim myr As SqlDataReader
        Dim mycom As New SqlCommand(str, mycon)
        If mycon.State = ConnectionState.Closed Then mycon.Open()
        myr = mycom.ExecuteReader
        Dim ret() As String
        Dim i As Integer
        While myr.Read
            ReDim Preserve ret(i)
            ret(i) = myr(0)
            i += 1
        End While

        mycon.Close()
        Return ret
    End Function

    '返回单值
    Public Function singlVal(ByVal SQLSTR As String) As String
        Dim mycom As New SqlCommand(SQLSTR, mycon)
        mycon.Open()
        Dim ret As String
        Try
            ret = mycom.ExecuteScalar
            mycon.Close()
            Return ret
        Catch ex As Exception
            ec = ex.Message
            mycon.Close()
            Return ""
        End Try
    End Function
End Class