common.vb

来自「用VB.NET开发的GeoMedia一个实例」· VB 代码 · 共 38 行

Imports System.IO
Imports System.Text

Namespace Common

    Public Class IO

        Public Shared Sub Log(ByVal strMessage As String)

            Return

            'Dim objFileOut As New System.IO.StreamWriter("C:\Inetpub\wwwroot\TestDisplayMap\bin\compMaplog.txt")
            Dim fs As New FileStream("gislog.txt", FileMode.Append)
            Dim sw As New StreamWriter(fs, Encoding.ASCII)

            strMessage = DateTime.Now + " : " + strMessage
            sw.WriteLine(strMessage)
            sw.Close()
            fs.Close()
        End Sub

    End Class

    Public Class Connection
        Public Shared Function GetConnection() As OleDb.OleDbConnection
            Dim strConn As String
            Dim oleConn As OleDb.OleDbConnection

            strConn = "Provider=MSDAORA;User ID=TESTDATA;Password=TESTDATA;Data Source=LOCALDB"
            oleConn = New OleDb.OleDbConnection(strConn)
            oleConn.Open()

            Return oleConn
        End Function
    End Class

End Namespace