17-04-18, 03:00 AM
كود :
Imports System.Data.SqlClient
Imports System.IO
Public SqlConn As New SqlClient.SqlConnection
Public Sub OpenConnect()
If SqlConn.State = 1 Then SqlConn.Close()
Try
SqlConn = New SqlConnection(File.ReadAllText("D:\Connection\Connection.txt"))
SqlConn.Open()
Catch ex As Exception
MsgBox(ex.Message)
SqlConn.Close()
End Try
End Subكود :
Data Source=ٍServer;Initial Catalog=DATA_Base;Integrated Security=True