| 12
 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 | 
Partager