?? common.vb
字號(hào):
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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -