Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Vérifier qu'une connection soit ouverte - ConnectionState.Open

2 réponses
Avatar
fabrice
Bonjour a tous

Je cherche à vérifier si le statut d'une connection est bien ouverte avant
de remplir un dataset.
Mais ma solution semble ne pas fonctionner.

Dim myConnString As String myConnString = "Provider=OraOLEDB.Oracle; Data
Source=SERVEUR; User ID=USER; Password=PASS"

Dim mySQL As String = "REQUETE SQL"
Dim myConnection As New OleDbConnection (myConnString)
Dim myDataset as DataSet = new DataSet()
Dim myadapter as OleDbDataAdapter=New OleDbDataAdapter
Dim Cmd as New OleDbCommand (mySQL,myConnection)
myadapter.SelectCommand = cmd

dim test as string
If myConnection.State = ConnectionState.Open Then 'Si la connection est
ouverte
test = "open"
else
test = "not open"
end if

response.write(test)

merci de votre aide

fabrice

2 réponses

Avatar
Sylvain
Bonjour Fabrice,

Sauf erreur, en lisant ton code je pense qu'il ne marche pas car tu n'ouvre
pas ta connection avant de l'interroger.



"fabrice" a écrit :

Bonjour a tous

Je cherche à vérifier si le statut d'une connection est bien ouverte avant
de remplir un dataset.
Mais ma solution semble ne pas fonctionner.

Dim myConnString As String myConnString = "Provider=OraOLEDB.Oracle; Data
Source=SERVEUR; User ID=USER; Password=PASS"

Dim mySQL As String = "REQUETE SQL"
Dim myConnection As New OleDbConnection (myConnString)
Dim myDataset as DataSet = new DataSet()
Dim myadapter as OleDbDataAdapter=New OleDbDataAdapter
Dim Cmd as New OleDbCommand (mySQL,myConnection)
myadapter.SelectCommand = cmd

dim test as string
If myConnection.State = ConnectionState.Open Then 'Si la connection est
ouverte
test = "open"
else
test = "not open"
end if

response.write(test)

merci de votre aide

fabrice






Avatar
Zazar
Bonjour,

Dim myConnString As String myConnString = "Provider=OraOLEDB.Oracle ; Data
Source=SERVEUR; User ID=USER; Password=PASS"

Dim mySQL As String = "REQUETE SQL"
Dim myConnection As New OleDbConnection (myConnString)
Dim myDataset as DataSet = new DataSet()
Dim myadapter as OleDbDataAdapter=New OleDbDataAdapter
Dim Cmd as New OleDbCommand (mySQL,myConnection)
myadapter.SelectCommand = cmd

dim test as string
If myConnection.State = ConnectionState.Open Then 'Si la connection e st
ouverte
test = "open"
else
test = "not open"
end if

response.write(test)



Effectivement, comme l'a dit Sylvain vous n'ouvrez pas votre connexion
dans cet exemple.
De plus State est une combinaison de bits, il vous faut donc faire le
test avec :
(myConnection.State & ConnectionState.Open) <> 0
Et enfin, dans les cas usuels, vous n'avez pas besoin de tester si la
connexion est ouverte : vous l'ouvrez, vous l'utilisez et vous la fermez
tout de suite aprés. Si jamais l'ouverture échoue, une exception sera levée.

--
Zazar