用于VB.NET的SQL数据库连接类

转载于 2010-05-07 17:22:00 发布 · 208 阅读

1 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/icycore/archive/2010/05/07/1729920.html

文章标签：

#数据库

本文介绍了一个使用VB.NET实现的简单数据库操作类，包括连接数据库、执行SQL语句、获取数据集等功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient

Public Class dataBase
    Public cnStr As String
    Private _conn As New SqlClient.SqlConnection
    Private _cmd As New SqlClient.SqlCommand
    Private _sql As String

    Public Function getConnectString() As String '返回连接数据库字符串
        cnStr = System.Configuration.ConfigurationManager.AppSettings("cnstr")
        Return cnStr
    End Function

    Public Sub Open() '打开数据库连接
        Dim connStr As String
        connStr = getConnectString()
        _conn = New SqlConnection(connStr)
        _conn.Open()
    End Sub

    Public Sub Close() '关闭数据库连接
        _conn.Dispose()
        _conn.Close()
    End Sub

    Public Sub RunSql(ByVal sql As String) '执行SQL语句
        Open()
        Dim cmd As New SqlCommand(sql, _conn)
        cmd.ExecuteNonQuery()
        Close()
    End Sub

    Public Function getDataSet(ByVal sql As String) As DataSet '返回Dataset
        Open()
        Dim rs As New SqlDataAdapter(sql, _conn)
        Dim ds As New DataSet
        rs.Fill(ds)
        Return ds
    End Function

End Class

转载于:https://www.cnblogs.com/icycore/archive/2010/05/07/1729920.html