إستفتاء : هل اعجبك درس اليوم و استفدت منه
هذا الإستفتاء مغلق .
اعجبني و استفدت منه
100.00%
3 100.00%
ام يعجبني و لم استفد منه
0%
0 0%
إجمالي 3 أصوات 100%
* لقد قمت بالتصويت لهذا الإختيار . [عرض النتائج]

تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[SQL] الدرس الاول : الدخول الى sql server من الفيجوال بيسك تعبئة الكومبوبوكس بأسماء السيرفر
#1
Information 
السلام عليكم ايها الاخوة الكرام حياكم الله و اهلا و يهلا بكم في الدرس الاول من هاته السلسلة الجميلة الهادفة للرقي الى الاحتراف عن طريق التحكم في sql server من داخل الفيجوال بيسك.
هاته السلسلة سيكون فيها اشياء كثيرة و مفيدة و لن تكون فيها ملفات مرفقة لان في الاصل هو التعلم لا النسخ و اللصق الدي لن تتعلم منه اي شيء.
فهدفي اخي اختي في الله هو ان تفهم الكود و تطبقه على مثال عندك و تستفيد و تفهم و لا أريد منك شيئا إلى الدعاء لي و للوالدي هدا رجائي فلا تخيب رجائي.
هاته السلسلة ستتصمن الاتي
1-تعبئة الكومبوبوكس بأكماء السيرفر
2-اختيار طريقة الولوج اما windows authentication او sql server authentication
3-اسم المستخدم و كلمة المرور ادا كان الدخول ب sqlserver authentication
4-تعبئة الكومبوبوكس باسماء قواعد البيانات الموجودة داخل السيرفر المختار في الكومبوبوكس الاول
5-إظهار الجداول الموجودة داخل قاعدة البيانات المختارة
6-إظهار المشاهد views الموجودة داخل قاعدة البيانات المختارة
7-إظهار الاجراءات المخزنة  الموجودة داخل قاعدة البيانات المختارة
8-انشاء و حدف قاعدة بيانات جديدة من الفيجوال بيسك
9-انشاء و حدف جدول جديدة من الفيجوال بيسك
10-انشاء و حدف اجراءات مخزنة من الفيجوال بيسك
11-انشاء عمليات الاضافة و التعديل و الحدف اوتوماتيكيا
و اشياء اخرى سأضيفها عندما اتدكرها .
و اليوم ان شاء الله سنبدأ بالدرس الاول   (تعبئة الكوبوبوكس باسماء السيرفر)
هناك عدة طرق
      1- عن طريق ملف dll و هو تابع sql server  و دوره يدهب الى الريجيستري و يبحث عن اسماء السيرفرات و عيب هاته الطريقة هو التاخر بحيث تأخد تقريبا 15 الى 20 ثانية لجلب الاسماء
      2-عن طريق الريجيستري بمعنى نعطيه مسار الموجود فيه اسماء السيرفر فقط و هاته الطريقة جميلة جدا و خفيفة و سريعة
الفرق بين الطريقتين هو الطريقة الاولى انه يبحث في الريجيستري كله مما يؤدي الى التاخير و الطريقة الثانية نعطيه المسار المناسب فيدهب اليه مباشرة
حتى لا اطيل عليكم افتحوا مشروع جديد اي نسخة من الفيجوال بيسك لا تهم
داخل الفورم اضف كومبوبوكس و اعطه في name التابع له اسم comboserver
الان افتح module جديد و سمه ما تشاء
نبدأ بالطريقة الثانية السهلة المتلخصة في اعطاء المسار المناسب الموجود فيه اسماء السيرفرات
في مكان التصريحات العامة

Imports Microsoft.Win32

بعد دالك عمل اجراء sub


كود :
 Public Sub loadNameserver(ByVal combo As ComboBox)
       Try
           Dim localMachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
           Dim rk = localMachine.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
           Dim instances = CType(rk.GetValue("InstalledInstances"), String())
           If instances.Length > 0 Then
               For Each element As String In instances
                   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
           MessageBox.Show(ex.Message)
       End Try

   End Sub

