VB读写数据库速度如何?为什么我的这么慢..比ASP慢多了....

[xwqtp]

我读一个文件里面有6万多个邮件..然后写进一个数据库(ACCESS)用ASP读出来然后写到过期能写入4万多笔.....
而用VB读写进数据库..好象死了..一会看结果写进很少,改用SQLSERVER2000结果也只写了2万来笔(时间比ASP等待长)...
如不写入数据库时还挺快....是不是我的连接数据库有问题???还是什么地方出错...
以下是我的VB连接数据库代码...
VB用了DataEnvironment控件(这是不是叫控件?初学见笑^_^)

Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim sTokens() As String
On Error GoTo ExecuteSQL_error
sTokens = Split(SQL)
Set cnn = New ADODB.Connection
' MsgBox "hello"
cnn.Open ConnectString
If InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0))) Then
cnn.Execute SQL
MsgString = sTokens(0) & "query successful"
Else
Set rst = New ADODB.Recordset
rst.Open Trim$(SQL), cnn, adOpenStatic, adLockOptimistic
Set ExecuteSQL = rst
MsgString = rst.RecordCount
End If
ExecuteSQL_Exit:
Set rst = Nothing
Set cnn = Nothing
Exit Function
ExecuteSQL_error:
MsgString = "err" & Err.Description
Resume ExecuteSQL_Exit
End Function
Public Function ConnectString() As String
ConnectString = "Provider=SQLOLEDB.1;Password=wqxu;User ID=sa;Initial Catalog=email;Data Source=wqxu-exp"

'ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\maillist.mdb;Persist Security Info=False" '连接access时用
End Function

以上是连接数据库模块,以下是运用...
txtsql = "insert into email(email,yn) values('" & NewMailAdd & "','Yes')"
Set mrc = ExecuteSQL(txtsql, MsgText)
为什么会这么慢..请各路高手指教..如果VB本质如此(好象不可能),那我好改学别的程序语言..嘿嘿...

[victorycyz]

从你的代码看，如果有6万个邮件，你就得调用ExecuteSQL函数6万次，并且6万次创建、打开、关闭、释放连接与记录集，当然效率太低了。应该一次性导入数据。具体的方法，你可以到SQL Server版搜索邹健还是马可的交流贴《数据库导入导出大全》。

[射天狼]

你的代码有严重的缺陷,数据库连接一次就可以,记录集也创建并打开一次就行了,你这样频繁的打开与关闭,难免会慢!!

[viena]

总是有人说VB做的程序有缺陷，效率低，其实……

[viena]

用VB.NET吧，ADO.NET，我感觉比VB6 ADO稍微好一点