db.vb

来自「本系统利用vb.net做为前台开发工具」· VB 代码 · 共 44 行

Imports System.Data
Imports System.Data.SqlClient
Public Class DB
  Public Shared ConnStr As String = "server=localhost; database=OrderSys; uid=sa; pwd="
    Public Function CreateDataTable(ByVal SQLcmd As String) _
            As DataTable
        Dim conn As SqlConnection
        Dim myAdapter As SqlDataAdapter
        Dim myDataSet As New DataSet
        Try
            conn = New SqlConnection(ConnStr)
            '打开数据库连接
            conn.Open()
            '执行SQLcmd语句
            myAdapter = New SqlDataAdapter(SQLcmd, conn)
            '将结果填充到myDataSet数据集中
            myAdapter.Fill(myDataSet)
            '操作完成后关闭连接
            conn.Close()
            '返回数据集中的数据表
            Return myDataSet.Tables(0)
        Catch ex As Exception
            '报告异常
            MsgBox(ex.Message)
        End Try
    End Function

    Public Function UpdateDataBase(ByVal SQLcmd As String)
        Try
            Dim conn As SqlConnection, cmd As SqlCommand
            conn = New SqlConnection(ConnStr)
            '打开数据库连接
            conn.Open()
            cmd = New SqlCommand(SQLcmd, conn)
            '执行查询
            cmd.ExecuteNonQuery()
            '操作完成关闭连接
            conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Function
End Class