Database Connection

Imports System.Data.SqlClient

Imports System.IO

Namespace DataAcces

Public Class DatabaseConnection

Public Function open() As SqlClient.SqlConnection

'******************GET IP FROM FILE****************************

'Dim sFileName As String

'Dim srFileReader As System.IO.StreamReader

'Dim sInputLine As String

'sFileName = "c:\Lokasi.txt"

'srFileReader = System.IO.File.OpenText(sFileName)

'sInputLine = srFileReader.ReadLine()

'IP = sInputLine

'sInputLine = srFileReader.ReadLine()

'DatabaseName = sInputLine

'sInputLine = srFileReader.ReadLine()

'*****************************************************************

'******************GET IP MANUALY********************

'IP = "ISSJKT-PC067\MEINDI"

'DatabaseName = "LevelUp"

'IP = "ISSJKT-PC067\MEINDI"

'DatabaseName = "LevelUp"

'****************************************************

'********************GET IP AUTOMATIC FROM SYSTEM**********************

'IP = System.Net.Dns.GetHostName()

'DatabaseName = "LevelUp"

'**********************************************************************

Dim connect As New SqlClient.SqlConnection("Data Source=ISS-AD;Initial Catalog=levelup;Persist Security Info=True;User ID=levelup;Password='levellevel'")

' Dim connect As New SqlClient.SqlConnection("Data Source=ISSJKT-PC067\MEINDI;Initial Catalog=levelup;integrated Security=True")

' Dim IP, DatabaseName As Integer

' IP = "ISSJKT-PC067\MEINDI"

' DatabaseName = "LevelUp"

' Dim connect As New SqlClient.SqlConnection("Data Source=" + IP + ";Initial Catalog=" + DatabaseName + ";Integrated Security=True")

connect.Open()

Return connect

End Function

Public Function close() As SqlClient.SqlConnection

'******************GET IP FROM FILE****************************

'Dim sFileName As String

'Dim srFileReader As System.IO.StreamReader

'Dim sInputLine As String

'sFileName = "c:\Lokasi.txt"

'srFileReader = System.IO.File.OpenText(sFileName)

'sInputLine = srFileReader.ReadLine()

'IP = sInputLine

'sInputLine = srFileReader.ReadLine()

'DatabaseName = sInputLine

'sInputLine = srFileReader.ReadLine()

'*****************************************************************

'******************GET IP MANUALY********************

'IP = "ISSJKT-PC067\MEINDI"

'DatabaseName = "LevelUp"

'IP = "ISSJKT-PC067\MEINDI"

'DatabaseName = "LevelUp"

'****************************************************

'********************GET IP AUTOMATIC FROM SYSTEM**********************

'IP = System.Net.Dns.GetHostName()

' DatabaseName = "LevelUp"

'**********************************************************************

'Dim IP, DatabaseName As string

'IP = "ISSJKT-PC067\MEINDI"

' DatabaseName = "LevelUp"

' Dim connect As New SqlClient.SqlConnection("Data Source=" + IP + ";Initial Catalog=" + DatabaseName + ";Integrated Security=True")

Dim connect As New SqlClient.SqlConnection("Data Source=ISS-AD;Initial Catalog=levelup;Persist Security Info=True;User ID=levelup;Password='levellevel'")

' Dim connect As New SqlClient.SqlConnection("Data Source=ISSJKT-PC067\MEINDI;Initial Catalog=levelup;integrated Security=True")

connect.Close()

Return connect

End Function

End Class

End Namespace