frmadocommand.vb

Visual Basic 传统数据访问模式ADO

Option Explicit On
Option Strict On
Imports ADODB

Public Class frmAdoCommand

    Private oConnection1 As Connection

    Private Sub frmAdoCommand_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        '设置数据库连接字符串
        Dim m_sConnStr As String = "Provider='SQLOLEDB';Data Source='HZIEE-2E53F913F';" & _
                    "Initial Catalog='SuperMarket';Integrated Security='SSPI';"

        '实例化Connection类并打开Connection对象
        oConnection1 = New Connection
        oConnection1.CursorLocation = CursorLocationEnum.adUseClient
        oConnection1.Open(m_sConnStr)
    End Sub

    Private Sub frmAdoCommand_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        '判断Connection对象是否存在
        If Not oConnection1 Is Nothing Then
            '判断数据库是否处于连接状态
            If oConnection1.State = ConnectionState.Open Then
                '关闭数据库连接
                oConnection1.Close()
            End If
            oConnection1 = Nothing
        End If
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        '创建Command对象
        Dim cmd As Command = New Command
        '设置已经和数据库建立连接的对象为cmd的ActiveConnection属性
        cmd.ActiveConnection = oConnection1
        '设置需要执行的SQL语句
        cmd.CommandText = "Insert into Product Values(100020,'AKG耳塞','中国',123.00,'t-006')"
        cmd.CommandType = CommandTypeEnum.adCmdText
        cmd.Execute()
    End Sub

    Private Sub btnModify_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnModify.Click
        '创建Command对象
        Dim cmd As Command = New Command()
        '设置已经和数据库建立连接的对象为cmd的ActiveConnection属性
        cmd.ActiveConnection = oConnection1
        cmd.CommandType = CommandTypeEnum.adCmdText
        '设置需要执行的SQL语句
        cmd.CommandText = "Update Product set 价格=135.00 where 编号=100020"
        cmd.Execute()
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click
        '创建Command对象
        Dim cmd As Command = New Command()
        '设置已经和数据库建立连接的对象为cmd的ActiveConnection属性
        cmd.ActiveConnection = oConnection1
        cmd.CommandType = CommandTypeEnum.adCmdText
        '设置需要执行的SQL语句
        cmd.CommandText = "Delete from Product where 编号=100020"
        cmd.Execute()

    End Sub
End Class