vb excel数据导入数据库

Dim conn As New ADODB.Connection
conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;Integrated Security=SSPI;"
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "INSERT INTO your_table (column1, column2) VALUES (?, ?)"
cmd.Parameters.Append cmd.CreateParameter("column1", adVarChar, adParamInput, 255, "your_value")
cmd.Parameters.Append cmd.CreateParameter("column2", adVarChar, adParamInput, 255, "your_value")
cmd.Execute

Dim dateValue As Date = Date.Parse("your_excel_date")
Dim dateString As String = dateValue.ToString("yyyy-MM-dd")

Dim conn As New ADODB.Connection
conn.Open "Provider=SQLOLEDB;Data Source=your_server;Initial Catalog=your_database;Integrated Security=SSPI;"
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "INSERT INTO your_table (column1, column2) VALUES (?, ?)"
cmd.Parameters.Append cmd.CreateParameter("column1", adVarChar, adParamInput, 255, "your_value")
cmd.Parameters.Append cmd.CreateParameter("column2", adVarChar, adParamInput, 255, "your_value")

Dim i As Integer
For i = 1 To 1000
    cmd.Parameters("column1").Value = "value1_" & i
    cmd.Parameters("column2").Value = "value2_" & i
    cmd.Execute
Next i