不用多线程?
成都创新互联是一家专业提供迎江企业网站建设,专注与网站设计、成都网站制作、H5响应式网站、小程序制作等业务。10年已为迎江众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
即使用多线程,也不会是“同时”执行,题主只要略懂一些计算机编译原理就能明白了。
不用多线程更不可能让两个过程同步执行了。
不过可以提供一个折衷的法子,示例如下:
Sub a()
'过程一
End Sub
Sub b()
'过程二
End Sub
Sub Timer1_Tick() '简写了,实际在VB.NET里不是这样的
Timer1.Enabled = False
a()
End Sub
Sub Button1_Click() '同样简写
Timer1.Enabled = True
b()
End Sub
利用了一个 Timer 控件,实现了这种伪同步(其实还是异步),a()、b() 两个过程相互独立切能并发运行。
注意:上述代码需要先把 Timer1 的 Enabled 属性设置为 False,Interval 属性要尽可能小。
把一个线程对一个sub的方法放到For循环中就是了啊,循环的次数你自己设定
见下面的代码,自己换成真实的数据库及表即可
Imports System.Data
Imports System.IO
Imports System.Data.OleDb
Module Module1
Public cn1 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库1.mdb") '定义连接1---这里请更改为实际数据库路径及名称
Public cn2 As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS数据库2.mdb") '定义连接2---这里请更改为实际数据库路径及名称
Public DataBaseRST1 As Integer '用来返回数据库执行结果
Public DataBaseRST2 As Integer '用来返回数据库执行结果
Public Function DataModify(ByVal str_cmd1 As String, ByVal str_cmd2 As String) As Boolean '进行数据库修改操作函数
Dim cmdinsert1 As New OleDbCommand
Dim cmdinsert2 As New OleDbCommand
Try
cmdinsert1.CommandText = str_cmd1
cmdinsert2.CommandText = str_cmd2
cmdinsert1.Connection = cn1
cmdinsert2.Connection = cn2
If cn1.State = ConnectionState.Closed Then cn1.Open()
If cn2.State = ConnectionState.Closed Then cn2.Open()
DataBaseRST1 = cmdinsert1.ExecuteNonQuery() '用来返回执行的结果
DataBaseRST2 = cmdinsert2.ExecuteNonQuery() '用来返回执行的结果
cn1.Close()
cn2.Close()
Return True
Catch ex As Exception
MessageBox.Show(Err.Description, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Return False
End Try
End Function
End Module
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
DataModify("insert into aa values ('1','2')", "insert into aa values ('1','2')") '调用方法
End Sub
End Class
题主是否想询问“vbnet同时执行多个任务怎么实现”?多线程操作。vbnet同时执行多个任务通过多线程操作实现,Visual Basic点虐 ,属于计算机软件领域,是计算机中实现网络功能的编程语言。
文章标题:vb点虐
同时进行的简单介绍
网站链接:https://www.cdcxhl.com/article16/ddgjhgg.html
成都网站建设公司_创新互联,为您提供网页设计公司、自适应网站、移动网站建设、外贸建站、网站营销、营销型网站建设
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联