(30-08-18, 10:47 PM)elgokr كتب : يمكنك ان تجعله فى اى مكان اخى
حتى ولو كان فى ملف txt او ملف sql
وتقوم باستدعاء الملف والقراءة من داخله
الامر كله كا فكرة والشكل النهائي يعتمد عليك
تحياتى لك
وتمنياتى لك التوفيق
لقد حاولت أخي الفاضل ولكن يبدو أن الفكرة لم تصل لي للأسف فلازلت مبتدأ
وعلى فكرة في المثال الخاص بال treeveiw وتبعئتها من ثلاث جداول
لقد لاحظت الكلاس ال con
وتوقفت في بناء البرنامج الذي اعمل عليه
حتى اتعلم هذة الطريقة في كتابة الكلاس والكود
فاذا امكن اي كتاب او حتى شرح مبسط لهدة الطريقة الممتازة
وجزاك الله خيرا على مجهودك معنا أستاذى الفاضل
(30-08-18, 11:14 PM)عبد العزيز البسكري كتب : (30-08-18, 09:30 PM)princelovelorn كتب : السلام عليكم ورحمة الله وبركاته
لدي script لقاعدة sql بجداولها
اريد ارفاقه مع ملفات البرنامج
وفي اول مرة يشتغل البرنامج يقوم بتركيب القاعدة تلقائيا
اعلم انه يجب على المستخدم تحديد اسم السيرفر وطريقة الدخول سواء كانت مستخدم ويندوز او يوزر وباسورد
وايضا امكانية جعله يكتب اسم القاعدة
ولكن طريقة التنفيذ وكتابة الكود المناسب لها لا اعرفها
وابحث منذ ساعات عنها على الانترنت ولم اعثر عليها
واعلم انها موجودة ولكني لم أوفق في العثور عليها
فرجاء المساعدة
وايضا من لدية كتب جيدة عن طريقة استخدام الكلاسات فلا يبخل عليها بنا
وأعتذر مسبقا ان كان سؤالي مكرر ولكني لم أوفق في العثور على طريقة
السّلام عليكم و رحمة الله و بركاته
أخي الكريم و أستاذنا الفاضل " elgokr " .. ما قصّر .. جزاه الله خير الجزاء و زادها بموازين حسناته
من باب تنوّع الأفكار .. يمكن مشاهدة هذا الموضوع لعلّه يفيد إن شاء الله
تحياتي
وعليكم السلام ورحمة الله وبركاته
أخي الكريم " عبد العزيز البسكري "
جزاك الله خيرا على أهتمامك ومحاولتك مساعدتي
وبالفعل الأخ " elgokr " ما بيقصر مع أحد في المنتدى بارك الله فيه وزاده علماً
وبالنسبة للموضوع المشار اليه لقد كنت أحاول بالفعل فيه من قبل ان اكتب الموضوع ولكن واجهتني مشكلة فيه وانه لم يعثر على السيرفرات الموجودة لدي
وقد حاولت فيه مرة ثانية وبعد اضافة الكود التالي لجلب السيرفرات
كود :
Sub LoadServer(ByVal Combo As ComboBox)
Try
Dim LocalMachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
Dim Rk = LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
Dim Instance = CType(Rk.GetValue("InstalledInstances"), String())
If Instance.Length > 0 Then
For Each Element As String In Instance
If Element = "MSSQLSERVER" Then
Combo.Items.Add(System.Environment.MachineName)
Else
Combo.Items.Add(System.Environment.MachineName + "\" + Element)
End If
Next Element
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "Error")
End Try
End Sub
فظهرت رسالة الخطأ هذة لي
كود :
Could not load file or assembly 'Microsoft.SqlServer.SqlEnum, Version=12.0.0.0, Culture=neutral, PublicKeyToken=89845dcd8080cc91' or one of its dependencies. The system cannot find the file specified.
فقمت باعادة كتابة المثال مرة ثانية في مشروع جديد (موجود بالمرفقات) بعد التعديل البسيط عليه
فظهرت هذة الرسالة
وتم حفظ القاعدة ولكن فارغه من الجداول
ولا اعلم لماذا ؟
أستخدم
vb.net 2010 ultimate
sql server 2008 r2
windows 10 64 bit
** في تفكيري أريد أن أجعل المستخدم هو من يكتب اسم القاعدة المناسب له
وممكن ايضا ان نجعل البرنامج يعمل باكثر من قاعدة بيانات على حسب اختيار المستخدم لها
ولقد رايت الفكرة في برنامج من صنع الأخ يوسف حداد
وأحاول تطبيقها