作者:乔山办公网日期:
返回目录:excel表格制作
提供一段用于操作Excel表格的代码636f7079e799bee5baa6e997aee7ad94362参考:
Private Sub openExcel()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" _
& fileName & ";Extended Properties='Excel 8.0;HDR=Yes'"
Adodc1.RecordSource = "select * from [Sheet1]"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
Set DataGrid2.DataSource = Adodc1
zsl = Adodc1.Recordset.RecordCount
ReDim sinYH(zsl)
Adodc1.Recordset.MoveFirst
ReDim sinXH(19, 1 To zsl)
For j = 1 To zsl
sinYH(j) = Adodc1.Recordset("M000")
For i = 1 To 6
sinXH(i, j) = Adodc1.Recordset(i + 1)
Next i
Adodc1.Recordset.MoveNext
Next
Text1 = sinYH(zsl)
Text2 = sinXH(1, zsl)
Timer1.Enabled = True
End Sub
怎样把Excel文件资料导入SQL Server的数据库的表中 1. Excel导入SQLserver的表中前,保证Excel的表中列的顺序和数据库表的列的顺序保持一致,如果该列没有值,可以为空白。 2.打开SQL企业管理器(Microsoft SQL Server Management Studio ) 建议用SA身边登陆,如果Windows NT用户具有同等权限也可以 3.登陆服务后,展开数据库服务器,会在最底下找到“管理”选项,单击右键,选择“导入数据(I)”选项 4.单击数据导入选项后,会出现导入向导画面,直接单击“下一步” 5.选择数据如下图 1)在选择数据源时,请选择 Microsoft Excel,因为我们的主题就是Excel导入SQL server 2)浏览要导入的Excel文件路e799bee5baa6e79fa5e98193e78988e69d83364径 3)选择您要导入的Excel版本 4)单击“下一步” 4)数据源类型的选择列表 5).Excel版本选择列表 6.选择导入的目标 1).选择导入的目标服务器的名称,没有显示可以手工输入的 2).身份验证,建议使用 用户:sa 密码:********** 3).选择要导入数据的数据库(Database) 4).单击“下一步” 7.指定表复制查询,因为本文讲述的是Excel的导入不要写SQL查询,默认选择即可,单击“下一步” 8.选择源表和源视图 1)本文讲述的是从Excel导入,请选择对应的源表 Sheet 1$ 2)选择目标源,请选择您要导入的数据表的名称 3)如果有需要预览源数据,请单击右下边的 “预览(P)” 4).数据源的预览效果,如果发现数据源与表的结构不一致时,请及时调整Excel 的格式。 9.查看数据类型映射 这一步基本是系统显示目标源的数据结构和类型 其次选择出错的处理方案,失败,忽略 单击“下一步” 10.保持并运行,是否要立刻运行。 11.完成向导,执行操作并保存数据 12.执行操作的结果报告 13.数据库中执行查询操作的显示结果,检查导入的数据是否正确,如有问题及时调整。
从SQL导到Excel中:
insert into openrowset('Microsoft.Jet.OleDb.4.0','Excel 8.0;HDR=Yes;DataBase=C:\***.xls',Sheet1$) Selec *(SQL表中的度字段名知道 AS Excel表中的字段名[,SQL表中的字段名 AS Excel表中的字段名,…])专 from 表名
从Excel导到SQL中:
insert into SQL表名(字段名)
select Excel字段名 AS SQL表字段名[,Excel字段名 AS SQL表字段名]
from openrowset('Microsoft.Jet.OleDb.4.0','Excel 8.0;HDR=Yes;DataBase=C:\***.xls',Sheet1$)
套用属到VB中去就可以了
EXCEL文件要设置固定zhidao格式,还要设置命名范围,然后才可以导入
大致思路如下:
'// 设置打开 EXCEL 文件的连接专字符串
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=excel文件名;Extended Properties=Excel 8.0"
'// 以记录集的形式打开 Excel 文件,adoConn 为 ADODB.Connection 对象
adoConn.Open strConn
'// 将数据插入到指定的表中(以ODBC的方式打开SQL数据库属)
strSQL = "INSERT INTO [odbc;Driver={SQL Server};Server=服务器IP;Database=数据库;UID=用户名;PWD=密码].SQL中的表名 SELECT EXCEL中的字段 FROM EXCEL工作表名"
'// 执行导入语句
adoConn.Execute strSQL, , adExecuteNoRecords