+ -
当前位置:首页 → 问答吧 → 请教把归还表.xlsx的数据导入SQL 2008中图书管理系统中归还表

请教把归还表.xlsx的数据导入SQL 2008中图书管理系统中归还表

时间:2011-12-23

来源:互联网

请教:归还表.xlsx中四列(姓名、班级、性别、归还数量)的数据导入数据库(图书管理系统)中归还表,同样的四列(姓名、班级、性别、归还数量)

作者: lhpiaoyao   发布时间: 2011-12-23

偶是菜鸟,答复时请详尽点,谢谢

作者: lhpiaoyao   发布时间: 2011-12-23

方法一:
在VB中导入到SQL数据库中,下面为一个例子,你自己改一下即可。
SQL code
Sub aa()
Dim t
t = Timer
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
strcn = "Provider=sqloledb;Database=test;Uid=sa;Pwd=30687724;data source=127.0.0.1,1433;"
cnn.Open strcn
'下面为在SQL中新建一个数据库,并导入表"1.xls"进去。
st = "SELECT * into 新表名 FROM OPENDATASOURCE('Microsoft.Jet.OLEDB.4.0','Data Source=D:\123\1.xls;Extended Properties=EXCEL 8.0')...[Sheet1$] ;"

cnn.Execute st
Next n
MsgBox Timer - t

End Sub

作者: sxssg   发布时间: 2011-12-23

方法二:用OPENSET函数在SQL中操作:

SQL code
如:
select * from OpenRowSet('Microsoft.Jet.OLEDB.4.0', 'Excel 8.0;HDR=Yes;IMEX=1;Database=D:\Roy.xls', 'select * from [Sheet1$]')   
自己改成相应的INSERT INTO语句即可。

作者: sxssg   发布时间: 2011-12-23

SQL code
SQL SERVER 和EXCEL的数据导入导出
1、在SQL SERVER里查询Excel数据:
-- ======================================================
SELECT * 
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
下面是个查询的示例,它通过用于 Jet 的 OLE DB 提供程序查询 Excel 电子表格。
SELECT * 
FROM OpenDataSource ( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
-------------------------------------------------------------------------------------------------

2、将Excel的数据导入SQL server :
-- ======================================================
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\book1.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...[Sheet1$]
实例:
SELECT * into newtable
FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
  'Data Source="c:\Finance\account.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...xactions
-------------------------------------------------------------------------------------------------

3、将SQL SERVER中查询到的数据导成一个Excel文件
-- ======================================================
T-SQL代码:
EXEC master..xp_cmdshell 'bcp 库名.dbo.表名out c:\Temp.xls -c -q -S"servername" -U"sa" -P""'
参数:S 是SQL服务器名;U是用户;P是密码
说明:还可以导出文本文件等多种格式
实例:EXEC master..xp_cmdshell 'bcp saletesttmp.dbo.CusAccount out c:\temp1.xls -c -q -S"pmserver" -U"sa" -P"sa"'
EXEC master..xp_cmdshell 'bcp "SELECT au_fname, au_lname FROM pubs..authors ORDER BY au_lname" queryout C:\ authors.xls -c -Sservername -Usa -Ppassword'
在VB6中应用ADO导出EXCEL文件代码: 
Dim cn  As New ADODB.Connection
cn.open "Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;WD=123;"
cn.execute "master..xp_cmdshell 'bcp "SELECT col1, col2 FROM 库名.dbo.表名" queryout E:\DT.xls -c -Sservername -Usa -Ppassword'"
------------------------------------------------------------------------------------------------

4、在SQL SERVER里往Excel插入数据:
-- ======================================================
insert into OpenDataSource( 'Microsoft.Jet.OLEDB.4.0',
'Data Source="c:\Temp.xls";User ID=Admin;Password=;Extended properties=Excel 5.0')...table1 (A1,A2,A3) values (1,2,3)

T-SQL代码:
INSERT INTO  
OPENDATASOURCE('Microsoft.JET.OLEDB.4.0',  
'Extended Properties=Excel 8.0;Data source=C:\training\inventur.xls')...[Filiale1$]  
(bestand, produkt) VALUES (20, 'Test')  

作者: fredrickhu   发布时间: 2011-12-23

谢谢,我select * from OpenRowSet('Microsoft.Jet.OLEDB.4.0', 'Excel 13.0;HDR=Yes;IMEX=1;Database=D:\My Documents\Desktop\归还表.xlsx'
,'select * from [Sheet1$]')后,
出现了:链接服务器"(null)"的 OLE DB 访问接口 "Microsoft.Jet.OLEDB.4.0" 返回了消息 "找不到可安装的 ISAM。"。
消息 7303,级别 16,状态 1,第 1 行
无法初始化链接服务器 "(null)" 的 OLE DB 访问接口 "Microsoft.Jet.OLEDB.4.0" 的数据源对象。
那么解决哦

作者: lhpiaoyao   发布时间: 2011-12-23