如何将一个数组中的数据导入到ACCESS数据库中？？？？在线等待

[cyl_wolf]

如何将一个数组中的数据导入到ACCESS数据库中？现在有个数组中存有从图象中提取的一些数据，现在我想把这些数据导入到ACCESS中，如何实现？

[faysky2]

将数组(arr)的数据插入表中（需要引用ADO：工程/引用/Microsoft ActiveX Data Object 2.X Library）：

Private Sub Command1_Click()
Dim cn As New ADODB.Connection
cn.CursorLocation = adUseClient
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
For i = LBound(arr) To UBound(arr)
cn.Execute ("insert into tableName values('" & arr(i) & "')")
Next
cn.Close
Set cn = Nothing
End Sub