一个连接上有多个OleDbDataReader:好的,它正在这种情况下工作

时间:2014-07-26 13:21:26

标签: vb.net excel oledb oledbconnection oledbdatareader

我在网上搜索了一个OleDbConnection上的多个OleDbDataReader,但是所有的答案都是否定的,但是,这段代码没有错误。这是为什么?

Dim DATA_BASE_Name As String = Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\TABLES.XLS"
Dim ConnectionStringBuilder As New System.Data.OleDb.OleDbConnectionStringBuilder
ConnectionStringBuilder("Provider") = "Microsoft.Jet.OLEDB.4.0"
ConnectionStringBuilder("Data Source") = DATA_BASE_Name
ConnectionStringBuilder("Mode") = "ReadWrite"
ConnectionStringBuilder("Extended Properties") = "Excel 8.0;HDR=No"
Dim XLS_DATA_BASE As OleDbConnection = New OleDbConnection(ConnectionStringBuilder.ConnectionString)
XLS_DATA_BASE.Open()
Dim Command As OleDbCommand = New OleDbCommand
Dim Command2 As OleDbCommand = New OleDbCommand
Command.Connection = XLS_DATA_BASE
Command2.Connection = XLS_DATA_BASE
Command.CommandText = "SELECT * FROM [Sheet1$A1:A100]"
Command2.CommandText = "SELECT * FROM [Sheet1$B2:E10]"
Dim dbReader1 As OleDbDataReader = Command.ExecuteReader()
Dim dbReader2 As OleDbDataReader = Command2.ExecuteReader()
For row As Short = 1 To 2
   dbReader1.Read()
   Dim a1 As String = dbReader1.GetValue(0).ToString
   dbReader2.Read()
   Dim a2 As String = dbReader2.GetValue(0).ToString
Next
dbReader1.Close()
dbReader2.Close()

0 个答案:

没有答案