mysql服务器无响应的visual basic 6代码

Question

我有一个代码，我连接到mysql并获取数据并进行比较 和代码工作 但是2分钟后没有回应

如果我删除了该行

Call connectMysql("root", "pass", "localhost", "ha", conn, rs)

从循环中把它放在循环旁边它没有响应但代码不起作用并且没有从mysql获取数据

所以任何人都有想法？

这里的代码是希望工作，但2分钟后没有回应

ssql = "SELECT data FROM main"

 ' Do
  Dim intX As Integer

intX = 0
Do Until intX = 10

      Call connectMysql("root", "pass", "localhost", "ha", conn, rs)


rs.Open ssql, conn

      Temp = rs.Fields(0)

         If lasttemp <> Temp Then
         lasttemp = Temp

      End If
    intX = intX + 1
     Ret = DoEvents()
    If intX = 8 Then intX = 0
    Loop

这里的代码没有响应，也没有gret数据

ssql = "SELECT data FROM main"

 ' Do
  Dim intX As Integer

intX = 0
Do Until intX = 10

      Call connectMysql("root", "pass", "localhost", "ha", conn, rs)


rs.Open ssql, conn

      Temp = rs.Fields(0)

         If lasttemp <> Temp Then
         lasttemp = Temp

      End If
    intX = intX + 1
     Ret = DoEvents()
    If intX = 8 Then intX = 0
    Loop