dbobject.vb

来自「毕业设计+图书管理系统+源码 需要的人下载。」· VB 代码 · 共 36 行

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Public Class DBObject

    Public cn As SqlConnection = New SqlConnection("server=localhost\sqlexpress;integrated security=sspi;database=GDMS")
    Dim cmd As New SqlCommand
    Dim cmdTextValue As String
    Protected dr As SqlDataReader
    Public Property cmdText()
        Get
            Return cmdTextValue
        End Get
        Set(ByVal value)
            cmdTextValue = value
        End Set
    End Property
    '执行非select查询语句
    Public Function SQL() As Integer
        cn.Open()

        cmd.Connection = cn
        cmd.CommandText = cmdText
       
        Try
            SQL = cmd.ExecuteNonQuery()
        Catch ex As Exception
            SQL = 0
        Finally
            cn.Close()
        End Try

    End Function

End Class