16,721
社区成员
发帖
与我相关
我的任务
分享
Dim m_SqlConn As MySqlConnection
m_SqlConn = Nothing
Try
Dim str As String
str = "1:" & get_now() & Now.Millisecond
m_SqlConn = connect_sql()
str = str & vbCrLf & "2:" & get_now() & Now.Millisecond
Dim strQuery As String = "select name from xxxx "
Dim daAdapter As MySqlDataAdapter = New MySqlDataAdapter(strQuery, m_SqlConn)
str = str & vbCrLf & "3:" & get_now() & Now.Millisecond
Dim dsTable As DataSet = New DataSet
str = str & vbCrLf & "4:" & get_now() & Now.Millisecond
daAdapter.Fill(dsTable)
str = str & vbCrLf & "5:" & get_now() & Now.Millisecond
MsgBox(str)
Catch
MsgBox("连接数据库出现异常,请检查你的网络,点击退出!")
Finally
m_SqlConn.Close()
End Try
可以看出,连接数据库用了0.9S,查询用了30毫秒,但是这个fill居然执行了2.5S,我是真的不太理解,是我的用法有问题么?网上vb.net操作数据库基本都是我这个模板写的,急求高手指点!