把excel中的数据导入SQL SERVER数据库(access数据类似): Private Sub Command1_Click() Dim strconn As String ' 定义Excel 连接字符串 Dim cn As ADODB.Connection ' 定义Excel 连接 Set cn = New ADODB.Connection ' 初始化commandialog1 的属性,选取Excel 文件,文 ' 件名保存在CommanDialog1.filename 中备用
CommonDialog1.Filter = " 电子表格文件(.xls) |*.xls" CommonDialog1.DialogTitle = " 请选择要导入的文件" CommonDialog1.ShowOpen
' 设置连接SQL 数据库的连接字符串 strtemp = " [odbc;Driver= {SQL Server} ;Server=(local);Database=Afws;UID=sa;PWD=sa]" ' 设置Excel 数据连接 strconn = " Provider =Microsoft.Jet.OLEDB.4.0;Data Source=" & CommonDialog1.FileName & " ; Extended Properties=Excel 8.0" cn.Open strconn
strSql = "insert into " & strtemp & ".hw_level1 select * from [sheet1$]" cn.Execute strSql, lngRecsAff, adExecuteNoRecords
MsgBox " 成功导入到SQL 数据库中!", vbExclamation + vbOKOnly
cn.Close Set cn = Nothing
End Su
|