这段是批量将Excel数据写入数据库的,但是关闭程序后程序怎么还会在后台运行的?是连接没关闭吗?
For ii = 0 To ListBox1.Items.Count - 1
fileName = ListBox1.Items.Item(ii)
Dim ExcelConnection As New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source='" & fileName & "'; Extended Properties=""Excel 12.0 Xml; HDR=Yes""")
ExcelConnection.Open()
Dim expr As String = "SELECT [PASS_ID] FROM [拆分明细$]"
Dim objCmdSelect As OleDbCommand = New OleDbCommand(expr, ExcelConnection)
Dim objDR As OleDbDataReader
Dim SQLconn As New SqlConnection()
Dim ConnString As String = "server=localhost;database=STdata;user id=sa;password=Nngs8888!"
SQLconn.ConnectionString = ConnString
SQLconn.Open()
Using bulkCopy As New SqlBulkCopy(SQLconn)
bulkCopy.DestinationTableName = "chaifen"
Try
objDR = objCmdSelect.ExecuteReader
bulkCopy.WriteToServer(objDR)
SQLconn.Close()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Using
ExcelConnection.Close()
ProgressBar1.Value = ii
Next
这很正常,如果一个语句执行时间太长的话,就会一直卡在数据库进程当中,由数据库托管。而你程序虽然退出了,但是数据库是独立的,所以不会影响数据库去继续执行这个语句。
所以,我们在写程序的时候一定要优化好语句,避免一个语句执行时间太长。
另外,造成程序退出,数据库语句也不存在执行过长的情况,但是数据库依然在查询,很有可能是程序的线程出现了问题。就是程序表面上看起来好像是退出了,但是其实线程依然还在执行查询数据库的语句。这种情况就得要求我们对线程进行控制了。