| http://darkdee-shek.blogspot.com/
|
| |
| Public Function Cmd(ByVal Command As String) As String
Dim process As New System.Diagnostics.Process()
process.StartInfo.FileName = "cmd.exe"
process.StartInfo.UseShellExecute = False
process.StartInfo.RedirectStandardInput = True
process.StartInfo.RedirectStandardOutput = True
process.StartInfo.RedirectStandardError = True
process.StartInfo.CreateNoWindow = True
process.Start()
process.StandardInput.WriteLine(Command)
process.StandardInput.WriteLine("exit")
Dim Result As String = process.StandardOutput.ReadToEnd()
process.Close()
Return Result
End Function
usage:
Dim result As String result = Cmd("ipconfig") Debug.Print(result)
Reference: http://blog.xuite.net/jeremy5189/vbdisplay/22967489
|
| |
| 首先登左你個Account先, 之後揀右上角的設定, 如下圖
之後選"轉寄和POP/IMAP"
再揀埋"轉寄外來郵件的副本給...", 在白色的地方打返你想轉寄去的電郵地址
最後按"儲存變更", 就可以了
|
| |
| Remove Column is a bit complicated because SQLite do not support remove Column =.=
So what I am going to do is
1. backup a table
2. create a new table
3. insert data into new table by backup table
Public Sub executeNonQuery(ByVal sql As String)
While busy
End While
busy = True
Try
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = sql
SQLcommand.ExecuteNonQuery()
SQLcommand.Dispose()
Catch ex As Exception
End Try
busy = False
End Sub
Private Function getAllColumnName(ByVal tableName As String)
Dim sql As String = "SELECT * From " + tableName + " WHERE page = 1;"
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = sql
Dim columnNames As String = ""
Try
Dim sqlDataReader As SQLite.SQLiteDataReader = SQLcommand.ExecuteReader()
For i As Integer = 0 To sqlDataReader.VisibleFieldCount - 1
If i = sqlDataReader.VisibleFieldCount - 1 Then
columnNames += sqlDataReader.GetName(i)
Else
columnNames += sqlDataReader.GetName(i) + ", "
End If
Next
Catch ex As Exception
End Try
Return columnNames
End Function
Public Sub removeColumn(ByVal tableName As String, ByVal columnName As String)
Dim columnNames As String = getAllColumnName(tableName)
columnNames = columnNames.Replace(columnName + ", ", "")
columnNames = columnNames.Replace(", " + columnName, "")
columnNames = columnNames.Replace(columnName, "")
executeNonQuery("CREATE TEMPORARY TABLE " + tableName + "backup(" + columnNames + ");")
executeNonQuery("INSERT INTO " + tableName + "backup SELECT " + columnNames + " FROM " + tableName + ";")
executeNonQuery("DROP TABLE " + tableName + ";")
executeNonQuery("CREATE TABLE " + tableName + "(" + columnNames + ");")
executeNonQuery("INSERT INTO " + tableName + " SELECT " + columnNames + " FROM " + tableName + "backup;")
executeNonQuery("DROP TABLE " + tableName + "backup;")
End Sub
Add a column is much more easy
Public Sub addColumn(ByVal tableName As String, ByVal columnName As String, ByVal columnType As String)
executeNonQuery("ALTER TABLE " + tableName + " ADD COLUMN " + columnName + " " + columnType + ";")
End Sub |
| |
