摘要:
查詢 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 阅读全文