vb将excel数据导入mysql_vb编程把excel中的数据导入SQLSERVER数据库

把excel中的数据导入SQL SERVER数据库(access数据类似)&＃xff1a;

Private Sub Command1_Click()

Dim strconn As String &＃39; 定义Excel 连接字符串

Dim cn As ADODB.Connection &＃39; 定义Excel 连接

Set cn &＃61; New ADODB.Connection

&＃39; 初始化commandialog1 的属性&＃xff0c;选取Excel 文件&＃xff0c;文

&＃39; 件名保存在CommanDialog1.filename 中备用

CommonDialog1.Filter &＃61; " 电子表格文件(.xls) |*.xls"

CommonDialog1.DialogTitle &＃61; " 请选择要导入的文件"

CommonDialog1.ShowOpen

&＃39; 设置连接SQL 数据库的连接字符串

strtemp &＃61; " [odbc;Driver&＃61; {SQL Server} ;Server&＃61;(local);Database&＃61;Afws;UID&＃61;sa;PWD&＃61;sa]"

&＃39; 设置Excel 数据连接

strconn &＃61; " Provider &＃61;Microsoft.Jet.OLEDB.4.0;Data Source&＃61;" & CommonDialog1.FileName & " ; Extended Properties&＃61;Excel 8.0"

cn.Open strconn

strSql &＃61; "insert into " & strtemp & ".hw_level1 select * from [sheet1$]"

cn.Execute strSql, lngRecsAff, adExecuteNoRecords

MsgBox " 成功导入到SQL 数据库中&＃xff01;", vbExclamation &＃43; vbOKOnly

cn.Close

Set cn &＃61; Nothing

End Su