- 博客(6)
- 资源 (2)
- 收藏
- 关注
原创 text根据公式自动计算。
Dim s If Text1 = "" Then Exit Sub On Error GoTo errHandler Set s = CreateObject("ScriptControl") s.Language = "VBScript" Text1 = s.Eval(Text1) Set s = Nothing flag = Tr
2009-05-18 10:53:00
713
原创 去掉数据库中的回车符和全角空格
replace(replace(@str,char(13),),char(10),) 去掉全角空格replace(replace(string, ,), ,) RTRIM()只能去掉半角空格
2009-03-17 15:28:00
1213
原创 vb 获取文件的时间属性
Sub ShowFileAccessInfo(filespec) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(filespec) s
2009-02-25 22:35:00
1169
原创 简单的备份删除数据库
backup datasase 数据库名 to disk=路径/备份名.bak 删除数据库:IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N数据库名) DROP DATABASE [数据库名] GO
2009-02-11 23:25:00
661
原创 标准行专列
表:id--------name-------sort-------fen1--------zhang-------语文-------701--------zhang-------数学-------751--------zhang-------英语-------802--------wu-----------语文-------852--------wu----------
2009-02-10 22:42:00
699
原创 select 查询存储过程结果
select * from openrowset( SQLOLEDB, sql服务器名; 用户名; 密码,exec 存儲過程) where 條件 例子: SELECT * FROM OPENROWSET(SQLOLEDB, DRIVER={SQL Server};Server=.;UID=sa;PWD=,SET NOCOUNT ON SET FMTONLY
2009-02-09 10:06:00
1741
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人