13518219792
不用多线程？
成都创新互联是一家专业提供迎江企业网站建设,专注与网站设计、成都网站制作、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点虐 ，属于计算机软件领域，是计算机中实现网络功能的编程语言。
