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