1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| Dim objConnection As DbConnection
objConnection = Nothing
Dim objDbReader As DbDataReader
objDbReader = Nothing
Try
objConnection = GetConnection()
Dim command As DbCommand
command = CreateDbCommand(commandText, objConnection, CommandType.Text)
objConnection.Open()
objDbReader = command.ExecuteReader(CommandBehavior.CloseConnection)
dataSet.Load(objDbReader, LoadOption.PreserveChanges, tableName)
Finally
If objConnection.State <> System.Data.ConnectionState.Closed Then
objConnection.Close()
End If
End Try |
Partager