多线程数据量大时会出现未响应的情况

静静

Private Sub getdata1()
        Dim i As Integer = 0
        Dim data As String = requestUrl()   '请求页面返回的数据
        For i = 0 To data.Length   '这个长度在600左右
            '循环的插入或者更新到数据库
        Next
    End Sub


getdata2(), getdata3(), getdata4()都是差不多的,对同一个表进行操作

静静

呵呵,我是vb.net的
刚才我试着多建了连个连接字符串,好像好一些了,但是好像也不可能每个线程都用一个连接字符串吧

静静

多建了两个连接字符串,上面打错

静静

之前也写过差不多的,没出现这个问题

站长苏飞

静静 发表于 2013-3-9 19:36
之前也写过差不多的,没出现这个问题

应该是数据库数据慢慢多了的原因吧，或者是运行一段时间后，数据库的连接没有来的得释放，建议使用下数据库连接池功能。
看你的问题应该是在数据库代码或者是数据库连接池上面的问题，从这两个方面检查下吧

静静

Public Sub sqlUserInfo(ByVal UID As String, ByVal UName As String, ByVal UInfo As String)
        '
        Dim Conn As New SqlConnection(connStr)
        If Conn.State <> ConnectionState.Open Then
            Conn.Open()
        End If

        '
        Dim Cmd As New SqlCommand
        Try


            Cmd.Connection = Conn
            Cmd.CommandType = CommandType.StoredProcedure
            Cmd.CommandText = "userInfo"
            '
            Cmd.Parameters.Add("@UID", SqlDbType.VarChar).Value = UID
            Cmd.Parameters.Add("@uName", SqlDbType.varchar).Value = UName
            Cmd.Parameters.Add("@uInfo", SqlDbType.varchar).Value = UInfo

            Cmd.ExecuteNonQuery()
            Cmd.Dispose()
        Catch ex As Exception

        End Try
        If Conn.State <> ConnectionState.Closed Then
            Conn.Close()
        End If
        Conn.Dispose()
        Conn = Nothing
    End Sub

站长苏飞

静静 发表于 2013-3-9 19:52
Public Sub sqlUserInfo(ByVal UID As String, ByVal UName As String, ByVal UInfo As String)
        ' ...

你没有使用连接池吧，需要使用哦，另外Connection 时建议使用Uing语句，不知道VB里面有吗？

静静

请教使用连接池

静静

没有using,用with,呵呵

静静

Dim connStr As String = "data source=.;initial catalog=tt;user id=ta;password=123456ooling=true;Min Pool Size = 10;Max Pool Size = 512"