精妙的SQL和SQL SERVER 与ACCESS、EXCEL的数据导入导出转换

前端之家收集整理的这篇文章主要介绍了精妙的SQL和SQL SERVER 与ACCESS、EXCEL的数据导入导出转换前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

说明:复制表(只复制结构,源表名:a新表名:b)
select
intobfromawhere1<>1
说明:拷贝表(拷贝数据,源表名:a目标表名:b)
insertintob(a,b,c)selectd,e,ffromb;
说明:显示文章、提交人和最后回复时间
selecta.title,a.username,b.adddatefromtablea,(selectmax(adddate)adddatefromtablewheretable.title=a.title)b
说明:外连接查询(表名1:a表名2:b)
selecta.a,a.b,a.c,b.c,b.d,b.ffromaLEFTOUTJOINbONa.a=b.c
说明:日程安排提前五分钟提醒
selectfrom日程安排wheredatediff('minute',f开始时间,getdate())>5
说明:两张关联表,删除主表中已经在副表中没有的信息
deletefrominfowherenotexists(selectfrominfobzwhereinfo.infid=infobz.infid)
说明:-- sql:
SelectA.NUM,A.NAME,B.UPD_DATE,B.PREV_UPD_DATE
FROMTABLE1,
(SelectX.NUM,X.UPD_DATE,Y.UPD_DATEPREV_UPD_DATE
FROM(SelectNUM,UPD_DATE,INBOUND_QTY,STOCK_ONHAND
FROMTABLE2
WhereTO_CHAR(UPD_DATE,'YYYY/MM')=TO_CHAR(SYSDATE,'YYYY/MM'))X,
(SelectNUM,'YYYY/MM')=
TO_CHAR(TO_DATE(TO_CHAR(SYSDATE,'YYYY/MM')||'/01','YYYY/MM/DD')-1,'YYYY/MM'))Y,
WhereX.NUM=Y.NUM(+)
ANDX.INBOUND_QTY+NVL(Y.STOCK_ONHAND,0)<>X.STOCK_ONHAND)B
WhereA.NUM=B.NUM
说明:--
select
fromstudentinfowherenotexists(selectfromstudentwherestudentinfo.id=student.id)and系名称='"&strdepartmentname&"'and专业名称='"&strprofessionname&"'orderby性别,生源地,高考总成绩
数据库中去一年的各单位电话费统计(电话费定额贺电化肥清单两个表来源)
Selecta.userper,a.tel,a.standfee,TO_CHAR(a.telFeedate,'yyyy')AStelyear,
SUM(decode(TO_CHAR(a.telFeedate,'mm'),'01',a.factration))ASJAN,'02',a.factration))ASFRI,'03',a.factration))ASMAR,'04',a.factration))ASAPR,'05',a.factration))ASMAY,'06',a.factration))ASJUE,'07',a.factration))ASJUL,'08',a.factration))ASAGU,'09',a.factration))ASSEP,'10',a.factration))ASOCT,'11',a.factration))ASNOV,'12',a.factration))ASDEC
FROM(Selecta.userper,b.telFeedate,b.factration
FROMTELFEESTANDa,TELFEEb
Wherea.tel=b.telfax)a
GROUPBYa.userper,'yyyy')
说明:四表联查问题
select
fromaleftinnerjoinbona.a=b.brightinnerjoincona.a=c.cinnerjoindona.a=d.dwhere.....
说明:得到表中最小的未使用的ID号
Select(CASEWHENEXISTS(SelectFROMHandlebWhereb.HandleID=1)THENMIN(HandleID)+1ELSE1END)asHandleIDFROMHandleWhereNOTHandleIDIN(Selecta.HandleID-1FROMHandlea)
一个sql语句的问题:行列转换
selectfromv_temp
上面的视图结果如下:
user_namerole_name
-------------------------
系统管理员管理员
feng管理员
feng一般用户
test一般用户
想把结果变成这样:
user_namerole_name
---------------------------
系统管理员管理员
feng管理员,一般用户
test一般用户
===================
createtablea_test(namevarchar(20),role2varchar(20))
insertintoa_testvalues('李','管理员')
insertintoa_testvalues('张','一般用户')
insertintoa_testvalues('常','一般用户')
createfunctionjoin_str(@contentvarchar(100))
returnsvarchar(2000)
as
begin
declare@strvarchar(2000)
set@str=''
select@str=@str+','+rtrim(role2)froma_testwhere[name]=@content
select@str=right(@str,len(@str)-1)
return@str
end
go
--调用
select[name],dbo.join_str([name])role2froma_testgroupby[name]
--selectdistinctname,dbo.uf_test(name)froma_test
快速比较结构相同的两表
结构相同的两表,一表有记录3万条左右,一表有记录2万条左右,我怎样快速查找两表的不同记录?
============================
给你一个测试方法,从northwind中的orders表取数据。
selectinton1fromorders
select
inton2fromorders
selectfromn1
select
fromn2
--添加主键,然后修改n1中若干字段的若干条
altertablen1addconstraintpk_n1_idprimarykey(OrderID)
altertablen2addconstraintpk_n2_idprimarykey(OrderID)
selectOrderIDfrom(selectfromn1unionselectfromn2)agroupbyOrderIDhavingcount()>1
应该可以,而且将不同的记录的ID显示出来。
下面的适用于双方记录一样的情况,
select
fromn1whereorderidin(selectOrderIDfrom(selectfromn1unionselectfromn2)agroupbyOrderIDhavingcount(*)>1)
至于双方互不存在的记录是比较好处理的
--删除n1,n2中若干条记录
deletefromn1whereorderIDin('10728','10730')
deletefromn2whereorderIDin('11000','11001')
--*****
--双方都有该记录却不完全相同
selectfromn1whereorderidin(selectOrderIDfrom(selectfromn1unionselectfromn2)agroupbyOrderIDhavingcount()>1)
union
--n2中存在但在n1中不存的在10728,10730
selectfromn1whereOrderIDnotin(selectOrderIDfromn2)
union
--n1中存在但在n2中不存的在11000,11001
select
fromn2whereOrderIDnotin(selectOrderIDfromn1)
四种方法取表里n到m条纪录:
1.
selecttopm
into临时表(或表变量)fromtablenameorderbycolumnname--将topm笔插入
setrowcountn
selectfrom表变量orderbycolumnnamedesc 2.
selecttopn
from(selecttopmfromtablenameorderbycolumnname)aorderbycolumnnamedesc 3.如果tablename里没有其他identity列,那么:
selectidentity(int)id0,
into#tempfromtablename
取n到m条的语句为:
selectfrom#tempwhereid0>=nandid0<=m
如果你在执行selectidentity(int)id0,
into#tempfromtablename这条语句的时候报错,那是因为你的DB中间的selectinto/bulkcopy属性没有打开要先执行:
execsp_dboption你的DB名字,'selectinto/bulkcopy',true 4.如果表里有identity属性,那么简单:
selectfromtablenamewhereidentitycolbetweennandm
如何删除一个表中重复的记录?
createtablea_dist(idint,namevarchar(20))
insertintoa_distvalues(1,'abc')
insertintoa_distvalues(1,'abc')
execup_distinct'a_dist','id'
selectfroma_dist
createprocedureup_distinct(@t_namevarchar(30),@f_keyvarchar(30))
--f_key表示是分组字段﹐即主键字段
as
begin
declare@maxinteger,@idvarchar(30),@sqlvarchar(7999),@typeinteger
select@sql='declarecur_rowscursorforselect'+@f_key+',count(
)from'+@t_name+'groupby'+@f_key+'havingcount()>1'
exec(@sql)
opencur_rows
fetchcur_rowsinto@id,@max
while@@fetch_status=0
begin
select@max=@max-1
setrowcount@max
select@type=xtypefromsyscolumnswhereid=object_id(@t_name)andname=@f_key
if@type=56
select@sql='deletefrom'+@t_name+'where'+@f_key+'='+@id
if@type=167
select@sql='deletefrom'+@t_name+'where'+@f_key+'='+''''+@id+''''
exec(@sql)
fetchcur_rowsinto@id,@max
end
closecur_rows
deallocatecur_rows
setrowcount0
end
select
fromsystypes
selectfromsyscolumnswhereid=object_id('a_dist')
查询数据的最大排序问题(只能用一条语句写)
CreateTABLEhard(quchar(11),cochar(11),jenumeric(3,0))
insertintohardvalues('A','1',3)
insertintohardvalues('A','2',4)
insertintohardvalues('A','4',2)
insertintohardvalues('A','6',9)
insertintohardvalues('B',4)
insertintohardvalues('B',5)
insertintohardvalues('B','3',6)
insertintohardvalues('C',4)
insertintohardvalues('C',7)
insertintohardvalues('C',3)
要求查询出来的结果如下:
qucoje
---------------------------
A69
A24
B36
B25
C67
C34
就是要按qu分组,每组中取je最大的前2位!!
而且只能用一句sql语句!!!
selectfromhardawherejein(selecttop2jefromhardbwherea.qu=b.quorderbyje)
删除重复记录的sql语句?
怎样把具有相同字段的纪录删除,只留下一条。
例如,表test里有id,name字段
如果有name相同的记录只留下一条,其余的删除
name的内容不定,相同的记录数不定。
有没有这样的sql语句?
==============================
A:一个完整的解决方案:
将重复的记录记入temp1表:
select[标志字段id],count()intotemp1from[表名]
groupby[标志字段id]
havingcount(
)>1
2、将不重复的记录记入temp1表:
inserttemp1select[标志字段id],count()from[表名]groupby[标志字段id]havingcount()=1
3、作一个包含所有不重复记录的表:
selectintotemp2from[表名]where标志字段idin(select标志字段idfromtemp1)
4、删除重复表:
delete[表名]
5、恢复表:
insert[表名]select
fromtemp2
6、删除临时表:
droptabletemp1
droptabletemp2
================================
B:
createtablea_dist(idint,@max
end
closecur_rows
deallocatecur_rows
setrowcount0
end
selectfromsystypes
select
fromsyscolumnswhereid=object_id('a_dist')
行列转换--普通 假设有张学生成绩表(CJ)如下
NameSubjectResult
张三语文80
张三数学90
张三物理85
李四语文85
李四数学92
李四物理82
想变成
姓名语文数学物理
张三809085
李四859282
declare@sqlvarchar(4000)
set@sql='selectName'
select@sql=@sql+',sum(caseSubjectwhen'''+Subject+'''thenResultend)['+Subject+']'
from(selectdistinctSubjectfromCJ)asa
select@sql=@sql+'fromtestgroupbyname'
exec(@sql)
行列转换--合并 有表A,
idpid
11
12
13
21
22
31
如何化成表B:
idpid
11,2,3
21,2
31
创建一个合并的函数
createfunctionfmerg(@idint)
returnsvarchar(8000)
as
begin
declare@strvarchar(8000)
set@str=''
select@str=@str+','+cast(pidasvarchar)from表Awhereid=@id
set@str=right(@str,len(@str)-1)
return(@str)
End
go
--调用自定义函数得到结果
selectdistinctid,dbo.fmerg(id)from表A
如何取得一个数据表的所有列名
方法如下:先从SYSTEMOBJECT系统表中取得数据表的SYSTEMID,然后再SYSCOLUMN表中取得该数据表的所有列名。
sql语句如下:
declare@objidint,@objnamechar(40)
set@objname='tablename'
select@objid=idfromsysobjectswhereid=object_id(@objname)
select'Column_name'=namefromsyscolumnswhereid=@objidorderbycolid

SelectFROMINFORMATION_SCHEMA.COLUMNSWhereTABLE_NAME='users'
通过sql语句来更改用户的密码
修改别人的,需要sysadminrole
EXECsp_passwordNULL,'newpassword','User'
如果帐号为SA执行EXECsp_passwordNULL,sa
怎么判断出一个表的哪些字段不允许为空?
selectCOLUMN_NAMEfromINFORMATION_SCHEMA.COLUMNSwhereIS_NULLABLE='NO'andTABLE_NAME=tablename
如何在数据库里找到含有相同字段的表?
a.查已知列名的情况
Selectb.nameasTableName,a.nameascolumnname
FromsyscolumnsaINNERJOINsysobjectsb
ONa.id=b.id
ANDb.type='U'
ANDa.name='你的字段名字'
未知列名查所有在不同表出现过的列名
Selecto.nameAstablename,s1.nameAscolumnname
Fromsyscolumnss1,sysobjectso
Wheres1.id=o.id
Ando.type='U'
AndExists(
Select1Fromsyscolumnss2
Wheres1.name=s2.name
Ands1.id<>s2.id
)
查询第xxx行数据
假设id是主键:
selectfrom(selecttopxxxfromyourtable)aawherenotexists(select1from(selecttopxxx-1fromyourtable)bbwhereaa.id=bb.id)
如果使用游标也是可以的
fetchabsolute[number]from[cursor_name]
行数为绝对行数
sqlServer日期计算
a.一个月的第一天
SelectDATEADD(mm,DATEDIFF(mm,getdate()),0)
b.本周的星期一
SelectDATEADD(wk,DATEDIFF(wk,0)
c.一年的第一天
SelectDATEADD(yy,DATEDIFF(yy,0)
d.季度的第一天
SelectDATEADD(qq,DATEDIFF(qq,0)
e.上个月的最后一天
Selectdateadd(ms,-3,DATEADD(mm,0))
f.去年的最后一天
Selectdateadd(ms,DATEADD(yy,0))
g.本月的最后一天
Selectdateadd(ms,DATEDIFF(m,getdate())+1,0))
h.本月的第一个星期一
selectDATEADD(wk,
dateadd(dd,6-datepart(day,getdate())
),0)
i.本年的最后一天
Selectdateadd(ms,0))。
获取表结构[把'sysobjects'替换成'tablename'即可]
SelectCASEIsNull(I.name,'')
When''Then''
Else'
'
EndasIsPK,
Object_Name(A.id)ast_name,
A.nameasc_name,
IsNull(SubString(M.text,1,254),'')aspbc_init,
T.nameasF_DataType,
CASEIsNull(TYPEPROPERTY(T.name,'Scale'),'')
WHEN''ThenCast(A.precasvarchar)
ELSECast(A.precasvarchar)+','+Cast(A.scaleasvarchar)
ENDasF_Scale,
A.isnullableasF_isNullAble
FROMSyscolumnsasA
JOINSystypesasT
ON(A.xType=T.xUserTypeANDA.Id=Object_id('sysobjects'))
LEFTJOIN(SysIndexesasI
JOINSyscolumnsasA1
ON(I.id=A1.idandA1.id=object_id('sysobjects')and(I.status&0x800)=0x800ANDA1.colid<=I.keycnt))
ON(A.id=I.idANDA.name=index_col('sysobjects',I.indid,A1.colid))
LEFTJOINSysCommentsasM
ON(M.id=A.cdefaultandObjectProperty(A.cdefault,'IsConstraint')=1)
ORDERBYA.ColidASC
提取数据库内所有表的字段详细说明的sql语句
Select
(casewhena.colorder=1thend.nameelse''end)N'表名',
a.colorderN'字段序号',
a.nameN'字段名',
(casewhenCOLUMNPROPERTY(a.id,a.name,'IsIdentity')=1then'√'else''
end)N'标识',
(casewhen(Selectcount(
)
FROMsysobjects
Where(namein
(Selectname
FROMsysindexes
Where(id=a.id)AND(indidin
(Selectindid
FROMsysindexkeys
Where(id=a.id)AND(colidin
(Selectcolid
FROMsyscolumns
Where(id=a.id)AND(name=a.name)))))))AND
(xtype='PK'))>0then'√'else''end)N'主键',
b.nameN'类型',
a.lengthN'占用字节数',
COLUMNPROPERTY(a.id,'PRECISION')asN'长度',
isnull(COLUMNPROPERTY(a.id,0)asN'小数位数',
(casewhena.isnullable=1then'√'else''end)N'允许空',
isnull(e.text,'')N'默认值',
isnull(g.[value],'')ASN'字段说明'
FROMsyscolumnsa
leftjoinsystypesb
ona.xtype=b.xusertype
innerjoinsysobjectsd
ona.id=d.idandd.xtype='U'andd.name<>'dtproperties'
leftjoinsyscommentse
ona.cdefault=e.id
leftjoinsyspropertiesg
ona.id=g.idANDa.colid=g.smallid
orderbyobject_name(a.id),a.colorder
快速获取表test的记录总数[对大容量表非常有效]
快速获取表test的记录总数:
selectrowsfromsysindexeswhereid=object_id('test')andindidin(0,1)
update2setKHXH=(ID+1)\22行递增编号
update[23]setid1='No.'+right('00000000'+id,6)whereidnotlike'No%'//递增
update[23]setid1='No.'+right('00000000'+replace(id1,'No.',''),6)//补位递增
deletefrom[1]where(id%2)=1
奇数
替换表名字段
update[1]setdomurl=replace(domurl,'Upload/Imgswf/','Upload/Photo/')wheredomurllike'%Upload/Imgswf/%'
截位
SelectLEFT(表名,5) 熟悉sqlSERVER2000的数据库管理员都知道,其DTS可以进行数据的导入导出,其实,我们也可以使用Transact-sql语句进行导入导出操作。在Transact-sql语句中,我们主要使用OpenDataSource函数、OPENROWSET函数,关于函数的详细说明,请参考sql联机帮助。利用下述方法,可以十分容易地实现sqlSERVER、ACCESS、EXCEL数据转换,详细说明如下:
一、sqlSERVER和ACCESS的数据导入导出
常规的数据导入导出:
使用DTS向导迁移你的Access数据到sqlServer,你可以使用这些步骤:
○1在sqlSERVER企业管理器中的Tools(工具)菜单上,选择DataTransformation
○2Services(数据转换服务),然后选择czdImportData(导入数据)。
○3在ChooseaDataSource(选择数据源)对话框中选择MicrosoftAccessastheSource,然后键入你的.mdb数据库(.mdb文件扩展名)的文件名或通过浏览寻找该文件
○4在ChooseaDestination(选择目标)对话框中,选择MicrosoftOLE DBProviderforsql Server,选择数据库服务器,然后单击必要的验证方式。
○5在SpecifyTableCopy(指定表格复制)或Query(查询)对话框中,单击Copytables(复制表格)。
○6在SelectSourceTables(选择源表格)对话框中,单击SelectAll(全部选定)。下一步,完成。
Transact-sql语句进行导入导出:
1.在sqlSERVER里查询access数据:
Select
FROMOpenDataSource('Microsoft.Jet.OLEDB.4.0','DataSource="c:\DB.mdb";UserID=Admin;Password=')...表名
2.将access导入sqlserver
sqlSERVER里运行:
SelectINTOnewtableFROMOPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','DataSource="c:\DB.mdb";UserID=Admin;Password=')...表名
3.将sqlSERVER表里的数据插入到Access表中
sqlSERVER里运行:
insertintoOpenDataSource('Microsoft.Jet.OLEDB.4.0','DataSource="c:\DB.mdb";UserID=Admin;Password=')...表名(列名1,列名2)select列名1,列名2fromsql
实例:
insertintoOPENROWSET('Microsoft.Jet.OLEDB.4.0','C:\db.mdb';'admin';'',Test)selectid,namefromTest
InsertINTOOPENROWSET('Microsoft.Jet.OLEDB.4.0','c:\trade.mdb';'admin';'',表名)Select
FROMsqltablename
二、sqlSERVER和EXCEL的数据导入导出
1、在sqlSERVER里查询Excel数据:
SelectFROMOpenDataSource('Microsoft.Jet.OLEDB.4.0','DataSource="c:\book1.xls";UserID=Admin;Password=;Extendedproperties=Excel5.0')...[Sheet1$]
下面是个查询的示例,它通过用于Jet的OLEDB提供程序查询Excel电子表格。
Select
FROMOpenDataSource('Microsoft.Jet.OLEDB.4.0','DataSource="c:\Finance\account.xls";UserID=Admin;Password=;Extendedproperties=Excel5.0')...xactions
2、将Excel的数据导入sqlserver:
SelectintonewtableFROMOpenDataSource('Microsoft.Jet.OLEDB.4.0','DataSource="c:\book1.xls";UserID=Admin;Password=;Extendedproperties=Excel5.0')...[Sheet1$]
实例:
Select
intonewtableFROMOpenDataSource('Microsoft.Jet.OLEDB.4.0','DataSource="c:\Finance\account.xls";UserID=Admin;Password=;Extendedproperties=Excel5.0')...xactions
3、将sqlSERVER中查询到的数据导成一个Excel文件
T-sql代码
EXECmaster..xp_cmdshell'bcp库名.dbo.表名outc:\Temp.xls-c-q-S"servername"-U"sa"-P""'
参数:S是sql服务器名;U是用户;P是密码
说明:还可以导出文本文件等多种格式
实例:EXECmaster..xp_cmdshell'bcpsaletesttmp.dbo.CusAccountoutc:\temp1.xls-c-q-S"pmserver"-U"sa"-P"sa"'
EXECmaster..xp_cmdshell'bcp"Selectau_fname,au_lnameFROMpubs..authorsORDERBYau_lname"queryoutC:\authors.xls-c-Sservername-Usa-Ppassword'
在VB6中应用ADO导出EXCEL文件代码
DimcnAsNewADODB.Connection
cn.open"Driver={sqlServer};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute"master..xp_cmdshell'bcp"Selectcol1,col2FROM库名.dbo.表名"queryoutE:\DT.xls-c-Sservername-Usa-Ppassword'"
4、在sqlSERVER里往Excel插入数据:
insertintoOpenDataSource('Microsoft.Jet.OLEDB.4.0','DataSource="c:\Temp.xls";UserID=Admin;Password=;Extendedproperties=Excel5.0')...table1(A1,A2,A3)values(1,3)
T-sql代码
InsertINTO
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0','ExtendedProperties=Excel8.0;Datasource=C:\training\inventur.xls')...Filiale1$VALUES(20,'Test')
总结:利用以上语句,我们可以方便地将sqlSERVER、ACCESS和EXCEL电子表格软件中的数据进行转换,为我们提供了极大方便!

猜你在找的MsSQL相关文章