كود ربط البرنامج بقاعدة البيانات المتغيرة

كود ربط البرنامج بقاعدة البيانات المتغيرة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود ربط البرنامج بقاعدة البيانات المتغيرة (/showthread.php?tid=44529)

الصفحات: 1 2

كود ربط البرنامج بقاعدة البيانات المتغيرة - حماده ممدوح البحيرى - 10-12-22

السلام عليكم

كود :

Public ConStr As String = "Data Source= HAMADA-PC\SQLEXPRESS;Initial Catalog = Mat3amo;integrated security=true"

Public Con As New SqlClient.SqlConnection(ConStr)

كيف يمكن الاعتماد على هذا الكونكشن من خلال ملف تكست خارجى موجود باسم معين داخل ملف السيطب

يعنى ياخوانى

بعد م اقوم بتسطيب الملف التنفيذى لبرنامجى
يقوم يبحث عن ملف تكست وليكن اسمه con داخل فولدر اسمه mat3am
حيث يفتح ملف التكست ويأخذ الكونكش الجديد بحسب جهاز العميل

RE: كود ربط البرنامج بقاعدة البيانات المتغيرة - h2551996 - 10-12-22

(10-12-22, 08:45 PM)حماده ممدوح البحيرى كتب : السلام عليكم

كود :

Public ConStr As String = "Data Source= HAMADA-PC\SQLEXPRESS;Initial Catalog = Mat3amo;integrated security=true" Public Con As New SqlClient.SqlConnection(ConStr)

كيف يمكن الاعتماد على هذا الكونكشن من خلال ملف تكست خارجى موجود باسم معين داخل ملف السيطب

يعنى ياخوانى

بعد م اقوم بتسطيب الملف التنفيذى لبرنامجى
يقوم يبحث عن ملف تكست وليكن اسمه con داخل فولدر اسمه mat3am
حيث يفتح ملف التكست ويأخذ الكونكش الجديد بحسب جهاز العميل

هذا مديول وبه نص الاتصال

كود :

Imports System.IO

Imports System.Data.SqlClient

Module Connection

    Dim st As String

    Public con As SqlConnection = Nothing

    Public cmd, cmd1, cmd2 As SqlCommand

    Public rdr As SqlDataReader = Nothing

    Public ds As DataSet

    Public adp As SqlDataAdapter

    Public dtable As DataTable

    Public Function ReadCS() As String

        Using sr As StreamReader = New StreamReader(Application.StartupPath & "\SQLSettings.dat")

            st = sr.ReadLine()

        End Using

        Return st

    End Function

    Public ReadOnly cs As String = ReadCS()

End Module

وهذا الاتصال

RE: كود ربط البرنامج بقاعدة البيانات المتغيرة - العتيق - 10-12-22

السلام عليكم و رحمة الله وبركاته

هذا المثال يفيدك اكثر من استخدام الاتصال بواسطة ملف خارجي
ارجو ان تستفيد منه

RE: كود ربط البرنامج بقاعدة البيانات المتغيرة - حماده ممدوح البحيرى - 11-12-22

(10-12-22, 10:23 PM)العتيق كتب : السلام عليكم و رحمة الله وبركاته

هذا المثال يفيدك اكثر من استخدام الاتصال بواسطة ملف خارجي
ارجو ان تستفيد منه

شكرا لك اخى الكريم ولكن تظهر لى هذه الرسالة التى بالصور
والفورم عند الضغط على الكومبوبوكس لا يظهر لى شيئا

RE: كود ربط البرنامج بقاعدة البيانات المتغيرة - أبو خالد الشكري - 11-12-22

(10-12-22, 08:45 PM)حماده ممدوح البحيرى كتب : السلام عليكم

كود :

Public ConStr As String = "Data Source= HAMADA-PC\SQLEXPRESS;Initial Catalog = Mat3amo;integrated security=true" Public Con As New SqlClient.SqlConnection(ConStr)

كيف يمكن الاعتماد على هذا الكونكشن من خلال ملف تكست خارجى موجود باسم معين داخل ملف السيطب

يعنى ياخوانى

بعد م اقوم بتسطيب الملف التنفيذى لبرنامجى
يقوم يبحث عن ملف تكست وليكن اسمه con داخل فولدر اسمه mat3am
حيث يفتح ملف التكست ويأخذ الكونكش الجديد بحسب جهاز العميل

وعليكم السلام ورحمة الله وبركاته

أرجو تجربة المثال المرفق !
حيث أني وضعت الكود في موديول

ثم وضعت الكونكشن في ملف تكست اسمه LocalCon
وملف التكست داخل فولدر اسمه mat3am وسوف تجده في مجلد البرتامج
وهذا هو مسار ملف التكست C:\MyNewComputer\MyNewComputer\bin\Debug\mat3am

ويمكنك في أي وقت تغيير الكونكشن من خلال ملف التكست الخارجي الذي في فولدر mat3am

وأخبرني بالنتيجة !

RE: كود ربط البرنامج بقاعدة البيانات المتغيرة - حماده ممدوح البحيرى - 11-12-22

(11-12-22, 02:49 AM)أبو خالد الشكري كتب :
(10-12-22, 08:45 PM)حماده ممدوح البحيرى كتب : السلام عليكم

كود :

Public ConStr As String = "Data Source= HAMADA-PC\SQLEXPRESS;Initial Catalog = Mat3amo;integrated security=true" Public Con As New SqlClient.SqlConnection(ConStr)

كيف يمكن الاعتماد على هذا الكونكشن من خلال ملف تكست خارجى موجود باسم معين داخل ملف السيطب

يعنى ياخوانى

