منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] اريد مساعدتي في تصحيح او تعديل الكود - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اريد مساعدتي في تصحيح او تعديل الكود (/showthread.php?tid=25415)



اريد مساعدتي في تصحيح او تعديل الكود - 0theghost0 - 17-06-18

هذا الكود وضيفته البحث عن 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
لكن يوجد به خطأ بسيط وهو لايستطيع اظهار الاسم ليقوم بختياره صحيح


RE: اريد مساعدتي في تصحيح او تعديل الكود - عبد العزيز البسكري - 17-06-18

السّلام عليكم و رحمة الله و بركاته
عيد فطر سعيد كل سنة و أنت بمليون خير إن شاء الله
أستخدمت نفس الكود أخي الكريم .. و يعمل بشكل عادي
تحياتي



RE: اريد مساعدتي في تصحيح او تعديل الكود - 0theghost0 - 17-06-18

لدي سؤال بخصوص هذه الطريقة هل من الممكن رفع القاعدة في موقع معين ويتم الاتصال بالقاعدة المرفوعة اون لاين ؟؟


RE: اريد مساعدتي في تصحيح او تعديل الكود - elgokr - 17-06-18

بخصوص الاتصال بقاعدة البيانات
تابع الرد التالى
http://vb4arb.com/vb/showthread.php?tid=25414&pid=121712#pid121712

تحياتى لك
وتمنياتى لك التوفيق



RE: اريد مساعدتي في تصحيح او تعديل الكود - عبد العزيز البسكري - 17-06-18

إضافة ممكن تفيد ..
http://vb4arb.com/vb/showthread.php?tid=25414



RE: اريد مساعدتي في تصحيح او تعديل الكود - سعود - 18-06-18

مشاركة لاخواني اكتب ما اعرفه بهذا الخصوص
PHP كود :
Private Function servers() As List(Of String)
 
       Dim lst As New List(Of String)
 
       Dim instance As SqlDataSourceEnumerator SqlDataSourceEnumerator.Instance
        Dim dt 
As DataTable instance.GetDataSources()
 
       For Each row As System.Data.DataRow In dt.Rows
            lst
.Add(row("ServerName"))
 
       Next
        Return lst
    End 
Function 
و للاستخدام ضمن زر امر او اي اجراء
PHP كود :
For Each h As String In servers()
 
           ListBox1.Items.Add(h)
 
       Next 



RE: اريد مساعدتي في تصحيح او تعديل الكود - 0theghost0 - 23-06-18

ممكن مثال لهذا الكود

مع دمجه بالكود او بالمثال المرفوع بالاعلى ولكم جزيل الشكر


RE: اريد مساعدتي في تصحيح او تعديل الكود - 0theghost0 - 29-06-18

اين انتم يا شباب


RE: اريد مساعدتي في تصحيح او تعديل الكود - elgokr - 29-06-18

راجع اخى الرد رقم 4
ستجد به ملخص ما تريد

تحياتى لك
وتمنياتى لك التوفيق