摘要：
查詢 Sql = ("SELECT A1, A2, A5, A4 FROM Table1 ") 筆數 Sql = ("Select COUNT(*) From TW01.VW_DECA_oea WHERE (oeb04 = 'TEST')") 更新 Sql1 = ("update Table1 se 阅读全文
posted @ 2018-07-10 20:22
leme
阅读(156)
评论(0)
推荐(0)
摘要：
'導入命名空間 Imports ADODB Imports Microsoft.Office.Interop Private Sub A1() Dim Sql As StringDim Cnn As New ADODB.Connection Dim Rs As New ADODB.Recordset 阅读全文
posted @ 2018-07-10 19:30
leme
阅读(506)
评论(0)
推荐(0)
摘要：
'導入命名空間 Imports NPOI.HSSF.UserModelImports NPOI.HPSFImports NPOI.POIFS.FileSystem Private Sub A1()'方法1-導到Excel Dim workbook As HSSFWorkbook = New HSSF 阅读全文
posted @ 2018-07-10 15:46
leme
阅读(3383)
评论(0)
推荐(0)
摘要：
Dim dMyDate As DateTime = DateTime.Now‘當前時間日期 DateDiff("h", C13, C3)’ 二時間差 ‘日期格式 C2 = Format(dMyDate, "yyyy-MM-dd_HH:mm:ss") DateTimePicker1.Value = d 阅读全文
posted @ 2018-07-10 15:11
leme
阅读(1436)
评论(0)
推荐(0)
摘要：
Private Sub A1() '创建发件连接,根据你的发送邮箱的SMTP设置填充 Dim a As System.Net.Mail.Attachment Dim smtp As New System.Net.Mail.SmtpClient("郵箱地址", 25) '发件邮箱身份验证,参数分别为 阅读全文
posted @ 2018-07-10 14:13
leme
阅读(226)
评论(0)
推荐(0)
摘要：
Dim过程级变量 Private模块级变量 Public全局变量 Integer(整型) Long(长整型) Single(單精度浮點型) Double(双精度浮点型) Decimal(十进制型) Short(短整型) Char包含单个字符 String包含任意一串字符 布尔类型（Boolean）： 阅读全文
posted @ 2018-07-10 14:09
leme
阅读(607)
评论(0)
推荐(0)
摘要：
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 阅读全文
posted @ 2018-07-10 13:36
leme
阅读(1752)
评论(0)
推荐(0)
摘要：
Me.ComboBox1.Items.Add(Reader.Item(0)) ‘ComboBox增加內容 Me.ComboBox1.Items.Clear() '清空ComboBox內容 ImeMode 属性 Disable IME 被禁用。如果使用此设置，则用户无法从键盘打开 IME，而且 IME 阅读全文
posted @ 2018-07-10 11:09
leme
阅读(327)
评论(0)
推荐(0)
浙公网安备 33010602011771号