[h2551996]

(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
وهذا الاتصال