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
| Public Function connect_oracle(ByVal User As String, ByVal Password As String, ByVal host As String) As Boolean
Dim A, B, C As Object
Dim oradb As Object
' oradb = "Provider=MSDAORA.1," & _
' " User ID='" & User & "',Password='" & Password & "'," & _
' " Data Source='" & host & "'"
A = LireINI("taille", "cle1")
B = LireINI("taille", "cle2")
C = LireINI("taille", "cle3")
oradb = "Data Source=" & A & " ;User Id=" & B & ";Password= " & C
Dim conn As New OracleConnection()
conn.ConnectionString = oradb
conn.Open()
Try
Dim sql As String = "INSERT INTO PROCESSTRG.Trace(USR,USERNAME,ACTION,WRKID,DATE) VALUES ('cabo','quentin','essai','1','26/01/2008');"
Dim cmd = New OracleCommand(sql, conn)
cmd.Connection = oradb
cmd.CommandType = CommandType.Text
Dim dr As OracleDataReader
dr = cmd.ExecuteReader()
While dr.Read
MsgBox("Nom: " + dr.GetString(0))
End While
Catch ex As Exception ' intercepte toutes les erreurs
MessageBox.Show(ex.Message.ToString())
Finally
conn.Close()
End Try
End Function |
Partager