把一个数组增加到数据库中什么方法最快

[zyq654321]

type a(50000)
...
...
...
end type

for i =1 to 50000
rec.addnew
rec("")=a(i).**
rec("")=a(i).**
rec.update
next
但这样太慢了，有快一点的方法吗

[zyq654321]

记录在数组中，数据是电脑自动生成的不会出错

[chn]

关注

[bucher]

如果是SQLServer，可以把数据存为文本文件。然后用DTS（组件）或者BCP（块复制程序）。由于绕开了SQL语句使用了SQLServer的内置数据导入功能，快多了。

[wzxypq]

如何建立一个内存表？，有谁能举个用updatebatch的例子么

[huanggx]

该范例连同 CancelBatch 方法说明 UpdateBatch 方法。

Public Sub UpdateBatchX()

Dim rstTitles As ADODB.Recordset
Dim strCnn As String
Dim strTitle As String
Dim strMessage As String

' 将连接字符串赋值给变量。
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

Set rstTitles = New ADODB.Recordset
rstTitles.CursorType = adOpenKeyset
rstTitles.LockType = adLockBatchOptimistic
rstTitles.Open "titles", strCnn, , , adCmdTable

rstTitles.MoveFirst

' 对记录集执行循环并询问用户是否要更改指定标题的类型。
Do Until rstTitles.EOF
If Trim(rstTitles!Type) = "psychology" Then
strTitle = rstTitles!Title
strMessage = "Title: " & strTitle & vbCr & _
"Change type to self help?"

If MsgBox(strMessage, vbYesNo) = vbYes Then
rstTitles!Type = "self_help"
End If
End If

rstTitles.MoveNext
Loop

' 询问用户是否要提交以上所作的全部更改。
If MsgBox("Save all changes?", vbYesNo) = vbYes Then
rstTitles.UpdateBatch
Else
rstTitles.CancelBatch
End If

' 打印记录集中的当前数据。
rstTitles.Requery
rstTitles.MoveFirst
Do While Not rstTitles.EOF
Debug.Print rstTitles!Title & " - " & rstTitles!Type
rstTitles.MoveNext
Loop

' 恢复原始值，因为这只是演示。
rstTitles.MoveFirst
Do Until rstTitles.EOF
If Trim(rstTitles!Type) = "self_help" Then
rstTitles!Type = "psychology"
End If
rstTitles.MoveNext
Loop
rstTitles.UpdateBatch

rstTitles.Close

End Sub

[zyq654321]

楼上的只能用于更改，不能用才增加

[zyq654321]

???????????????????????????????????????????????

[zyq654321]

huanggx(大侠)的updatebatch方法我试得与update一样慢

[zyq654321]

没人知道？？？？

[wzxypq]

这应是个常见的问题

[zyq654321]

这应是个常见的问题

[zyq654321]

???????

[zyq654321]

没人知道？？？？

[wzxypq]

huanggx(大侠)　方法我试得与update一样慢

[zyq654321]

谁有好办法？

[zyq654321]

没人知道？？？？

[cqq_chen]

把数组写到文本文件中试试。如果写入文本的速度还好，你再和我联系，因为从文本到数据库可以很快的。[e-mail]

[wzxypq]

把数组写到文本文件中不是正规的解决方案吧

[zyq654321]

谁有好办法？

[zyq654321]

谁有好办法？