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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
If CHECK_ETP.Checked Then str_etp(0) = "ETP 1"
If CHECK_3_ETP.Checked Then str_etp(1) = "ETP 3/4"
If CHECK_DEMI.Checked Then str_etp(2) = "ETP 1/2"
If CHECK_CDI.Checked Then str_contrat(0) = "CDI"
If CHECK_CDD.Checked Then str_contrat(1) = "CDD"
If CHECK_CR.Checked Then str_contrat(2) = "CR"
If CHECK_JF.Checked Then str_prest(0) = "Jour férié"
If CHECK_WK.Checked Then str_prest(1) = "Week-end"
If CHECK_NUIT.Checked Then str_prest(2) = "Nuit"
If CHECK_SOIR.Checked Then str_prest(3) = "Soir"
If CHECK_ATH1.Checked Then str_site(0) = "Ath"
If CHECK_BAUDOUR.Checked Then str_site(1) = "Baudour"
If CHECK_BELOEIL.Checked Then str_site(2) = "Beloeil"
If CHECK_DOUR.Checked Then str_site(3) = "Dour"
If CHECK_FRAMERIE.Checked Then str_site(4) = "Framerie"
If CHECK_HORNU.Checked Then str_site(5) = "Hornu"
MsgBox(str_site(0))
If DTP_DEBUT.Text <> " " Then
str_date_debut = DTP_DEBUT.Text
date_debut = CDate((DTP_DEBUT.Value).ToShortDateString())
End If
If DTP_FIN.Text <> " " Then
date_fin = CDate((DTP_FIN.Value).ToShortDateString())
End If
'str_requete = "SELECT * FROM VUE_RECRUTEMENT WHERE NOM LIKE :nom AND DESCRIPTION_PROFIL LIKE :profil AND " _
'& "ETP_1 LIKE :etp_1 AND ETP_3_4 LIKE :etp_3_4 AND ETP_1_2 LIKE :etp_1_2 AND CDI LIKE :cd1 AND " _
'& "CDD LIKE :cdd AND CR LIKE :cr AND W_E LIKE :w_e AND JF LIKE :jf AND SOIR LIKE :soir AND NUIT LIKE :nuit AND " _
'& "DESCRIPTION_STATUT LIKE :statut AND SITE_ATH LIKE :site_ath AND SITE_BAUDOUR LIKE :site_baudour AND " _
'& "SITE_BELOEIL LIKE :site_beloeil AND SITE_DOUR LIKE :site_dour AND SITE_FRAMERIE LIKE :site_framerie AND " _
'& "SITE_HORNU LIKE :site_hornu AND DATE_ENCODAGE BETWEEN :date_debut AND :date_fin ORDER BY ID_CANDIDAT "
str_requete = "SELECT * FROM VUE_RECRUTEMENT WHERE NOM LIKE :nom AND DESCRIPTION_PROFIL LIKE :profil AND " _
& "ETP_1 LIKE :etp_1 AND ETP_3_4 LIKE :etp_3_4 AND ETP_1_2 LIKE :etp_1_2 AND CDI LIKE :cd1 AND " _
& "CDD LIKE :cdd AND CR LIKE :cr AND W_E LIKE :w_e AND JF LIKE :jf AND SOIR LIKE :soir AND NUIT LIKE :nuit AND " _
& "DESCRIPTION_STATUT LIKE :statut AND SITE_ATH LIKE :ath " 'AND SITE_BAUDOUR LIKE :site_baudour AND " _
'& "SITE_BELOEIL LIKE :site_beloeil AND SITE_DOUR LIKE :site_dour AND SITE_FRAMERIE LIKE :site_framerie AND " _
'& "SITE_HORNU LIKE :site_hornu AND DATE_ENCODAGE BETWEEN :date_debut AND :date_fin ORDER BY ID_CANDIDAT "
ora_command_filtre = New OracleCommand(str_requete, conn)
With ora_command_filtre.Parameters()
.Add(New OracleParameter(":nom", OracleDbType.Char, 255))
.Add(New OracleParameter(":profil", OracleDbType.Char, 255))
.Add(New OracleParameter(":etp_1", OracleDbType.Char, 255))
.Add(New OracleParameter(":etp_3_4", OracleDbType.Char, 255))
.Add(New OracleParameter(":etp_1_2", OracleDbType.Char, 255))
.Add(New OracleParameter(":cd1", OracleDbType.Char, 255))
.Add(New OracleParameter(":cdd", OracleDbType.Char, 255))
.Add(New OracleParameter(":cr", OracleDbType.Char, 255))
.Add(New OracleParameter(":w_e", OracleDbType.Char, 255))
.Add(New OracleParameter(":jf", OracleDbType.Char, 255))
.Add(New OracleParameter(":soir", OracleDbType.Char, 255))
.Add(New OracleParameter(":nuit", OracleDbType.Char, 255))
.Add(New OracleParameter(":ath", OracleDbType.Char, 32))
'.Add(New OracleParameter(":site_baudour", OracleDbType.Char, 255))
'.Add(New OracleParameter(":site_beloeil", OracleDbType.Char, 255))
'.Add(New OracleParameter(":site_dour", OracleDbType.Char, 255))
'.Add(New OracleParameter(":site_framerie", OracleDbType.Char, 255))
'.Add(New OracleParameter(":site_hornu", OracleDbType.Char, 255))
.Add(New OracleParameter(":statut", OracleDbType.Char, 255))
'.Add(New OracleParameter(":date_debut", OracleDbType.Date))
'.Add(New OracleParameter(":date_fin", OracleDbType.Date))
End With
With ora_command_filtre
.Parameters(":nom").Value = TXT_NOM.Text + "%"
.Parameters(":profil").Value = Replace(CB_PROFIL.Text, "'", "''") + "%"
.Parameters(":etp_1").Value = Replace(str_etp(0), "'", "''") + "%"
.Parameters(":etp_3_4").Value = Replace(str_etp(1), "'", "''") + "%"
.Parameters(":etp_1_2").Value = Replace(str_etp(2), "'", "''") + "%"
.Parameters(":cd1").Value = Replace(str_contrat(0), "'", "''") + "%"
.Parameters(":cdd").Value = Replace(str_contrat(1), "'", "''") + "%"
.Parameters(":cr").Value = Replace(str_contrat(2), "'", "''") + "%"
.Parameters(":w_e").Value = Replace(str_prest(1), "'", "''") + "%"
.Parameters(":jf").Value = Replace(str_prest(0), "'", "''") + "%"
.Parameters(":soir").Value = Replace(str_prest(3), "'", "''") + "%"
.Parameters(":nuit").Value = Replace(str_prest(2), "'", "''") + "%"
.Parameters(":ath").Value = Replace(str_site(0), "'", "''") + "%"
'.Parameters(":site_baudour").Value = Replace(str_site(1), "'", "''") + "%"
'.Parameters(":site_beloeil").Value = Replace(str_site(2), "'", "''") + "%"
'.Parameters(":site_dour").Value = Replace(str_site(3), "'", "''") + "%"
'.Parameters(":site_framerie").Value = Replace(str_site(4), "'", "''") + "%"
'.Parameters(":site_hornu").Value = Replace(str_site(5), "'", "''") + "%"
.Parameters(":statut").Value = Replace(CB_STATUT.Text, "'", "''") + "%"
'.Parameters(":date_debut").Value = date_debut
'.Parameters(":date_fin").Value = date_fin
End With
ora_command_filtre.Connection.Close()
ora_command_filtre.Connection.Open()
dtr = ora_command_filtre.ExecuteReader |
Problème requête paramétrée
Répondre avec citation
Partager