06-06-14, 01:12 PM
كانت هناك مشكلة في كود جلب السيرفرات المنصبة بالحاسوب .
وكانت هناك رسالة خطأ تظهر لدي
تم إستبداله بـ :
وكانت هناك رسالة خطأ تظهر لدي
تم إستبداله بـ :
كود :
Private Sub GetServerList()
Dim Server As String = String.Empty
Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
Dim table As System.Data.DataTable = instance.GetDataSources()
For Each row As System.Data.DataRow In table.Rows
Server = String.Empty
Server = row("ServerName")
If row("InstanceName").ToString.Length > 0 Then
Server = Server & "\" & row("InstanceName")
End If
LstSrv.Items.Add(Server)
Next
LstSrv.SelectedIndex = LstSrv.FindStringExact(Environment.MachineName)
End Subاللَّهُمَّ أَنْتَ رَبِّي ، لا إِلَه إِلاَّ أَنْتَ خَلَقْتَني وأَنَا عَبْدُكَ ، وأَنَا على عهْدِكَ ووعْدِكَ ما اسْتَطَعْتُ ، أَعُوذُ بِكَ مِنْ شَرِّ ما صنَعْتُ ، أَبوءُ لَكَ بِنِعْمتِكَ علَيَ ، وأَبُوءُ بذَنْبي فَاغْفِرْ لي ، فَإِنَّهُ لا يغْفِرُ الذُّنُوبِ إِلاَّ أَنْتَ .
