تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
هل يمكن تبديل جملة الإتصال الموجوده داخل Module1
#1
السلام عليكم
أخوانى الأفاضل
لدى برنامج مصمم VB.NET 2008 مربوط بقاعدة بيانات على سيرفر


السؤال هل يمكن تبديل جملة الإتصال الموجوده داخل Module1 بجملة إتصال أخرى فى حالة عدم مقدرة البرنامج على الإتصال بقاعدة البيانات
جملة الإتصال تحتوى على رقم السيرفر أو إسم السيرفر - اسم قاعدة البيانات - كلمة السر الخاصة بقاعدة البيانات
اريد تبديل رقم السيرفر برقم اخر ؟؟

شكرا جزيلا
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

أعطيك فكرة بسيطة وهي تخزين آي بي السيرفر في ملف نصي بجانب الملف التنفيذي لبرنامجك واستدعائه عند إجراء الاتصال بالسيرفر .

أولاً : أنشئ دالة كالتالي لقراءة الملف النصي :
كود :
Public Function ServerIP(ByVal IpFile As String) As String
        Dim IP As String = Nothing
        Try
            If IO.File.Exists(IpFile) = True Then
                IP = My.Computer.FileSystem.ReadAllText(IpFile)
                If String.IsNullOrEmpty(IP) Then
                    Return Nothing
                End If
            End If
            Return IP
        Catch ex As Exception
            MsgBox("تعذر العثور علي رقم السيرفر")
            Return Nothing
        End Try
    End Function

ثانياً : في جملة الاتصال بدل ما تكون هكذا :
كود :
Dim conString As String = "Server=192.168.1.1;Database=myDataBase;User Id=myUsername;Password=myPassword"

تكون هكذا :
كود :
Dim conString As String = "Server=" & ServerIP("IpFile.txt") & ";Database=myDataBase;User Id=myUsername;Password=myPassword"

يمكنك حماية الملف النصي بتغيير امتداده مثلا لامتداد آخر .

كما قلت الطريقة بسيطة وبالتأكيد توجد طرق أخرى أكثر احترافية ...

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#3
مشكور أخى الكريم فكرة جيدة ولكن هل يمكن إستخدامها داخل المديول علما بان كل ما بداخل المديول يستخدم عند بداية تشغيل البرنامج وايضا عند فتح المشروع يفتح على شاشة اسم المستخدم والرقم السرى اللذى يتم التحقق منهما من قواعد البيانات الموجوده داخل السيرفر !!
الرد }}}
تم الشكر بواسطة:
#4
نعم يمكن استخدامها في المديول
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#5
أخى الكريم
مشكور على مشاركتك

ولكن كيف استبدل رقم السيرفر برقم أخر

قمت بكتابة الرقم الأخر داخل
Catch ex As Exception
الرد }}}
تم الشكر بواسطة:
#6
تم إرفاق المشروع

يقوم البرنامج بالوقوف عند فتح الإتصال


الملفات المرفقة
.rar   WindowsApplication2.rar (الحجم : 86.41 ك ب / التحميلات : 81)
الرد }}}
تم الشكر بواسطة:
#7
أخى العزيز هل توصلت إلى حل
الرد }}}
تم الشكر بواسطة:
#8
طبعاً لا يمكنني الاتصال لأن قاعدة بياناتك ليست موجودة عندي ...

علي العموم انا بستخدم النص التالي للاتصال بقاعدة بيانات علي شبكة محلية (Server) :
كود :
Dim strConn As String = "Data Source=YourSeverIP;Network Library=DBMSSOCN;Initial Catalog=YOURDATABASENAME;User ID=YOURUSERNAME;Password=YOURPWD;Connection Timeout=15"

في كود اتصالك يوجد رقم ما عرفت إيه هو (ملون بالأحمر) :
كود :
...pcname & "\SQLEXPRESS,[color=#ff0000]1433[/color];Initial Catalog=PLM;...
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}
تم الشكر بواسطة:
#9
الرقم الموجود هو رقم البورت الافتراضي لمشغل قواعد البيانات

اما بخصوص سؤالي عند فشل الاتصال بالسيرفر الرئيسي هل يمكن تحويل جمله الاتصال الموجوده داخل المديول بجمله اتصال اخري
الرد }}}
تم الشكر بواسطة:
#10
إقتباس :
هل يمكن تحويل جمله الاتصال الموجوده داخل المديول بجمله اتصال اخري
طبعا يمكن اخي بل يمكنك حتى افراغ المتغير ..
مثلا المتغير str معرف بالموديول تعريف عمومي
كود :
Public str As String = "saud"

يمكن ان نتحكم بالقيمة كالتالي:
كود :
str=""
يعني فارغ

هذا بشكل عام
اما بخصوص جملة الاتصال فيمكنك تقسيم جملة الاتصال الى عدة اقسام كل قسم بمتغير مثلا اسم القاعدة قسم وكلمة المرور قسم والسيرفر قسم والاي بي قسم .
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن تصدير ascx كملف dll justforit 1 134 06-12-25, 12:33 AM
آخر رد: salamandal
  [سؤال] طريقة توسيط النص داخل اداة comboBox سمير1404 7 3,858 24-08-25, 01:01 PM
آخر رد: أبو خالد الشكري
  كيف يمكن تحريك الفورم بأستخدام زر heem1986 2 587 30-03-25, 01:58 AM
آخر رد: heem1986
  كيف يمكن تحويل ملف تنفيذى الى فيجوال بيسك 2010 walkady 2 781 07-02-25, 07:57 PM
آخر رد: الورد2
  [VB.NET] تعبئة كومبو بوكس بقواعد البيانات الموجوده علي السيرفر Mustafa Shaker 6 4,099 23-12-24, 03:59 PM
آخر رد: aljzazy
  [سؤال] كيف نضيف id جديد بنفس جملة الاضافة justforit 5 501 01-12-24, 04:30 PM
آخر رد: justforit
  [SQL] جملة اتصال عامه محمد العامر 6 577 27-11-24, 11:38 AM
آخر رد: rdxdz
  مشكلة في جملة الاستعلام Emam emam 5 456 25-11-24, 09:48 PM
آخر رد: Emam emam
  مساعدة في عمل جملة الاتصال في ملف خارج البرنامج Emam emam 2 383 25-11-24, 09:24 PM
آخر رد: Emam emam
  استدعاء من جدولين داخل اداه FlowLayoutPanel برجاء الافادة للضرورة جداً modymody300894 7 636 15-11-24, 11:02 AM
آخر رد: modymody300894

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


يقوم بقرائة الموضوع: