Private Sub Connexion()
'déclaration du constructeur de la connexion a oracle
Dim oradb As String = "Data Source=XE;User Id=system;Password=manager"
'déclaration de la connexion
Dim conn As New OracleConnection(oradb)
'ouverture de la connexion
conn.Open()
'pour remplacer les ' par des ''
'autrement une erreur survient lors de l'enregistrement en base de donnees
Dim la_date As String = System.DateTime.Now.Date()
Dim login As String = txt_login.Text
la_date = la_date.Replace("'", "''")
login = login.Replace("'", "''")
nom_corbeil = nom_corbeil.Replace("'", "''")
'Enregistrement dans la table test de la personne ayant lancée le tranfert
Dim requete As String = "INSERT INTO test (la_date, personne, nom_corbeil) VALUES ('" & la_date & "','" & login & "','" & nom_corbeil & "')"
'Declaration de la commande pour l'execution de la requete
Dim myOracleCommand As New OracleCommand(requete, conn)
Try
If (myOracleCommand.ExecuteNonQuery() <> 0) Then
'La transaction peut être confirmée.
conn.BeginTransaction().Commit()
Else
'Les opérations effectuées doivent être annulées.
conn.BeginTransaction().Rollback()
MessageBox.Show("Erreur d'écriture dans la base de données")
End If
Catch ex As Exception
'Les opérations effectuées doivent être annulées.
conn.BeginTransaction().Rollback()
MessageBox.Show("Erreur d'écriture dans la base de données: " + ex.Message)
End Try
myOracleCommand.Dispose()
conn.Close()
End Sub
Partager