摘要:
Private Sub A1() '加载窗体 frm1.Show() End Sub Private Sub A2() '離開 Process.GetCurrentProcess().Kill() End Sub Private Sub A3() '卸载窗体 Me.Close() End Sub P 阅读全文
摘要:
'導入命名空間Imports System.Data.OleDb '定義變量 Dim ds As DataSet = New DataSet() Dim i, cn As Integer Dim Sql As String 'Oracle連線 Dim SqlTP As OleDbConnection 阅读全文