菜鸟蹒跚学ASP-自动生成Insert语句的VBS

原创 2007年09月30日 15:36:00

在Coding的时候,发现最麻烦的是什么啊,是表单提交数据后,往数据库里面插入数据,所以我写了一个自动生成Insert语句的VBS,感觉很好用。节省大量时间啊。


' ----- ExeScript Options Begin -----
' ScriptType: window
' DestDirectory: temp
' Icon: default
' ----- ExeScript Options End -----
set cn = CreateObject("ADODB.Connection")
cnstr = "这里写对应的数据库的链接字符串"
cn.open cnstr
strInput = InputBox("请输入需要查询的表格名称")
sql = "Select a.name,a.length,b.name from syscolumns a, systypes b,sysobjects c where a.xtype=b.xtype and a.id = c.id and c.name = " & Quote(strInput)
set rs= CreateObject("ADODB.RecordSet")
rs.open sql,cn,1,3
set fso = CreateObject("Scripting.FileSystemObject")
set objShell=CreateObject("WScript.Shell")
set f = fso.OpenTextFile(objShell.SpecialFolders.Item("桌面") & "字段名.txt",2,true)

'msgbox objShell.SpecialFolders.Item("Desktop") & "字段名.txt"
Redim ss(rs.RecordCount)
for i = 0 to rs.RecordCount -1
 ss(i) = Bracket(rs(0))
 rs.MoveNext
next
sql = "INSERT INTO " & strInput & """" & " & _"& vbCrlf
Fields = join(ss,",")
Fields =  left(Fields,len(fields) - 1)
Fields = Quote2(" ( " & Fields & ")")
sql = sql & Fields & " & _" & vbCrlf & """" & " VALUES (  "
sql = Quote2(sql) & " & "
Fields = ""
for i = 0 to ubound(ss) -1
 if i <> ubound(ss) - 1 then
  Fields = Fields & "str" + ss(i) & " & " & Quote2(",") &  " & "
 else
  Fields = Fields & "str" + ss(i) & " & "
 end if
next

sql = sql & Fields & Quote2(")")
f.Write sql & vbCrlf
for i = 0 to ubound(ss) - 1
 f.WriteLine "str" & ss(i) & " = "
next
f.close
rs.close
cn.close
objShell.Run "Notepad.exe " & objShell.SpecialFolders.Item("桌面") & "字段名.txt"


function Quote(str)
Quote = "'" & str & "'"
end function
function Quote2(str)
 Quote2 = """" & str & """"
end function


function Bracket(str)
Bracket = "[" & str & "]"
end function 

菜鸟蹒跚学ASP-前言

单位要搞网上考试,需要一个考试系统,BS的。并发数量在150,1个月后就要。找公司开发肯定是来不及了,买现成的有太贵,因为功能要求简单, 就单选、多选、判断3类题型,最后出个报表就行。网上粗略找了下,...
  • darkread
  • darkread
  • 2007年07月30日 17:34
  • 568

菜鸟蹒跚学ASP-抓狂篇

这篇很短,但是我影响太深刻了。事件一:数据库无法连接 本来的后台数据库是Access,考虑性能问题,我把它迁移到SQL Server上面,结果就提示提示错误类型:Microsoft OLE DB Pr...
  • darkread
  • darkread
  • 2007年08月03日 12:10
  • 743

菜鸟蹒跚学ASP-学习语法篇

一开始,觉得ASP就是VBS。一切一直鄙视ASP觉得这个更多是属于美工的事情,属于Coder的内容非常少,鄙视之,后来也读过部分ASP代码,觉得除了几个对象其他都是ADO操作数据库的事情,没有技术含量...
  • darkread
  • darkread
  • 2007年07月31日 11:40
  • 614

菜鸟蹒跚学ASP-定时无感觉POST篇

下面这段代码的好处是,定时Post数据到服务端,带上对于Brower端的用户来讲,不会感觉到,因为页面刷新后,纵向滚动条的位置不变。我是针对做考卷的数据保存问题写的。如果一张考卷有50道题目,那么肯定...
  • darkread
  • darkread
  • 2007年09月28日 08:58
  • 687

Oracle数据库自动生成insert语句

Oracle数据库自动生成insert语句 http://jingyan.baidu.com/article/380abd0a14e0651d90192c...
  • csnewdn
  • csnewdn
  • 2016年11月14日 16:26
  • 636

从Oracle数据库中读取数据,自动生成INSERT语句

--Create Table:DROP TABLE Advance_Query;CREATE TABLE Advance_Query( Tbl   VARCHAR2(30) NOT NULL, --表...
  • striveman
  • striveman
  • 2006年09月08日 14:22
  • 4978

自动生成Insert 语句的小工具

做了一个小工具,可以将 SQLSERVER 中的表、视图或者查询语句导出为Insert 语句。   如上图所示,你只要输入查询字符串,查询的SQL 语句 比如 select * from news生成...
  • eaglet
  • eaglet
  • 2009年12月15日 11:52
  • 3115

sql的insert语句自动生成器_c#源码

using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; ...
  • zhangdong7514280095
  • zhangdong7514280095
  • 2012年10月24日 19:17
  • 3380

原来编程还可以这样学习

近来入手了一台IPAD,想着怎么样把它给孩子更好地学习,提高学习能力。一个正在读二年级的小孩能否可以通过编程思维锻炼,提高独立思考能力,解决问题的能力吗?这个问题通过IPAD,昨晚我突然发现是可以的,...
  • caimouse
  • caimouse
  • 2017年05月20日 16:24
  • 548

VBS菜鸟实战

无聊的每一天,看**网站的时候,竟意外发现我的电脑中毒自动关机了,NND,真是第一次,哥上论坛泡了一天天,渐渐有点懂了。。于是,我也来玩玩首先,创建脚本set a=createobject("wscr...
  • Lee365052989
  • Lee365052989
  • 2011年04月24日 11:27
  • 321
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:菜鸟蹒跚学ASP-自动生成Insert语句的VBS
举报原因:
原因补充:

(最多只允许输入30个字)