lors d'une précédente question vous m'avez demandé :
pouvez-vous explicité votre fonction : ExecSQLExcell
et j'ai répondu :
Ma fonction : ExecSQLExcell
Public Function ExecSQLExcell(MySqlExcell As String, ByRef ADOrstExcell As
ADODB.Recordset, ByRef ADOcnExcel As ADODB.Connection) As Boolean
'Initialisation du RecordSet
If ADOrstExcell.state <> adStateClosed Then ADOrstExcell.Close
'Ouvre une transaction pour ne pas à avoir à réaliser de commit en fin
de traitement
ADOcnExcel.BeginTrans
'Positionne le curseur côté client
ADOrstExcell.CursorLocation = adUseClient
'Vérifie que la connexion passée est bonne
Set ADOrstExcell.ActiveConnection = ADOcnExcel
On Error GoTo ErrHandle
'Exécute la requête
ADOrstExcell.Open MySqlExcell, ADOcnExcel
'Valide la transaction
ADOcnExcel.CommitTrans
ExecSQLExcell = True
Exit Function
ErrHandle:
ExecSQLExcell = False
MsgBox "ADOManager.ExecSQL:ErrHandle" & vbCr & vbCr & Err.Description,
vbCritical
End Function
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
Quasimodo
JCM has brought this to us :
Bonjour Quasimodo
lors d'une précédente question vous m'avez demandé : pouvez-vous explicité votre fonction : ExecSQLExcell
et j'ai répondu : Ma fonction : ExecSQLExcell
Public Function ExecSQLExcell(MySqlExcell As String, ByRef ADOrstExcell As ADODB.Recordset, ByRef ADOcnExcel As ADODB.Connection) As Boolean 'Initialisation du RecordSet If ADOrstExcell.state <> adStateClosed Then ADOrstExcell.Close 'Ouvre une transaction pour ne pas à avoir à réaliser de commit en fin de traitement ADOcnExcel.BeginTrans 'Positionne le curseur côté client ADOrstExcell.CursorLocation = adUseClient 'Vérifie que la connexion passée est bonne Set ADOrstExcell.ActiveConnection = ADOcnExcel On Error GoTo ErrHandle 'Exécute la requête ADOrstExcell.Open MySqlExcell, ADOcnExcel 'Valide la transaction ADOcnExcel.CommitTrans ExecSQLExcell = True Exit Function ErrHandle: ExecSQLExcell = False MsgBox "ADOManager.ExecSQL:ErrHandle" & vbCr & vbCr & Err.Description, vbCritical End Function
ET PLUS DE SUITE .........;
Cordialement JCM
soir, sorry pas eu le temps, mais je ne vous oublie pas. Je vous promes de revvoir cela pour cette semaine ;-)
@+Quaz
-- This is an automatic signature of MesNews. Site : http://mesnews.no-ip.com
JCM has brought this to us :
Bonjour Quasimodo
lors d'une précédente question vous m'avez demandé :
pouvez-vous explicité votre fonction : ExecSQLExcell
et j'ai répondu :
Ma fonction : ExecSQLExcell
Public Function ExecSQLExcell(MySqlExcell As String, ByRef ADOrstExcell As
ADODB.Recordset, ByRef ADOcnExcel As ADODB.Connection) As Boolean
'Initialisation du RecordSet
If ADOrstExcell.state <> adStateClosed Then ADOrstExcell.Close
'Ouvre une transaction pour ne pas à avoir à réaliser de commit en fin
de traitement
ADOcnExcel.BeginTrans
'Positionne le curseur côté client
ADOrstExcell.CursorLocation = adUseClient
'Vérifie que la connexion passée est bonne
Set ADOrstExcell.ActiveConnection = ADOcnExcel
On Error GoTo ErrHandle
'Exécute la requête
ADOrstExcell.Open MySqlExcell, ADOcnExcel
'Valide la transaction
ADOcnExcel.CommitTrans
ExecSQLExcell = True
Exit Function
ErrHandle:
ExecSQLExcell = False
MsgBox "ADOManager.ExecSQL:ErrHandle" & vbCr & vbCr & Err.Description,
vbCritical
End Function
ET PLUS DE SUITE .........;
Cordialement
JCM
soir,
sorry pas eu le temps, mais je ne vous oublie pas. Je vous promes de
revvoir cela pour cette semaine ;-)
@+Quaz
--
This is an automatic signature of MesNews.
Site : http://mesnews.no-ip.com
lors d'une précédente question vous m'avez demandé : pouvez-vous explicité votre fonction : ExecSQLExcell
et j'ai répondu : Ma fonction : ExecSQLExcell
Public Function ExecSQLExcell(MySqlExcell As String, ByRef ADOrstExcell As ADODB.Recordset, ByRef ADOcnExcel As ADODB.Connection) As Boolean 'Initialisation du RecordSet If ADOrstExcell.state <> adStateClosed Then ADOrstExcell.Close 'Ouvre une transaction pour ne pas à avoir à réaliser de commit en fin de traitement ADOcnExcel.BeginTrans 'Positionne le curseur côté client ADOrstExcell.CursorLocation = adUseClient 'Vérifie que la connexion passée est bonne Set ADOrstExcell.ActiveConnection = ADOcnExcel On Error GoTo ErrHandle 'Exécute la requête ADOrstExcell.Open MySqlExcell, ADOcnExcel 'Valide la transaction ADOcnExcel.CommitTrans ExecSQLExcell = True Exit Function ErrHandle: ExecSQLExcell = False MsgBox "ADOManager.ExecSQL:ErrHandle" & vbCr & vbCr & Err.Description, vbCritical End Function
ET PLUS DE SUITE .........;
Cordialement JCM
soir, sorry pas eu le temps, mais je ne vous oublie pas. Je vous promes de revvoir cela pour cette semaine ;-)
@+Quaz
-- This is an automatic signature of MesNews. Site : http://mesnews.no-ip.com