بعد م اقوم بتسطيب الملف التنفيذى لبرنامجى
يقوم يبحث عن ملف تكست وليكن اسمه con داخل فولدر اسمه mat3am
حيث يفتح ملف التكست ويأخذ الكونكش الجديد بحسب جهاز العميل

وعليكم السلام ورحمة الله وبركاته

أرجو تجربة المثال المرفق !
حيث أني وضعت الكود في موديول

ثم وضعت الكونكشن في ملف تكست اسمه LocalCon
وملف التكست داخل فولدر اسمه mat3am وسوف تجده في مجلد البرتامج
وهذا هو مسار ملف التكست C:\MyNewComputer\MyNewComputer\bin\Debug\mat3am

ويمكنك في أي وقت تغيير الكونكشن من خلال ملف التكست الخارجي الذي في فولدر mat3am

وأخبرني بالنتيجة !

نجحت معى بالفعل اخى الكريم الف شكر وكل التقدير لشخصك الكريم

(10-12-22, 10:23 PM)العتيق كتب : السلام عليكم و رحمة الله وبركاته

هذا المثال يفيدك اكثر من استخدام الاتصال بواسطة ملف خارجي
ارجو ان تستفيد منه

مازلت انتظر مثالك الجميل فقد اعجبنى جدا جدااا

RE: كود ربط البرنامج بقاعدة البيانات المتغيرة - أبو خالد الشكري - 11-12-22

العفو أخي العزيز

والحمد لله أن الكود اشتغل .

بالتوفيق إن شاء الله .

RE: كود ربط البرنامج بقاعدة البيانات المتغيرة - العتيق - 11-12-22

(11-12-22, 01:41 AM)حماده ممدوح البحيرى كتب :
(10-12-22, 10:23 PM)العتيق كتب : السلام عليكم و رحمة الله وبركاته

هذا المثال يفيدك اكثر من استخدام الاتصال بواسطة ملف خارجي
ارجو ان تستفيد منه

شكرا لك اخى الكريم ولكن تظهر لى هذه الرسالة التى بالصور
والفورم عند الضغط على الكومبوبوكس لا يظهر لى شيئا

السلام عليكم و رحمة الله و بركاته
لم يتسنى لي الوقت للدخول الى المنتدى لذلك اعتذر عن عدم الرد وبسرعة

قم بالتعديل على الفورم كالتالي

كود :

قم بحذف 

'loadserver(cmbServerName)

        'cmbServerName.SelectedIndex = 0

استبدلهم بالتالي

  cmbServerName.Text = frmSplash.CMBServer.Text

وزر الانهاء

قم بحذف الموجود واستبدله 

End

RE: كود ربط البرنامج بقاعدة البيانات المتغيرة - حماده ممدوح البحيرى - 12-12-22

(11-12-22, 10:33 PM)العتيق كتب :
(11-12-22, 01:41 AM)حماده ممدوح البحيرى كتب :
(10-12-22, 10:23 PM)العتيق كتب : السلام عليكم و رحمة الله وبركاته

هذا المثال يفيدك اكثر من استخدام الاتصال بواسطة ملف خارجي
ارجو ان تستفيد منه

شكرا لك اخى الكريم ولكن تظهر لى هذه الرسالة التى بالصور
والفورم عند الضغط على الكومبوبوكس لا يظهر لى شيئا

السلام عليكم و رحمة الله و بركاته
لم يتسنى لي الوقت للدخول الى المنتدى لذلك اعتذر عن عدم الرد وبسرعة

قم بالتعديل على الفورم كالتالي

كود :

قم بحذف 'loadserver(cmbServerName) 'cmbServerName.SelectedIndex = 0 استبدلهم بالتالي cmbServerName.Text = frmSplash.CMBServer.Text وزر الانهاء قم بحذف الموجود واستبدله End مازالت نفس المشكلة اخى العتيق

RE: كود ربط البرنامج بقاعدة البيانات المتغيرة - gho - 13-12-22

(10-12-22, 08:45 PM)حماده ممدوح البحيرى كتب : السلام عليكم

كود :

Public ConStr As String = "Data Source= HAMADA-PC\SQLEXPRESS;Initial Catalog = Mat3amo;integrated security=true" Public Con As New SqlClient.SqlConnection(ConStr)

كيف يمكن الاعتماد على هذا الكونكشن من خلال ملف تكست خارجى موجود باسم معين داخل ملف السيطب

يعنى ياخوانى

بعد م اقوم بتسطيب الملف التنفيذى لبرنامجى
يقوم يبحث عن ملف تكست وليكن اسمه con داخل فولدر اسمه mat3am
حيث يفتح ملف التكست ويأخذ الكونكش الجديد بحسب جهاز العميل

اولا: تاكد انك عامل تعريف الاتصال DBConn واحد فقط لكامل المشروع

ثانيا: ضع داخل ملف التكست con.txt نص التالي كما هو

كود :

Data Source= HAMADA-PC\SQLEXPRESS;Initial Catalog = Mat3amo;integrated security=true

وهذا الكود بعد التعديل

كود :

Public ConStr As String = IO.File.ReadAllText(Application.StartupPath & "\mat3am\con.txt")

Public DBConn As New SqlConnection(ConStr)

لاحظ ان Application.StartupPath تعني مسار ملف تشغيل البرنامج ثم مجلد اسمه mat3am حسب قولك ثم داخله ملف con.txt

اذا حصل خطأ حدد السطر البرمجي مع ارفاق الملف النصي con.txt اللي عتدك

ولو تعمل مشروع بسيط من عندك وتطبق الفكرة عليه وترفقه يكون أفضل ليستطيع الاعضاء تعديله وارساله لك