以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于假死  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104245)
--  作者：有点甜
--  发布时间：2017/7/26 10:01:00
--  

 多线程操作即可。

 

全局代码

 

Public Sub thread_sub1(ByVal obj As Object)
    functions. Execute("多线程操作", obj)
End Sub

 

内部函数

 

Dim obj = args(0)

Dim cmd As New SQLCommand
Dim Count As Integer
cmd.CommandText = "DELETE FROM {订单} WHERE 产品 = \'PD01\'"
Count= cmd.ExecuteNonQuery()
Messagebox.Show( "总共删除" & Count & "行!")

 

调用代码

 

Dim nthread As New System.Threading.Thread(AddressOf thread_sub1)
nthread.start(nothing)