16 lines
708 B
VB.net
16 lines
708 B
VB.net
Imports DigitalData.Controls.SQLEditor
|
|
Imports DigitalData.Modules.Logging
|
|
Imports DigitalData.Modules.Database
|
|
|
|
Public Class Form1
|
|
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Dim oLogCOnfig As New LogConfig(LogConfig.PathType.Temp, Nothing, Nothing, Nothing, Nothing)
|
|
Dim oConnString = MSSQLServer.GetConnectionString("SDD-VMP04-SQL17\DD_DEVELOP01", "DD_ECM_TEST", "sa", "dd")
|
|
Dim oDatabase As New MSSQLServer(oLogCOnfig, oConnString)
|
|
Dim oConnections As DataTable = oDatabase.GetDatatable("SELECT * FROM TBDD_CONNECTION")
|
|
Dim oEditor As New frmSQLEditor(oLogCOnfig, oConnections)
|
|
|
|
oEditor.Show()
|
|
End Sub
|
|
End Class
|