摘要：
检查文件夹是否存在，若不存在则创建 If Not Directory.Exists("E:\Test456") Then Directory.CreateDirectory("E:\Test456") System.IO.File.Create("E:\Test456\1.txt").Dispose 阅读全文
posted @ 2020-04-22 15:57
revgin
阅读(106)
评论(0)
推荐(0)
摘要：
来源：http://blog.sina.com.cn/s/blog_af1320c70102yfi7.html '写文件 Dim mStreamWriter As New System.IO.StreamWriter(Application.StartupPath & "\1.txt") mStre 阅读全文
posted @ 2020-04-21 16:56
revgin
阅读(2687)
评论(0)
推荐(0)
摘要：
Private Sub btn_Save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Save.Click If My.Computer.Keyboard.CtrlKeyDown And 阅读全文
posted @ 2020-04-21 15:49
revgin
阅读(534)
评论(0)
推荐(0)
摘要：
'Create a new StopWatch to measure the' amount of time it takes to perform the' insertDim swatch As New Stopwatch()swatch.Start()'Configure the connec 阅读全文
posted @ 2020-04-21 15:47
revgin
阅读(499)
评论(0)
推荐(0)
摘要：
XML类 Public Class XMLHelperDim mXmlDoc As New System.Xml.XmlDocumentPublic XmlFile As String Public Sub New(ByVal File As String)MyClass.XmlFile = Fil 阅读全文
posted @ 2020-04-21 15:46
revgin
阅读(185)
评论(0)
推荐(0)
摘要：
一、复制表 1.只复制表结构到一张新表 select * into [New Table] from [Old Table] where 1=2 2.复制表结构和数据到一张新表 select * into [New Table] from [Old Table] 二、日期函数 昨天：select * 阅读全文
posted @ 2020-04-21 15:44
revgin
阅读(201)
评论(0)
推荐(0)
摘要：
1、Xlsx格式 Dim tmpdtb As DataTable Dim connectionString As String ' Used to store the connection string Dim customerList As New DataSet ' Used to store 阅读全文
posted @ 2020-01-15 14:44
revgin
阅读(1698)
评论(0)
推荐(0)
摘要：
Public Shared Sub WriteLog(ByVal strStyle As String, ByVal strContent As String) Dim curDate As String = CDate(Now).ToString("yyyy-MM-dd HH:mm:ss") Di 阅读全文
posted @ 2020-01-15 14:41
revgin
阅读(101)
评论(0)
推荐(0)
浙公网安备 33010602011771号