07 2018 档案
摘要：Imports System.IOImports System.ThreadingImports System.Diagnostics Public Class Form1 Dim A(254) As String Function ping(ByVal IP As Integer) As Stri
阅读全文
摘要：Sub nbtstat(ByVal ip As String) Dim strRst, strRst1, strRst2, strRst3 As String Dim n1, n2, n3 As Integer Try Dim p As New Process() '用Process就可以 p.St
阅读全文
摘要：Function ping(ByVal IP As String) As String If My.Computer.Network.Ping(IP) Then MessageBox.Show("ok") Else MessageBox.Show("ng") End If End Function
阅读全文
摘要：查詢 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
阅读全文
摘要：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
阅读全文
摘要：'空值判斷 If IsDBNull(DataGridView1.Item(1, 1).Value) = True Then DataGridView1.Item(1, 1).Value = "空值" End If '删除所有行 DataGridView1.Rows.Clear() '删除第一行 Da
阅读全文
摘要：Excel2007添加引用Microsoft Excel 12.0 library object '導入命名空間 Imports Microsoft.Office.Interop Private Sub A1() '導出Excel Dim Xls As Excel.Application = New
阅读全文
摘要：'導入命名空間Imports System.Data.OleDb '定義變量 Dim Sql As String 'OleDb連線 Dim SqlAC As OleDbConnection Dim CmdAC As OleDbCommand Dim drAC As OleDbDataReader '
阅读全文
摘要：Imports Oracle.DataAccess.Client '導入命名空間 Public Class Form1 Dim Sql As String Public SqlTP As OracleConnection = New OracleConnection("Password= ""密碼"
阅读全文
摘要：Function MD5(ByVal strSource As String, ByVal Code As Int16) As String'使用MD5加密 Dim dataToHash As Byte() = (New System.Text.ASCIIEncoding).GetBytes(str
阅读全文
摘要：'導入命名空間Imports System.Data.SqlClient '定義變量 Dim Sql As String 'SQL字串 Dim Sqlado As SqlConnection '连接数据库 Dim CmdVB As SqlCommand '对数据源执行SQL命令并返回数据 Dim d
阅读全文
浙公网安备 33010602011771号