[محمود البكري]

أرجو المساعدة في تصحيح الاكواد
السلام عليكم
قمت بتحميل جميع الفديوهات المتعلقة بالدروس الخاصة في هذا المشروع 
وهذا رابط الدروس
https://www.youtube.com/watch?v=JjkiXFKuQzs
وراجعت الفديو المتعلق بالمدخلات عدة مرات 
وبعد مراجعتي لجميع المدخلات الموجودة في المشروع لدي لم الاحظ اي خطأ .  وقمت ب الفورمات وتحميل ويندو 10 و مايكروسوفت 2012 وكذالك اس كيو ال 2014 وقمت باعادة المشروع من الصفر 
ولم يتغير الحال
فعند اختيار قاعدة البيانات والضغط على زر (Schottable) تظهر هذه الرسالة ((Failed to connect to server .)

ويتوقف عن هذا السطر ( Dim objTables As TableCollection = server.Databases(Databasename).Tables)

وسوف ارفق جميع المدخلات الموجودة في الكلاس في ملف واحد قد يكون فاتني شيء , وكذالك صورة للخطأ
ارجو من الاخوة الافاضل مساعدتي .
وشكرا لكم
 انتظر الرد . . .

---

(01-05-17, 05:49 AM)محمود البكري كتب : أرجو المساعدة في تصحيح الاكواد
السلام عليكم
قمت بتحميل جميع الفديوهات المتعلقة بالدروس الخاصة في هذا المشروع 
وهذا رابط الدروس
https://www.youtube.com/watch?v=JjkiXFKuQzs
وراجعت الفديو المتعلق بالمدخلات عدة مرات 
وبعد مراجعتي لجميع المدخلات الموجودة في المشروع لدي لم الاحظ اي خطأ .  وقمت ب الفورمات وتحميل ويندو 10 و مايكروسوفت 2012 وكذالك اس كيو ال 2014 وقمت باعادة المشروع من الصفر 
ولم يتغير الحال
فعند اختيار قاعدة البيانات والضغط على زر (Schottable) تظهر هذه الرسالة ((Failed to connect to server .)

ويتوقف عن هذا السطر ( Dim objTables As TableCollection = server.Databases(Databasename).Tables)

وسوف ارفق جميع المدخلات الموجودة في الكلاس في ملف واحد قد يكون فاتني شيء , وكذالك صورة للخطأ
ارجو من الاخوة الافاضل مساعدتي .
وشكرا لكم
 انتظر الرد . . .

[Adrees]

اخي الفاضل يبدو ان المتغير connectionstring لايحمل اي قيمة في الدالة التالية :

PHP كود :

Public Sub btngittable(ComDataBase As ComboBox, listetable As DataGridView)
        dt.Clear()
        Dim ServerConnection As ServerConnection = Nothing
        If ComDataBase.Text = Nothing Then
            MessageBox.Show("yuo do not choose name ", " alert", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        Dim objcn As New SqlConnection(connectionstring)
        ServerConnection = New ServerConnection(objcn)
        Dim server As New Server(ServerConnection)
        Dim objTables As TableCollection = server.Databases(Databasename).Tables
        If objTables.Count = 0 Then
            MessageBox.Show(" there are tables in these database ", "alert", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            ComDataBase.Focus()
        End If
        cmd = New SqlCommand("select name as 'name_table' from dbo.sysobjects where xtype = 'u' order by name", objcn)
        da = New SqlDataAdapter(cmd)
        da.Fill(dt)
        listetable.DataSource = dt
    End Sub 


[محمود البكري]

شكرا لك على الاجابة
ولكن ماهوة الحل في رايك اخي الكريم