بعد دالك تستدعي الاجراء داخل form_laod

تكتب الاتي

loadNameserver(comboserver)
هاته هي الطريقة الاحسن في جلب اسماء السيرفرات من الريجيستري اما الطريقة الاولى فهي معقدة نوعا ما و ادا اردتم معرفتها ليس لي مانع في شرحها
و في الاخير  اتمنى من الله العلي القدير ان اكون قد وفقت لشرح هدا الدرس
و لا تنسوني من صالح دعائكم و اللهم تقبل من الجميع الصيام و القيام و اجعل هدا العمل خالصا لوجهك الكريم امين امين انك ولي دالك و القادر عليه و آخر دعوانا ان الحمد لله رب العالمين و صلي اللهم و سلم على اشرف المخلوقين و على آله و صحبه اجمعين
و السلام عليكم و رحمة الله تعالى و بركاته
ملحوظة : من اعجبه الدرس فليقم بعمل دالك في الاستفتاء كنوع من التشجيع
التميز و الابداع شعاري
الرد }}}
#2
شكرا جزيلا
شرح وافي وممتاز
جزاك الله خير
الرد }}}
تم الشكر بواسطة: rnmr , rnmr
#3
اخي الفاضل :

بارك الله فيك وغفر لوالديك

عمل ممتاز

ولكن لي سؤال : هل استخدام : XtraMessageBox.Show مقصود ؟؟؟ وهل هو صحيح ؟؟؟
Don't Be The Perfect one
be the right one
الرد }}}
تم الشكر بواسطة:
#4
شكرا جزيلا لانتباهك سؤالك في محله انا استخدم في مشاريعي مكتبة ادوات devexpress
xtramessagebox.show هي من جمل devexpress
سأصحح الخطأ الان
ان شاء الله
التميز و الابداع شعاري
الرد }}}
تم الشكر بواسطة:
#5
الله يبارك فيك
الرد }}}
تم الشكر بواسطة:
#6
الف شكر لك ويعطيك العـــافية ..
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] دورة تعليم الفيجوال بيسك- جملة التكرار do loop mohamed2316 0 125 22-02-24, 12:32 AM
آخر رد: mohamed2316
  [VB.NET] تحميل فيجوال بيسك دوت نت Omar 6.0 5 3,591 21-01-24, 02:59 PM
آخر رد: doneto
  دورة تعليم الفيجوال بيسكvisual Basic.net course mohamed2316 1 1,165 18-11-23, 09:38 PM
آخر رد: DJATV85
Information 10 اسطوانات تعليم فيجوال بيسك دوت نت 2008 باللغة العربية. Mohamad Anan 45 44,736 12-11-23, 02:33 PM
آخر رد: Taha Okla
  [سلسلة تعليمية] دورة الرسم ثلاثى الابعاد فى فيحوال بيسك رمضان272 2 2,008 26-03-23, 09:40 PM
آخر رد: رمضان272
  [كورس] دورة انشاء برنامج ادارة المطاعم فيجوال بيسك وقاعدة بيانات sql aljzazy 2 3,400 15-05-22, 10:32 PM
آخر رد: ابراهيم ايبو
  [VB.NET] إكتشف معنا عالم الفيجوال بيسك دوت نت VB.NET عبدالله خضر 28 32,530 17-07-21, 01:43 AM
آخر رد: إليسار
  طلب استفسار في الفيجوال 2012 خصائص ودوال hamada666 3 3,393 11-01-21, 09:20 PM
آخر رد: htrjyt
  [VB.NET] دورة بناء برنامج محاسبي مبسط بطريقة احترافيه بالفيجوال دوت نت والاكسيس الدرس الرابع hbsbamaga 0 2,873 14-09-20, 11:17 PM
آخر رد: hbsbamaga
  [VB.NET] دورة بناء برنامج محاسبي مبسط بطريقة احترافيه بالفيجوال دوت نت والاكسيس الدرس الثالث hbsbamaga 0 2,228 14-09-20, 11:16 PM
آخر رد: hbsbamaga

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم