可以用多线程吗？

[kkttcsd]

将下面的语句可作为一个线程用吗？
Public Sub AsyncThread()
Dim rs As New ADODB.Recordset
Dim str As String

str = "Provider=sqloledb;Data Source=tt;Initial Catalog=tt;uid=sa;pwd=sa;"
rs.Open "select * from tab", str
Set Form1.FGrid.Recordset = rs
End Sub

[kkttcsd]

u

[kkttcsd]

U

[outer2000]

VB不提倡用多线程，不安全。
你可以用TIMER控件？

[snakeyin]

我不會

[kkttcsd]

u

[kkttcsd]

u p

[jdler]

我试过100%出错退出!!!!:(
好象只要不用Data控制件就可以用多线程!苦啊!呜~~~~~~~~~~~~~~~

[Sunnuy]

vb6不能用多线程。

[allyfeng]

vb6里面还是不要用多线程，勉强用了也做不成什么的。限制太多！

[jdler]

某些情况还是可以的.

[jamex]

标题 在Vb下实现多线程 zdm1999（原作）

关键字 Vb多线程



新建一Module
Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadID As Long) As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Sub main()
Load Form1
Form1.Show
End Sub
Public Sub c1()
.......
End Sub

Public Sub c2()
......
End Sub

新建一窗体

Private hthread1 As Long
Private hthread2 As Long
Private ithread1 As Long
Private ithread2 As Long

Private Sub Command1_Click()

ithread1 = CreateThread(ByVal 0&, ByVal 0&, AddressOf c1, ByVal 0&, ByVal 0&, hthread1) --创建线程一
ithread2 = CreateThread(ByVal 0&, ByVal 0&, AddressOf c1, ByVal 0&, ByVal 0&, hthread1) --创建线程二

CloseHandle ithread1 --关闭线程一
CloseHandle ithread2 --关闭线程二

End Sub

Private Sub Form_Load()

End Sub

[jett]

你可以使用ado的异步记录集
用withevens声明你的recordset对象
dim wthevents rs As ADODB.Recordset
这样就可以编写recordset的事件代码
打开时用adAsyncExecute选项
rs.Open "select * from tab",cn,adopenstatic,adoptimistic,adAsyncExecute
当查询完成会触发executecomplete事件

[jett]

说错了是FetchComplete事件
executecomplete是用在connection对象上的