form1.vb

来自「SQL Server 业已成为最为流行的几大数据库之一」· VB 代码 · 共 51 行

Imports adoConn = ADODB.Connection
'Imports rstSchema = ADODB.Recordset
Public Class Form1
    Dim padoconnection As adoConn
    Dim rstSchema As ADODB.Recordset
    Dim adoc As New adoConn

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        adoc.Open("Provider=SQLOLEDB;User ID=sa; Password=tuohzzhout; Data Source=huanleji-yqt4x9")
        padoconnection = adoc
        rstSchema = adoc.OpenSchema(ADODB.SchemaEnum.adSchemaCatalogs)
        Refresh()
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub btCreate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCreate.Click

        Dim createString = "create database " & textInput.Text
        padoconnection.Execute(createString)
        ListView1.Clear()
        Refresh()

    End Sub

    Private Sub btDrop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDrop.Click


        Dim dropString = "drop database " & ListView1.SelectedItems.Item(0).Text
        padoconnection.Execute(dropString)
        ListView1.Clear()
        Refresh()


    End Sub
    Private Sub Refresh()
        rstSchema.MoveFirst()
        Do Until rstSchema.EOF
            ListView1.Items().Add(rstSchema.Fields(0).Value.ToString())
            rstSchema.MoveNext()
        Loop
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        adoc.Close()
        adoc = Nothing
    End Sub
End Class