VB中excel 转换为ACCES 代码。

最新推荐文章于 2026-06-30 16:13:28 发布

原创最新推荐文章于 2026-06-30 16:13:28 发布 · 756 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

网路徒步

此博客展示了一段VB代码，用于将Excel文件中的数据导入到Access数据库。代码通过ADODB对象建立数据库连接，执行SQL查询语句，遍历Excel数据并添加到Access数据库的指定表中，最后关闭连接并给出导入成功提示。

Private Sub Form_Load() Dim conn As New ADODB.Connection Dim rs_pihao As New ADODB.Recordset Dim connectionstring As String connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source= " & App.Path & "/T2_pihao.mdb" conn.Open connectionstring Dim sql As String sql = "select * from pihao" rs_pihao.CursorLocation = adUseClient rs_pihao.Open sql, conn, adOpenKeyset, adLockPessimistic Dim adoConnection_e As New ADODB.Connection Dim adoRecordset_e As New ADODB.Recordset adoConnection_e.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=E:/T2SQL/T2_PIHAO.XLS;Extended Properties='Excel 8.0;HDR=Yes'" adoRecordset_e.Open "select * from [Sheet1$]", adoConnection_e, adOpenKeyset, adLockOptimistic Dim i As Integer adoRecordset_e.Movefirst For i = 0 To adoRecordset_e.Fields.Count - 1 rs_pihao.MoveLast rs_pihao.AddNew rs_pihao.Fields(1) = adoRecordset_e.Fields.Item(1).Value rs_pihao.Fields(2) = adoRecordset_e.Fields.Item(2).Value rs_pihao.Fields(3) = adoRecordset_e.Fields.Item(3).Value rs_pihao.Update Next i adoRecordset_e.MoveNext conn.close set conn= Nothing adoConnection_e .close set adoConnection_e = Nothing MsgBox "添加成功！", vbOKOnly + vbExclamation, "OK" End Sub

标签

#excel #vb #properties #integer #string