Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Thierry,
Voici une façon de faire ... pour tester le statut de la connexion avec ADO
Cnt = Objet de connexion avec ADO
'-------------------------- Select Case cnt.State Case 0 'Constante texte :adStateClosed MsgBox "The object is closed." Case 1 'Constante texte :adStateOpen MsgBox "The object is open" Case 2 'Constante texte :adStateConnecting MsgBox "The object is connecting" Case 4 'Constante texte :adStateExecuting MsgBox "The object is executing a command" Case 8 'Constante texte :adStateFetching MsgBox "The rows of the object are being retrieved" End Select '--------------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de news: re-re-re-bonjour ^^
Toujours dans mon développement de gestion de BDD via VBA et ADO (et surtout durant la phase de test)
Question subsidiaire, comment tester si aucune connexion à une BDD n'est en cours et appeler la routine de connexion...
If xxxxxxxxxxx then Call routine_de_connexion End If
ReferenceRad = Feuil1.Range("A" & LigneRef) ' Création d'un nouvel objet Recordset (jeu d'enregistrement) Set Rst = New ADODB.Recordset Rsql = "SELECT * FROM articles WHERE artcode = '" & ReferenceRad & "';" Rst.Open Rsql, Conn, adOpenDynamic, adLockReadOnly, adCmdText
'Debug.Print Rst.Fields("artcode").Value Result = Rst.Fields("artcode").Value
Mais que mettre à la place des xxxxxxx ?
Promis je n'aurais plus de questions avant lundi :o) Et puis j'ai déjà bien avancé dans ma compréhension ^^
Bonjour Thierry,
Voici une façon de faire ... pour tester le statut de la connexion avec ADO
Cnt = Objet de connexion avec ADO
'--------------------------
Select Case cnt.State
Case 0 'Constante texte :adStateClosed
MsgBox "The object is closed."
Case 1 'Constante texte :adStateOpen
MsgBox "The object is open"
Case 2 'Constante texte :adStateConnecting
MsgBox "The object is connecting"
Case 4 'Constante texte :adStateExecuting
MsgBox "The object is executing a command"
Case 8 'Constante texte :adStateFetching
MsgBox "The rows of the object are being retrieved"
End Select
'--------------------------
Salutations!
"Thierry Euzenot" <te.st2e@free.fr> a écrit dans le message de news:OLp3ALcOEHA.2336@TK2MSFTNGP09.phx.gbl...
re-re-re-bonjour ^^
Toujours dans mon développement de gestion de BDD via VBA et ADO (et surtout
durant la phase de test)
Question subsidiaire, comment tester si aucune connexion à une BDD n'est en
cours et appeler la routine de connexion...
If xxxxxxxxxxx then
Call routine_de_connexion
End If
ReferenceRad = Feuil1.Range("A" & LigneRef)
' Création d'un nouvel objet Recordset (jeu d'enregistrement)
Set Rst = New ADODB.Recordset
Rsql = "SELECT * FROM articles WHERE artcode = '" & ReferenceRad &
"';"
Rst.Open Rsql, Conn, adOpenDynamic, adLockReadOnly, adCmdText
'Debug.Print Rst.Fields("artcode").Value
Result = Rst.Fields("artcode").Value
Mais que mettre à la place des xxxxxxx ?
Promis je n'aurais plus de questions avant lundi :o)
Et puis j'ai déjà bien avancé dans ma compréhension ^^
Voici une façon de faire ... pour tester le statut de la connexion avec ADO
Cnt = Objet de connexion avec ADO
'-------------------------- Select Case cnt.State Case 0 'Constante texte :adStateClosed MsgBox "The object is closed." Case 1 'Constante texte :adStateOpen MsgBox "The object is open" Case 2 'Constante texte :adStateConnecting MsgBox "The object is connecting" Case 4 'Constante texte :adStateExecuting MsgBox "The object is executing a command" Case 8 'Constante texte :adStateFetching MsgBox "The rows of the object are being retrieved" End Select '--------------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de news: re-re-re-bonjour ^^
Toujours dans mon développement de gestion de BDD via VBA et ADO (et surtout durant la phase de test)
Question subsidiaire, comment tester si aucune connexion à une BDD n'est en cours et appeler la routine de connexion...
If xxxxxxxxxxx then Call routine_de_connexion End If
ReferenceRad = Feuil1.Range("A" & LigneRef) ' Création d'un nouvel objet Recordset (jeu d'enregistrement) Set Rst = New ADODB.Recordset Rsql = "SELECT * FROM articles WHERE artcode = '" & ReferenceRad & "';" Rst.Open Rsql, Conn, adOpenDynamic, adLockReadOnly, adCmdText
'Debug.Print Rst.Fields("artcode").Value Result = Rst.Fields("artcode").Value
Mais que mettre à la place des xxxxxxx ?
Promis je n'aurais plus de questions avant lundi :o) Et puis j'ai déjà bien avancé dans ma compréhension ^^
Thierry Euzenot
Impeccable, merci :o)
"michdenis" a écrit dans le message de news:
Bonjour Thierry,
Voici une façon de faire ... pour tester le statut de la connexion avec ADO
Cnt = Objet de connexion avec ADO
'-------------------------- Select Case cnt.State Case 0 'Constante texte :adStateClosed MsgBox "The object is closed." Case 1 'Constante texte :adStateOpen MsgBox "The object is open" Case 2 'Constante texte :adStateConnecting MsgBox "The object is connecting" Case 4 'Constante texte :adStateExecuting MsgBox "The object is executing a command" Case 8 'Constante texte :adStateFetching MsgBox "The rows of the object are being retrieved" End Select '--------------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de news:
re-re-re-bonjour ^^
Toujours dans mon développement de gestion de BDD via VBA et ADO (et surtout
durant la phase de test)
Question subsidiaire, comment tester si aucune connexion à une BDD n'est en
cours et appeler la routine de connexion...
If xxxxxxxxxxx then Call routine_de_connexion End If
ReferenceRad = Feuil1.Range("A" & LigneRef) ' Création d'un nouvel objet Recordset (jeu d'enregistrement) Set Rst = New ADODB.Recordset Rsql = "SELECT * FROM articles WHERE artcode = '" & ReferenceRad & "';" Rst.Open Rsql, Conn, adOpenDynamic, adLockReadOnly, adCmdText
'Debug.Print Rst.Fields("artcode").Value Result = Rst.Fields("artcode").Value
Mais que mettre à la place des xxxxxxx ?
Promis je n'aurais plus de questions avant lundi :o) Et puis j'ai déjà bien avancé dans ma compréhension ^^
Impeccable, merci :o)
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:eKN2p7eOEHA.3012@tk2msftngp13.phx.gbl...
Bonjour Thierry,
Voici une façon de faire ... pour tester le statut de la connexion avec
ADO
Cnt = Objet de connexion avec ADO
'--------------------------
Select Case cnt.State
Case 0 'Constante texte :adStateClosed
MsgBox "The object is closed."
Case 1 'Constante texte :adStateOpen
MsgBox "The object is open"
Case 2 'Constante texte :adStateConnecting
MsgBox "The object is connecting"
Case 4 'Constante texte :adStateExecuting
MsgBox "The object is executing a command"
Case 8 'Constante texte :adStateFetching
MsgBox "The rows of the object are being retrieved"
End Select
'--------------------------
Salutations!
"Thierry Euzenot" <te.st2e@free.fr> a écrit dans le message de
news:OLp3ALcOEHA.2336@TK2MSFTNGP09.phx.gbl...
re-re-re-bonjour ^^
Toujours dans mon développement de gestion de BDD via VBA et ADO (et
surtout
durant la phase de test)
Question subsidiaire, comment tester si aucune connexion à une BDD n'est
en
cours et appeler la routine de connexion...
If xxxxxxxxxxx then
Call routine_de_connexion
End If
ReferenceRad = Feuil1.Range("A" & LigneRef)
' Création d'un nouvel objet Recordset (jeu d'enregistrement)
Set Rst = New ADODB.Recordset
Rsql = "SELECT * FROM articles WHERE artcode = '" & ReferenceRad &
"';"
Rst.Open Rsql, Conn, adOpenDynamic, adLockReadOnly, adCmdText
'Debug.Print Rst.Fields("artcode").Value
Result = Rst.Fields("artcode").Value
Mais que mettre à la place des xxxxxxx ?
Promis je n'aurais plus de questions avant lundi :o)
Et puis j'ai déjà bien avancé dans ma compréhension ^^
Voici une façon de faire ... pour tester le statut de la connexion avec ADO
Cnt = Objet de connexion avec ADO
'-------------------------- Select Case cnt.State Case 0 'Constante texte :adStateClosed MsgBox "The object is closed." Case 1 'Constante texte :adStateOpen MsgBox "The object is open" Case 2 'Constante texte :adStateConnecting MsgBox "The object is connecting" Case 4 'Constante texte :adStateExecuting MsgBox "The object is executing a command" Case 8 'Constante texte :adStateFetching MsgBox "The rows of the object are being retrieved" End Select '--------------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de news:
re-re-re-bonjour ^^
Toujours dans mon développement de gestion de BDD via VBA et ADO (et surtout
durant la phase de test)
Question subsidiaire, comment tester si aucune connexion à une BDD n'est en
cours et appeler la routine de connexion...
If xxxxxxxxxxx then Call routine_de_connexion End If
ReferenceRad = Feuil1.Range("A" & LigneRef) ' Création d'un nouvel objet Recordset (jeu d'enregistrement) Set Rst = New ADODB.Recordset Rsql = "SELECT * FROM articles WHERE artcode = '" & ReferenceRad & "';" Rst.Open Rsql, Conn, adOpenDynamic, adLockReadOnly, adCmdText
'Debug.Print Rst.Fields("artcode").Value Result = Rst.Fields("artcode").Value
Mais que mettre à la place des xxxxxxx ?
Promis je n'aurais plus de questions avant lundi :o) Et puis j'ai déjà bien avancé dans ma compréhension ^^
