adodc avec insert de sql

je replonge aussi dans VB, donc je ne garantie pas qu ça va marcher
voila le code
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
 
    Dim cnx As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim rqt as string 
    '--------Connexion à la base--------------------------
    Set cnx = New ADODB.Connection
    'Définition de la chaîne de connexion
    cnx.ConnectionString = ta_chaine_de_connexion  
    'Vérifie que la connexion est bien fermée
    If cnx.State = adStateOpen Then
      cnx.Close
    End If
    On Error GoTo BadConnection
    'Connexion à la base de données
    cnx.Open 
    'Attente que la connexion soit établie
    While (cnx.State = adStateConnecting)
      DoEvents
    Wend
    'Vérification des erreurs dans le cas d'une mauvaise connexion
    If cnx.Errors.Count > 0 Then
      'Affichage des erreurs
      MsgBox cnx.Errors.Item(0)      
      Exit Function   
    End If
   Exit Function
 
   BadConnection:
   If cnx.Errors.Count > 0 Then
      'Affichage des erreurs
      MsgBox cnx.Errors.Item(0)
      Exit Function
   Else
      MsgBox "Erreur ouverture de connexion Oracle" & vbCr & vbCr & err.Description, vbCritical
   End If   
 
  '-------------------Insert dans ta table-----------------------  
  Set rst = new ADODB.Recordset    
  'Vérifie que la connexion est bien ouverte
    If cnx.State <> adStateOpen Then
      MsgBox "Erreur ouverture de connexion" & vbCr & vbCr & err.Description, vbCritical
      exit Function
    End If 
  'Initialisation du RecordSet
  If rst.State <> adStateClosed Then 
    rst.Close
  end if
  'Ouvrir une transaction pour ne pas à avoir à réaliser de commit en fin de traitement
  cnx.BeginTrans
  'Positionne le curseur côté client
  rst.CursorLocation = adUseClient  
  'Vérifie que la connexion passée est bonne
  Set rst.ActiveConnection = cnx On Error GoTo ErrHandle  
  'Preparer la requête
  rqt = "INSERT INTO table VALUES(...)" 
  'Exécute la requête  
  rst.Open rqt, cnx
  'rst.Errors.Item(0)
  'Fermer le recordset
  rst.Close    
  'Valider la transaction
  cnx.CommitTrans
  ExecSQL = True
  '---------