10-12-22, 09:35 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
حيث يفتح ملف التكست ويأخذ الكونكش الجديد بحسب جهاز العميل
كود :
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
وهذا الاتصال