在线问答

已阅求助，在线程中要如何查询数据库

稻草人 2023-3-16 17:34:16 显示全部楼层

Sub main_thread()
dim asd = sqlite3.SQLSelect(DBpath, "detail", "aaa", "WHERE a1=\'0\' AND b1=\'0\'")
Select Case UBOUND(asd)
Case -1
      TracePrint "没有数据"
Case Else
      TracePrint "共有: " & UBound(asd)+1 & " 条数据"
End Select
For i = 0 To UBOUND(asd)
      For Each a , b In asd(i)
         TracePrint("111")
      Next
Next
End Sub
mainT = Thread.Start(main_thread)

Do
Delay 1000
Loop

将查询的代码拿到线程外就有多条数据，放在线程中就0数据

0人点赞