vba 将excel插入sql数据库

Private Sub insert1_click()Dim iCount As IntegerDim cnSet cn = CreateObject(“ADODB.Connection”)

cn.ConnectionString = “Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Password=8233;Initial Catalog=hskmis;Data Source=127.0.0.1″cn.Opencn.Execute (“delete temp9”)’计算该表有多少行RowCount = Worksheets(“FC”).UsedRange.Rows.Count’行循环For irow = 1 To RowCount strRecord = “”‘列循环,假设有五列,从第一列开始For icol = 1 To 5If icol <> 5 Then strRecord = strRecord & “‘” & Worksheets(“FC”).Cells(irow, icol).Value & “‘” & “,”ElsestrRecord = strRecord & “‘” & Worksheets(“FC”).Cells(irow, icol).Value & “‘”End IfNextMsgBox strRecordSql = cn.Execute(“insert into temp9 values(” & strRecord & “)”)NextMsgBox “插入完成”End Sub

缘是浪漫的相遇，瞬间让你我的心化为永恒！