Perso j'utilise l'UDF _ADODB.au3 (sur le forum anglais) pour faire des inserts
exemple :
Code : Tout sélectionner
GUICtrlRead($InputgestConsoNlleImp
GUICtrlRead($ComboGestConsoCategorie
Dim $arrFieldsandValues[2][3] = [["Num_Salle", "Imprimante", "Categorie"],[GUICtrlRead($ComboGestConsoSelectSalle), GUICtrlRead($InputgestConsoNlleImp), GUICtrlRead($ComboGestConsoCategorie)]]
_InsertRecords("salle", $arrFieldsandValues)
function insert
Code : Tout sélectionner
Func _InsertRecords($varTableName,$arrFieldsAndValues)
If Not IsObj($objConnection) Then Return -1
If Not IsArray($arrFieldsAndValues) Then Return -2
For $y = 1 To UBound($arrFieldsAndValues)-1
$strInsert = "INSERT INTO " & $varTableName & " ("
$varFieldCount = UBound($arrFieldsAndValues,2)-1
For $x = 0 To $varFieldCount
$strInsert &= $arrFieldsAndValues[0][$x]
If $x < $varFieldCount Then $strInsert &= ","
Next
$strInsert &= ") VALUES ("
For $x = 0 To $varFieldCount
$strInsert &= "'" & $arrFieldsAndValues[$y][$x] & "'"
If $x < $varFieldCount Then $strInsert &= ","
Next
$strInsert &= ");"
$objConnection.Execute($strInsert)
If $errADODB.number Then
;~ If Msgbox(4+16+256,"Insert Record Error","Statement failed:" & @CRLF & $strInsert & @CRLF & @CRLF & "Would you like to continue?") <> 6 Then Return -3
EndIf
Next
Return 1
EndFunc
j'espère ne pas avoir fait d'erreur de recopie
