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

الصفحات : 1 2

السلام عليكم

كود :

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

Public Con As New SqlClient.SqlConnection(ConStr)

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

يعنى ياخوانى

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

(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

وهذا الاتصال

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

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

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

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

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

(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

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

(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)العتيق كتب : [ -> ]السلام عليكم و رحمة الله وبركاته

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

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

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

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

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

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

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

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

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

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

كود :

قم بحذف 

'loadserver(cmbServerName)

        'cmbServerName.SelectedIndex = 0

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

  cmbServerName.Text = frmSplash.CMBServer.Text

وزر الانهاء

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

End

(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 مازالت نفس المشكلة اخى العتيق

(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 اللي عتدك

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

الصفحات : 1 2

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

حماده ممدوح البحيرى

h2551996

العتيق

حماده ممدوح البحيرى

أبو خالد الشكري

حماده ممدوح البحيرى

أبو خالد الشكري

العتيق

حماده ممدوح البحيرى

gho