摘要：
查詢 Sql = ("SELECT A1, A2, A5, A4 FROM Table1 ") 筆數 Sql = ("Select COUNT(*) From TW01.VW_DECA_oea WHERE (oeb04 = 'TEST')") 更新 Sql1 = ("update Table1 se 阅读全文
摘要：
'導入命名空間 Imports ADODB Imports Microsoft.Office.Interop Private Sub A1() Dim Sql As StringDim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset 阅读全文
摘要：
'導入命名空間 Imports NPOI.HSSF.UserModelImports NPOI.HPSFImports NPOI.POIFS.FileSystem Private Sub A1()'方法1-導到Excel Dim workbook As HSSFWorkbook = New HSSF 阅读全文
摘要：
Dim dMyDate As DateTime = DateTime.Now‘當前時間日期 DateDiff("h", C13, C3)’ 二時間差 ‘日期格式 C2 = Format(dMyDate, "yyyy-MM-dd_HH:mm:ss") DateTimePicker1.Value = d 阅读全文
摘要：
Private Sub A1() '创建发件连接,根据你的发送邮箱的SMTP设置填充 Dim a As System.Net.Mail.Attachment Dim smtp As New System.Net.Mail.SmtpClient("郵箱地址", 25) '发件邮箱身份验证,参数分别为 阅读全文
摘要：
Dim过程级变量 Private模块级变量 Public全局变量 Integer(整型) Long(长整型) Single(單精度浮點型) Double(双精度浮点型) Decimal(十进制型) Short(短整型) Char包含单个字符 String包含任意一串字符 布尔类型（Boolean）： 阅读全文
摘要：
Public Function colour(ByVal Code As Int16) As Color'顏色 Select Case Code Case 1 colour = Color.White'白色 Case 2 colour = Color.Yellow'黃色 Case 3 colour 阅读全文
摘要：
Me.ComboBox1.Items.Add(Reader.Item(0)) ‘ComboBox增加內容 Me.ComboBox1.Items.Clear() '清空ComboBox內容 ImeMode 属性 Disable IME 被禁用。如果使用此设置，则用户无法从键盘打开 IME，而且 IME 阅读全文