菜鸟蹒跚学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 

VB自动生成insert语句

  • 2010年07月28日 09:08
  • 22KB
  • 下载

Oracle-自动生成insert、update、select、javabean语句

首先把下面语句 在Oracle中执行一下create or replace function my_concat(tableName varchar2,type varchar2) return va...

菜鸟学php扩展 之 自动生成的扩展框架详解(二)

前言上一文:菜鸟学php扩展 之 hello world(一) ,不问所以然的,强行与php扩展say hello了。对于ext_skel自动生成的框架,将在本文进行详解,当作备忘录。正文ext_sk...

DB自动生成用vbs脚本

  • 2010年11月23日 09:53
  • 3KB
  • 下载

【菜鸟看框架】——EF如何自动生成实体

引言  在上一篇博客中给大家介绍了一些关于EF框架的基本知识,让大家对实体架构算是有了一个入门的认识,当然知识 这一篇博客是不能很清楚的理解实体架构的内涵的,我们需要在实践中自己去不断的研究和探索...

菜鸟学习四种制作Word自动生成目录的方法!

Word给我们办公带来了不少方便,相信大家也是非常熟悉不过了。但是你确定在Word里面所有功能你都会使用吗?相信就算经常与Word打交道的高手也不会说是。今天Word联盟就为大家介绍五种制作Word自...

关于sqlserver的自动生成包含数据的insert脚本问题

关于sqlserver的自动生成包含数据的insert脚本问题 最近在一个项目上,需要数据的增量导入。项目上用的是sqlserver数据库。好久没有直接sql语句操作数据库了。感觉有点手生了 解决此...

mybatis自动生成mapper中的insert与insertseletive,updateByPrimaryKey,updateByPrimaryKeySelective方法的区别

对于insert: //插入一条数据 //支持Oracle序列,UUID,类似Mysql的INDENTITY自动增长(自动回写) //优先使用传入的参数值,参数值空时,才会使用序列、UUID,自动增长...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:菜鸟蹒跚学ASP-自动生成Insert语句的VBS
举报原因:
原因补充:

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