vb.net 点击Label获取连接字符串

 Private Sub Label1_Click(sender As Object,e As EventArgs) Handles Label1.Click
        Dim myStream As System.IO.Stream
        OpenFileDialog1.InitialDirectory = "C:UsersAdministratorDesktop"
        OpenFileDialog1.Filter = ""
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True
        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Try
                Label1.ForeColor = Color.White
                Label1.Text = OpenFileDialog1.FileName
                myStream = OpenFileDialog1.OpenFile()
                If Not (myStream Is Nothing) Then
                    g_SQLDataSource = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Label1.Text + ""
                    myStream.Close()
                End If
            Catch ex As Exception
                MsgBox("错误！")
            End Try
        End If
    End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!