19 lines
485 B
VB.net
19 lines
485 B
VB.net
Imports System.ComponentModel
|
|
Imports Microsoft.VisualBasic
|
|
|
|
Namespace EDOKA
|
|
Public Class DB_Connection
|
|
Shared Sub New()
|
|
oread = IO.File.OpenText(Globals.ApplicationPath + "edokaconn.cfg")
|
|
sConnectionString_edoka = oread.ReadLine
|
|
Globals.sConnectionString_edoka = sConnectionString_edoka
|
|
oread.Close()
|
|
|
|
Globals.conn_edoka.sConnectionString = sConnectionString_edoka
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
|
|
End Namespace
|