1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Public Function Execute_ProcStock(ByRef connexion As ADODB.Connection, ByRef rs_insertion As ADODB.RecordsetClass, ByVal i As Integer) As Integer
' Exécution d'une Procédure Stockée de type Insertion ou Update
Dim MonResultat As Integer = -1
Dim rang As Integer
Dim MaCommande As String
Try
MaCommande = "ps_I_AddMERGE_DATA "
If i = 0 Then
rang = 1
Else
rang = 2
End If
MaCommande &= EntreCote(LTrim(Mid(tablo(i), rang, taille_PURCH_ORG))) & ","
rang += taille_PURCH_ORG
.....
rs_insertion.Open(MaCommande, connexion)
Catch ex As Exception
If Not (connexion Is Nothing) Then connexion.Close()
MonResultat = -1
Finally
If Not (connexion Is Nothing) Then connexion.Close()
End Try |
Partager