vb6将excel数据导入mysql_VB6.0如何实现将excel数据导入mssql数据库中

我在VB6.0中的模块中加入了连接sql的语句，连接已经没有问题了，做登录系统和将sql的数据导入到excel中也没有问题，但就是不知如何实现将excel数据导入mssql数据库中，批量的导入，请...

我在VB6.0中的模块中加入了连接sql的语句，连接已经没有问题了，做登录系统和将sql的数据导入到excel中也没有问题，但就是不知如何实现将excel数据导入mssql数据库中，批量的导入，请高手指教下，谢谢了先！

Public SQL As String

Public rs As ADODB.Recordset

Public ConnStr As String

Public Conn As ADODB.Connection

Public Function Selectsql(SQL As String) As ADODB.Recordset

'Dim ConnStr As String '已公共申明

'Dim Conn As ADODB.Connection

'Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

Set Conn = New ADODB.Connection

On Error GoTo MyErr:

ConnStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=******;Initial Catalog=wzglxt;Data Source=127.0.0.1" '这是连接SQL数据库的语句

Conn.Open ConnStr

rs.CursorLocation = adUseClient

rs.Open Trim$(SQL), Conn, adOpenDynamic, adLockOptimistic

Set Selectsql = rs

Exit Function

MyErr:

Set rs = Nothing

Set Conn = Nothing

MsgBox "系统出错，请联系开发人员怀哥，E-mail：slyjpsh@qq.com", vbInformation, "系统提示"

End Function

执行

Dim strSQL As String

CommonDialog1.Filter = "电子表格文件(.xls)|*.xls"

CommonDialog1.DialogTitle = "请选择要导入的文件"

CommonDialog1.ShowOpen

SQL = "INSERT INTO Family SELECT * FROM OpenRowSet('microsoft.jet.oledb.4.0','Excel 14.0;HDR=Yes;database=" & CommonDialog1.FileName & " ;','select * from [Sheet1$] ')"

Set rs = Selectsql(SQL)

Conn.Execute SQL, , adExecuteNoRecords

Conn.Close

Set Conn = Nothing

MsgBox "导入成功", vbExclamation + vbOKOnly

Exit Sub

展开