Je travaille avec SQLCE (SQL Compact). Avec cette base de donnees, Recordset.RecordCount retourne toujours -1. Donc on ne sait pas que la table est vide a moins de pieger une erreur avec MoveFirst est essentiel dans le cas ou la requete ne retourne rien.
Dans le code ci dessous $oRS.MoveFirst fait culbutter AutoIT, l'erreur n'est pas piegee. Y a-t-il quelquechose qui m'echappe?
Code : Tout sélectionner
Global $oMoveFirstError
Global $g_eventerror = 0
Func RunCEQuery ( $Query, $DBFile, $bReturnColumns = False )
Dim $intNbLignes
Dim $Ret = ""
Dim $sqlCon = ObjCreate("ADODB.Connection")
$sqlCon.Open("Provider=Microsoft.SQLSERVER.CE.OLEDB.4.0;Data Source=" & $DBFile)
Dim $oRS = ObjCreate ( "ADODB.Recordset" )
$oRS.open ( $Query, $sqlCon, 3, -1)
$intNbLignes = $oRS.recordCount
if $intNbLignes > 0 or StringLen ( $DBFile ) > 0 Then
$oMoveFirstError = ObjEvent ( "AutoIT.Error", "Errhandler" ) ; PIEGE A ERREUR
$oRS.MoveFirst ; ERREUR ICI si la requete ne retourne rien
If $g_eventerror then
$g_eventerror = 0
Msgbox (0,"AutoItCOM test","Error was caught: " & @error)
Endif
Dim $iRec = 1
if $bReturnColumns Then
for $iField = 0 to $oRS.Fields.Count - 1
if $iField = 0 Then
$Ret = $Ret & @CRLF & $oRS.Fields.Item(0).name
Else
$Ret = $Ret & @TAB & $oRS.Fields.Item($iField).name
EndIf
Next
EndIf
While not $oRS.EOF
for $iField = 0 to $oRS.Fields.Count - 1
if $iField = 0 Then
$Ret = $Ret & @CRLF & $oRS.Fields.Item(0).value
Else
$Ret = $Ret & @TAB & $oRS.Fields.Item($iField).value
EndIf
Next
$oRS.MoveNext
WEnd
if StringLen ( $Ret ) > 2 Then $Ret = StringRight ( $Ret, StringLen ( $Ret ) - 2 )
EndIf
$oRS.close
Return $Ret
EndFunc
;-------------------
Func Errhandler()
Msgbox(0,"SQLQueryTool","L'erreur est dans le piege!")
Local $err = $oMoveFirstError.number
If $err = 0 Then $err = -1
$g_eventerror = $err
EndFunc
==> The requested action with this object has failed.:
$oRS.MoveFirst
$oRS.MoveFirst^ ERROR
Je suis a cours d'idees, mais j'espere que quelquechose va vous sauter aux yeux...
merci a l'avance
. La position de la ligne d'initialisation du handler d'erreur COM juste avant la ligne ou le script culbutte est la meme que dans l'exemple d'utilisation d'ObjEvent, qui lui-meme marche sans probleme (je l'ai essaye):
