如何将EXCEL表导入SQL2000
来源:互联网 发布:sql模块跟踪 编辑:程序博客网 时间:2024/06/05 06:19
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Dim cn1 As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs1 As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=EXCEL文件名.xls;Extended Properties='Excel 8.0;HDR=Yes'"
cn.Open
rs.Open "select * from [EXCEL工作表名$]", cn, adOpenKeyset, adLockOptimistic
str = "Driver={SQL Server};Server=数据库服务器名;DataBase=数据库;UID=登陆用户;PWD=密码;"
cn1.Open str
rs1.Open "select * from 数据库表名", cn1, adOpenKeyset, adLockOptimistic
cmd.CommandText = "delete from 数据库表名 " '清空原数据表
cn1.Execute cmd.CommandText
For j = 1 To rs.RecordCount
If rs.EOF = True Then
Exit Sub
Else
rs1.AddNew
For i = 0 To rs.Fields.Count - 1
rs1.Fields(i) = rs.Fields(i)
Next i
rs1.Update
rs.MoveNext
End If
Next j
cn.Close
cn1.Close
说明:1、必须将EXCEL表放在程序的同一目录下!
2、数据库中要使用的数据表的数据项要和EXCEL表中的一样!
3、经测试,1w条EXCEL数据导入本地数据库耗时在7~10秒左右
4、本程序引用了Microsoft ActiveX Data Objects 2.5 Library
- 如何将EXCEL表导入SQL2000
- 如何将EXCEL表导入MYSQL
- 将Excel中的内容用asp.net导入到sql2000的表中
- 将txt文件和excel文件导入SQL2000数据库
- 将txt文件和excel文件导入SQL2000数据库
- 将txt文件和excel文件导入SQL2000数据库
- 将txt文件和excel文件导入SQL2000数据库
- 将txt文件和excel文件导入SQL2000数据库
- 将txt文件和excel文件导入SQL2000数据库
- 将txt文件和excel文件导入SQL2000数据库
- 如何将Excel导入到内表
- 如何将Excel导入数据库
- 如何将Excel导入数据库
- 如何将EXCEL导入PROJECT2003
- 如何将SQL2005的数据导入到SQL2000
- excel文件导入SQL2000数据库
- 如何将Excel表中的数据导入到数据库
- 如何将Excel表中的数据导入到数据库
- aspx 遍历页面控件
- 灵活地从宏观上对组件进行调试
- mysql的help
- heap stack 堆栈 全局变量 静态变量 进程空间 内存分配
- 关于identity 的用法
- 如何将EXCEL表导入SQL2000
- Hello World
- 几个网页制作的小技巧
- 如何解决在UBOOT中通过串口输入长度较大的环境变量的问题
- Java中Calendar和Date的一些使用用法技巧
- [图解]Symbian 编程总结-工具与扩展-让Symbian SDK使用最新的GCCE进行编译
- 针对幼儿园远程控制解决方案
- 开发人员一定要加入收藏夹的网站
- 如何让文本框的录入信息自动做全角转半角转变?