databaseobject.vb

SQL Server 业已成为最为流行的几大数据库之一

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''ch06 示例３
''
''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Public Class DatabaseObject

    Public Server As SQLDMO.SQLServer
    Dim database As New SQLDMO.Database
    Dim results As SQLDMO.QueryResults


    Private Sub cbDatabase_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbDatabases.SelectedIndexChanged

    End Sub

    Private Sub DatabaseObject_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        For i = 1 To Server.Databases.Count
            cbDatabases.Items.Add(Server.Databases.Item(i).Name)
        Next

    End Sub

    Private Sub cbTables_DropDown(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbTables.DropDown

        database = Server.Databases.Item(cbDatabases.Text)
        Dim i As Integer
        For i = 1 To database.Tables.Count
            cbTables.Items.Add(database.Tables.Item(i).Name)
        Next

    End Sub

    Private Sub cbTables_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbTables.SelectedIndexChanged

        lbRecords.Items.Clear()
        results = database.ExecuteWithResults("select * from " + cbTables.Text)
        Dim record As String
        record = ""

        Dim i As Integer


        For i = 1 To results.Columns
            record = record + results.ColumnName(i)
            record = record + "  " + results.ColumnType(i).ToString.Substring(12)
            lbRecords.Items.Add(record)
            record = ""
        Next
    End Sub

    Private Sub DatabaseObject_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed

        Server = Nothing
        database = Nothing

    End Sub

    Private Sub btJob_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btJob.Click

        Dim dbCheck As New NewJobs
        dbCheck.database = cbDatabases.Text
        dbCheck.server = Server
        dbCheck.ShowDialog()
    End Sub
End Class