17-06-18, 02:09 PM
هذا الكود وضيفته البحث عن sql server name
لكن يوجد به خطأ بسيط وهو لايستطيع اظهار الاسم ليقوم بختياره صحيح
كود :
Try
Cursor = Cursors.WaitCursor
Timer2.Enabled = True
Dim dataTable As DataTable = SmoApplication.EnumAvailableSqlServers(True)
cmbServerName.ValueMember = "Name"
cmbServerName.DataSource = dataTable
Dim serverName As String = cmbServerName.SelectedValue.ToString()
Dim server As New Server(serverName)
Catch ex As Exception
MessageBox.Show("Sorry unable to find SQL Server instance" & vbCrLf & "If you have installed SQL Server then enter name of SQL Server instance manually", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Try