Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Too many connections opened creates a failure
Message
From
16/12/2011 03:52:40
 
 
To
15/12/2011 15:14:45
General information
Forum:
ASP.NET
Category:
Other
Environment versions
Environment:
VB 9.0
OS:
Windows 7
Network:
Windows 2003 Server
Database:
MS SQL Server
Application:
Web
Miscellaneous
Thread ID:
01531136
Message ID:
01531175
Views:
42
>This should be a little bit better:
>
>
>                        ' Based on the SQL mode
>                        Select Case nSQLMode
>
>                            ' OleDb
>                            Case 1
>
>                                Using loOleDbConnection As New OleDbConnection(cConnectionString)
>                                    loOleDbConnection.Open()
>                                    oCommand.Connection = loOleDbConnection
>                                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
>                                End Using
>
>                                ' SQLClient
>                            Case 2
>
>                                Using loSQLConnection As New SqlConnection(cConnectionString)
>                                    loSQLConnection.Open()
>                                    oCommand.Connection = loSQLConnection
>                                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
>                                End Using
>
>                                ' ODBC
>                            Case 3
>
>                                Using loOdbcConnection As New OdbcConnection(cConnectionString)
>                                    loOdbcConnection.Open()
>                                    oCommand.Connection = loOdbcConnection
>                                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
>                                End Using
>
>                        End Select
>
Could be shorter :-} :
        Using loOleDbConnection As New OleDbConnection(cConnectionString)
            loOleDbConnection.Open()
            oCommand.Connection = loOleDbConnection
            Select Case nSQLMode
                ' OleDb
                Case 1
                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
                    ' SQLClient
                Case 2
                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
                    ' ODBC
                Case 3
                    nResult = oDataAdapter.SelectCommand.ExecuteNonQuery()
            End Select
        End Using
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform