Bonjour
je suis entrain d'écrire la procédure suivante afin d'avoir une procédure globale pour insérer mes valeurs dans la base de données. Afin de pouvoir mélanger n'importe qu'elle sorte de données dans une seule entrée, j'ai crée la class Email ou je définis toutes les propriétes de mes variables, je transfere ensuite le nom de la table et la liste des parametres à insérer.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
 
 
Public Sub Insert2(ByVal Email As Object, ByVal table As String, _
  ByVal insertparam() As String)
 
   Dim connection As New OracleConnection()
   Dim insertString As String = "insert into " + table + " ("
   Dim i As Integer
   For i = 0 To insertParam.Length - 1
     If i <> 0 Then
       insertString = insertString + ", "
     End If
     insertString = insertString + insertParam(i)
   Next
   insertString = insertString + ") values ("
   For i = 0 To insertParam.Length - 1
     If i <> 0 Then
       insertString = insertString + ", "
     End If
     insertString = insertString + ":" + insertParam(i)
   Next
   insertString = insertString + ")"
 
   Dim command As New OracleCommand(insertString)
   connection.ConnectionString = _
ConfigurationManager.ConnectionStrings("ConnectionString1").ToString()
   command.Connection = connection
   Try
     connection.Open()
     Dim value As String = table + "." + insertparam(0)
     command.Parameters.Add(insertparam(0), value) 
     command.Parameters.Add(insertparam(1), Email.emailaddress)
     command.ExecuteNonQuery()
     connection.Close()
     connection.Dispose()
 
End Sub
Il doit y avoir une boucle sur la longueur du vecteur param là ou se situe la ligne en gras, j'aimerais bien etre capable de génerer dynamiquement Email.Id et Email.Address. Comment puis je faire sachant que j'ai d'un coté Email et de l'autre ID et emailaddress et que je veux connaitre la valeur de l'objet correspondant à Email.ID et Email.address.