vb导入excel到数据库

您可以使用以下步骤将 Excel 文件中的数据导入到数据库中：

1. 在 VB 中添加对 ADO 的引用。
2. 定义连接字符串，指定数据库类型、服务器、数据库名称、用户名、密码等信息。
3. 使用 ADO 连接到数据库。
4. 使用 ADO 打开 Excel 文件，将数据读入 DataTable 中。
5. 遍历 DataTable 中的数据，将数据插入到数据库表中。
6. 关闭 ADO 连接和 Excel 文件。

下面是一个示例代码，演示如何将 Excel 文件中的数据导入到 SQL Server 中：

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sConnString As String
Dim sExcelFilePath As String
Dim sExcelSheetName As String
Dim sSQLServerName As String
Dim sDatabaseName As String
Dim sTableName As String

'设置连接字符串
sSQLServerName = "localhost"
sDatabaseName = "testdb"
sTableName = "mytable"
sConnString = "Provider=SQLOLEDB;Data Source=" & sSQLServerName & ";Initial Catalog=" & sDatabaseName & ";Integrated Security=SSPI;"

'连接到数据库
conn.Open sConnString

'打开 Excel 文件
sExcelFilePath = "C:\data\mydata.xlsx"
sExcelSheetName = "Sheet1"
rs.Open "SELECT * FROM [" & sExcelSheetName & "$]", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & sExcelFilePath & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";", adOpenStatic, adLockOptimistic

'将数据插入到数据库表中
Do While Not rs.EOF
    conn.Execute "INSERT INTO " & sTableName & " (col1, col2, col3) VALUES ('" & rs.Fields(0).Value & "', '" & rs.Fields(1).Value & "', '" & rs.Fields(2).Value & "')"
    rs.MoveNext
Loop

'关闭连接和记录集
rs.Close
conn.Close

在上面的示例代码中，我们假设要将 Excel 文件中的数据插入到 SQL Server 的 testdb 数据库中的 mytable 表中，Excel 文件的路径为 C:\data\mydata.xlsx，Excel 文件中的表名为 Sheet1，数据列分别为 col1、col2 和 col3。您需要根据实际情况修改连接字符串、Excel 文件路径、表名和数据列名等信息。