dmoform.vb

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

Public Class DMOForm

    Dim objSQLSERVER As SQLDMO.SQLServer
    Dim databaseForm As New DatabaseObject
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim objApp As New SQLDMO.Application
        Dim objAvailableSvr As SQLDMO.NameList

        objAvailableSvr = objApp.ListAvailableSQLServers()
        Dim i As Integer
        If objAvailableSvr.Count > 0 Then
            For i = 1 To objAvailableSvr.Count
                '列出所有可用的SQL SERVER服务器
                ComboBox1.Text = objAvailableSvr.Item(i)
            Next
        End If
        rbWindows.Select()

    End Sub
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''ch06 示例2
    ''
    ''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click


        objSQLSERVER = New SQLDMO.SQLServer
        '        On Error GoTo ErrorHandler

        If rbDbUser.Checked Then

            objSQLSERVER.LoginTimeout = -1
            objSQLSERVER.LoginSecure = False
            objSQLSERVER.AutoReConnect = False
            objSQLSERVER.Connect(ComboBox1.SelectedText, tbAccount.Text, tbPassword.Text)
            MsgBox("用户" + objSQLSERVER.Login + "成功登录服务器" + objSQLSERVER.NetName + "。")
        Else
            objSQLSERVER.LoginSecure = True
            objSQLSERVER.Connect(ComboBox1.SelectedText)
            MsgBox("用以Windows身份" + "成功登录服务器" + objSQLSERVER.NetName + "。")
        End If


        databaseForm.Server = objSQLSERVER
        databaseForm.ShowDialog()
    End Sub
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''ch06 示例2
    ''
    ''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Sub rbWindows_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbWindows.CheckedChanged

        Label2.Enabled = False
        Label3.Enabled = False
        tbAccount.Enabled = False
        tbPassword.Enabled = False

    End Sub

    Private Sub rbDbUser_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbDbUser.CheckedChanged

        Label2.Enabled = True
        Label3.Enabled = True
        tbAccount.Enabled = True
        tbPassword.Enabled = True

    End Sub
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''ch06 示例2
    ''
    ''' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    Private Sub DMOForm_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        objSQLSERVER = Nothing
        databaseForm = Nothing
    End Sub
End Class