随笔分类 -  VBS

excel vba 1
摘要：Dim InParmType() As StringDim OutParmType() As StringDim InParm() As StringDim OutParm() As StringPublic Dbhandle As New DbProcDim strSql As StringDim rs01 As ADODB.RecordsetDim rs02 As ADODB.RecordsetPrivate Sub CommandButton1_Click() Dim I As Integer Dim Version As String Dim SubVersion As String 阅读全文
posted @ 2011-05-27 16:38 abenz 阅读(257) 评论(0) 推荐(0)
日期格式改为字符串形式
摘要：--today.vbs--today=Year(Date()) & Right("0" & Month(Date()),2) & Right("0" & Day(Date()),2)wscript.echo today--yesterday.vbs--yesterday=DateAdd("d",-1,date) yesterday_=Year(yesterday) ... 阅读全文
posted @ 2010-10-21 15:01 abenz 阅读(531) 评论(0) 推荐(0)
windows 事件日志写入sqlserver
摘要：Set objConn = CreateObject("ADODB.Connection")Set objRS = CreateObject("ADODB.Recordset")objConn.Open "Provider=SQLOLEDB.1;Password=****;Persist Security Info=True;User ID=zhang;Initial Catalog=IPOPJ;... 阅读全文
posted @ 2010-10-21 14:38 abenz 阅读(308) 评论(0) 推荐(0)