+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=20214)
أرجو المساعدة في تصحيح الاكواد - محمود البكري - 01-05-17
أرجو المساعدة في تصحيح الاكواد
السلام عليكم
قمت بتحميل جميع الفديوهات المتعلقة بالدروس الخاصة في هذا المشروع
وهذا رابط الدروس
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)
وسوف ارفق جميع المدخلات الموجودة في الكلاس في ملف واحد قد يكون فاتني شيء , وكذالك صورة للخطأ
ارجو من الاخوة الافاضل مساعدتي .
وشكرا لكم
انتظر الرد . . .
RE: أرجو المساعدة في تصحيح الاكواد - Adrees - 01-05-17
اخي الفاضل يبدو ان المتغير 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
RE: أرجو المساعدة في تصحيح الاكواد - محمود البكري - 01-05-17
شكرا لك على الاجابة
ولكن ماهوة الحل في رايك اخي الكريم