Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Too many connections opened creates a failure
Message
De
16/12/2011 03:52:40
 
 
À
15/12/2011 15:14:45
Information générale
Forum:
ASP.NET
Catégorie:
Autre
Versions des environnements
Environment:
VB 9.0
OS:
Windows 7
Network:
Windows 2003 Server
Database:
MS SQL Server
Application:
Web
Divers
Thread ID:
01531136
Message ID:
01531175
Vues:
43
>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform