1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| Imports System.Data
Imports Oracle.DataAccess.Client
Public Class Identification
Private Sub Confirmer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Confirmer.Click
Dim oradb As String = "Data Source=(ADDRESS_LIST(ADDRESS =(PROTOCOL=TCP)(HOST=127.0.0.1)(PORT=1521)))(CONNECT_DATA =(SERVER=DEDICATED)(SERVICE_NAME =XE)));User Id=system;Password=aymen;"
Dim conn As New OracleConnection()
conn.Open()
If nom.Text = "" And pass.Text = "" Then
MsgBox(" veuillez remplir les champs")
Else
principal.Show()
End If
End Sub |