form1.vb

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

Imports System.Data.SqlClient
Imports System.Data

Public Class Form1

    Dim CreateTableCmd As SqlCommand
    Dim con As SqlConnection
    Dim objTable As DataTable

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

        Dim strCon = "User ID=sa; Password=tuohzzhout;database=TestDb; Data Source=huanleji-yqt4x9"
        con = New SqlConnection(strCon)
        con.Open()
        RefreshList()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strCreateTable = " CREATE TABLE " & textInput.Text & "(ItemID nchar(5) Primary Key  NOT NULL,ItemName nvarchar(40) NOT NULL)"
        CreateTableCmd = con.CreateCommand()
        CreateTableCmd.CommandText = strCreateTable
        CreateTableCmd.ExecuteNonQuery()
        RefreshList()
        textInput.Clear()
    End Sub

    Private Sub RefreshList()
        ListView1.Clear()
        objTable = con.GetSchema("Tables")
        Dim i As Integer
        i = 0
        Do Until i = objTable.Rows.Count
            Debug.Print(objTable.Rows(i).Item(2))
            ListView1.Items().Add(objTable.Rows(i).Item(2).ToString())
            i = i + 1
        Loop
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim strDropTable = " Drop TABLE " & ListView1.SelectedItems.Item(0).Text.ToString
        CreateTableCmd = con.CreateCommand
        CreateTableCmd.CommandText = strDropTable
        CreateTableCmd.ExecuteNonQuery()
        RefreshList()
    End Sub
End Class