20110108 学习记录：利用sql语句复制一条或多条记录

sql 复制记录 　　insert into article (id,class,title,content) select id,'2',title,content from article where class='1'

　　如果id为自动编号,就把改为:

　　insert into article (class,title,content) select '2',title,content from article where class='1'

　　如果class为数字类型,则去掉单引号.

VBS

Dim DBName, SQL
Dim objConnection
Dim ConnectionString
Dim DBUser, DBPWD, DBHost

DBName = "TMP"
DBUser = "sa"
DBPWD = "123"
DBHost = "s01"

Set objConnection =CreateObject("ADODB.Connection")
objConnection.ConnectionString = "Provider=SQLOLEDB.1;Password="+DBPWD+";Persist Security Info=True;User ID=sa;Initial Catalog=evision_prod;Data Source="+DBHost

SQL = "insert into SP_QUE([QUE_TYPE],[PARTNER],[CARRIER],[EDITYPE],[QUE_FILE],[BEGOFFSET],[ENDOFFSET],[DATETM],[SPSKEY],[INUSE],[SPSPID],[SEGDELIM],[ELMDELIM],[SUBDELIM],[NUMSEGS],[QUE_GROUP],[VERSION],[UNA],[UNH],[DECCHAR],[RELCHAR],[RSVCHAR],[RESEND],[MACRO_NAME]) select [QUE_TYPE],[PARTNER],[CARRIER],[EDITYPE],[QUE_FILE],[BEGOFFSET],[ENDOFFSET],[DATETM],[SPSKEY],[INUSE],[SPSPID],[SEGDELIM],[ELMDELIM],[SUBDELIM],[NUMSEGS],[QUE_GROUP],[VERSION],[UNA],[UNH],[DECCHAR],[RELCHAR],[RSVCHAR],[RESEND],[MACRO_NAME] from SP_QUE_MLM WHERE QUE_TYPE = 'INB' AND PARTNER like '%HSN%'"

objConnection.open
objConnection.Execute SQL
objConnection.Close