2008年11月17日 星期一

[筆記] VB.NET存取文字檔


使用函數說明:
FreeFile()
- 傳回 FileOpen 函數下一個可用的檔案代號,傳回值是整數

FileOpen(檔案代號, 檔案名稱路徑, 檔案開啟模式)
- 使用檔案開啟模式,開啟檔案代號的檔案
- 檔案開啟模式
- OpenMode.Input:從檔案中讀取字元,這是已經存在的檔案,程式需要使用Try/End Try錯誤處理避免開啟不存在的檔案
- OpenMode.Output:將字元寫入檔案,如果檔案不存在,就建立此檔案,如果檔案已有內容會清除內容
- OpenMode.Append:將字元寫入檔案結尾的最後,它不會清除檔案內容,只是加在最後,如果檔案不存在,就建立此檔案

FileClose(檔案代號)
- 關閉檔案代號的檔案

Print(檔案代號, String)
- 將參數 String 的字串寫入檔案代號的檔案

PrintLine(檔案代號, String)
- 同 Print 函數,只是在最後加一個換行符號

LineInput(檔案代號)
- 傳回開啟循序檔讀取的單行資料,但是不包含換行符號,傳回值是 String 字串變數

EOF(檔案代號)
- 傳回參數檔案代號的檔案是否已經到達檔尾,傳回布林值 True 為是,False 為否


例:寫入資料到 Test.txt 檔案中
Dim FileNum As Integer
Dim strTemp as String

FileNum = FreeFile()
FileOpen(FileNum, "C:\Test.txt", OpenMode.Output)

strTemp = "輸入測試字串"
PrintLine(FileNum, strTemp)

FileClose(FileNum)


例:從 Test.txt 檔案中讀取資料
Dim FileNum As Integer
Dim strTemp as String

FileNum = FreeFile()
FileOpen(FileNum, "C:\Test.txt", OpenMode.Input)

Do Until EOF(FileNum)
strTemp &= LineInput(FileNum) & vbNewLine
Loop

FileClose(FileNum)

[筆記]取得執行檔目前路徑

Application.ExecutablePath

2008年11月6日 星期四

[筆記]vb.net連接mysql資料庫

連線
Imports MySql.Data.MySqlClient

Dim conn As MySqlConnection

Private Sub cmdLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLogin.Click
conn = New MySqlConnection()
conn.ConnectionString = "server=" & txtServer.Text & ";" _
& "user id=" & txtUsername.Text & ";" _
& "password=" & txtPassword.Text & ";" _
& "database=in_out"

End Sub