使用VB6将Excel数据导入SQL
我完全不熟悉Visual Basic，现在我需要一个完全在VB6中构build的程序，并添加从Excel文件中批量导入大量logging到当前SQL数据库的function。 我在网上find的所有例子都是令人困惑的，并且需要对文件名进行硬编码（例如，使用文档As New Spreadsheet（）document.LoadFromFile（“SimpleReport.xls”）），但是这需要由用户在任何时候调用他们得到一组新的logging，所以我需要在导入时指定的Excel文件名。
我如何使用VB6从Excel导入到SQL？ 我可以为excel文件名创build一个variables，或者文件名的string值是否需要硬编码？ 如果我可以做一个variables可以/我应该添加设置并得到它以指定文件名？ 谢谢
用32位机器（O / S）：
Dim cn As ADODB.Connection Dim strSQL As String Dim lngRecsAff As Long Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=C:\test\myfile.xls;" & _ "Extended Properties=Excel 8.0" 'Import by using Jet Provider. strSQL = "SELECT * INTO [odbc;Driver={SQL Server};" & _ "Server=<server>;Database=<database>;" & _ "UID=<user>;PWD=<password>].MyTable " & _ "FROM [MySheet$]" Debug.Print strSQL cn.Execute strSQL, lngRecsAff, adExecuteNoRecords Debug.Print "Records affected: " & lngRecsAff cn.Close Set cn = Nothing
Microsoft KB：321686有更多的想法。