Base de données à deux tables

Private Sub Form_Load()

On Error Resume Next

FConsultDonnees.Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\BDMezgani3.mdb; Persist security info = false"

SQLs = " select * from TableauInfo"

FConsultDonnees.Adodc1.RecordSource = SQLs

Set FConsultDonnees.DataGrid1.DataSource = FConsultDonnees.Adodc1

FConsultDonnees.DataGrid1.AllowAddNew = False
FConsultDonnees.DataGrid1.AllowUpdate = False




FConsultDonnees.lblCpteur.Caption = "Le nombre des enregistrements :" & "     " & FConsultDonnees.Adodc1.Recordset.RecordCount & "     " & "Personnes"
FConsultDonnees.Adodc1.Refresh



FConsultDonnees.DataGrid1.Columns.Item(0).Button = True




End Sub

Private Sub TNom_Change()
If TMatricule = "" And TNom = ""  Then

SQLs = " Select * from TableauInfo"
FConsultDonnees.Adodc1.RecordSource = SQLs
FConsultDonnees.Adodc1.Refresh

FConsultDonnees.lblCpteur.Caption = "Le nombre des enregistrements :" & FConsultDonnees.Adodc1.Recordset.RecordCount & "     " & "Personnes"

Exit Sub
End If

SQLs = "Select * from TableauInfo " & " where MATRICULE like '" & TMatricule & "%' and NOM like '" & TNom & "%' "

FConsultDonnees.Adodc1.RecordSource = SQLs
FConsultDonnees.Adodc1.Refresh

FConsultDonnees.lblCpteur.Caption = "Le nombre des enregistrements :" & FConsultDonnees.Adodc1.Recordset.RecordCount & "     " & "Personnes"
FConsultDonnees.Adodc1.Refresh


FConsultDonnees.DataGrid1.Columns.Item(0).Button = True

FConsultDonnees.Show
Unload Me

End Sub

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
On Error GoTo xxx

Select Case ColIndex
Case 0
SQLs = " Select * from TableauInfo where CIN = '" & DataGrid1.Text & "'"
End Select

FModifRensi.Show
Unload Me


xxx:

End Sub

Private Sub Form_Load()

lblCpteur.Caption = "Le nombre des enregistrements :" & "    " & Adodc1.Recordset.RecordCount & "    " & "Personnes"
Adodc1.Refresh


End Sub

Private Sub Form_Load()

PoolConnection

SQLs = "select * from TableauInfo"

If RS.State = adStateOpen Then RS.Close
RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic

FillData


End Sub

Sub FillData()

On Error Resume Next

If Not IsNull(RS![MATRICULE]) Then TMatricule = RS![MATRICULE]
If Not IsNull(RS![NOM]) Then TNom = RS![NOM]
If Not IsNull(RS![PRENOM]) Then TPrenom = RS![PRENOM]
If Not IsNull(RS![CIN]) Then TCin = RS![CIN]

CIN = TCin

If Not IsNull(RS![ADRESSE]) Then TAdresse = RS![ADRESSE]
If Not IsNull(RS![TELEPHONE]) Then TTel = RS![TELEPHONE]
If Not IsNull(RS![EMAIL]) Then TEmail = RS![EMAIL]
If Not IsNull(RS![DNAISSANCE]) Then TDNaissance = RS![DNAISSANCE]
If Not IsNull(RS![LNAISSANCE]) Then TLNaissance = RS![LNAISSANCE]
If Not IsNull(RS![SEXE]) Then TSexe = RS![SEXE]
If Not IsNull(RS![NATIONALITE]) Then TNationalite = RS![NATIONALITE]
If Not IsNull(RS![SFAMILIALE]) Then TSFamiliale = RS![SFAMILIALE]
If Not IsNull(RS![NENFANT]) Then TNEnfant = RS![NENFANT]
If Not IsNull(RS![CNSS]) Then TCnss = RS![CNSS]
If Not IsNull(RS![NINSTRUCTION]) Then TNInstruction = RS![NINSTRUCTION]
If Not IsNull(RS![QUALIFICATION]) Then TQualification = RS![QUALIFICATION]
If Not IsNull(RS![DEPARTEMENT]) Then TDepart = RS![DEPARTEMENT]
If Not IsNull(RS![POSTE]) Then TPoste = RS![POSTE]
If Not IsNull(RS![DENTREE]) Then TDateEntree = RS![DENTREE]
'If Not IsNull(RS![DSORTIE]) Then RS![DSORTIE] = TDateSortie



End Sub

Private Sub cmdModifier_Click()
Dim Reponse As String
Dim Reponse2 As String

Reponse2 = MsgBox("Cette personne est elle sortante ?", vbCritical + vbQuestion + vbYesNo, "Alors ! Quoi ?")

If Reponse2 = vbYes Then

         TDSortie.SetFocus
Exit Sub
End If


If Not TDSortie = "" Then


GoTo oKS:

Else


Reponse2 = True

End If




If CIN = TCin Then
End If


SQLs = "select * from TableauInfo where CIN ='" & TCin & "'"

If Rss.State = adStateOpen Then Rss.Close
Rss.Open SQLs, DB, adOpenKeyset, adLockPessimistic


If Rss.EOF Then
 
  MsgBox "Ce numéro existe déjà", vbCritical + vbMsgBoxRight, "Erreur"
  
Else


 GoTo Dont_Check
Exit Sub
End If


oKS:
'------------
Dont_Check:


Reponse = MsgBox("Etes vous sûr de vouloir modifier ces données ?", vbCritical + vbExclamation + vbYesNo, "Alors quoi ?")

If Reponse = vbYes Then

'RS.AddNew

If Not TMatricule = "" Then RS![MATRICULE] = TMatricule
If Not TNom = "" Then RS![NOM] = TNom
If Not TPrenom = "" Then RS![PRENOM] = TPrenom
If Not TCin = "" Then RS![CIN] = TCin
If Not TAdresse = "" Then RS![ADRESSE] = TAdresse
If Not TTel = "" Then RS![TELEPHONE] = TTel
If Not TEmail = "" Then RS![EMAIL] = TEmail
If Not TDNaissance = "" Then RS![DNAISSANCE] = TDNaissance
If Not TLNaissance = "" Then RS![LNAISSANCE] = TLNaissance
If Not TSexe = "" Then RS![SEXE] = TSexe
If Not TNationalite = "" Then RS![NATIONALITE] = TNationalite
If Not TSFamiliale = "" Then RS![SFAMILIALE] = TSFamiliale
If Not TNEnfant = "" Then RS![NENFANT] = TNEnfant
If Not TCnss = "" Then RS![CNSS] = TCnss
If Not TNInstruction = "" Then RS![NINSTRUCTION] = TNInstruction
If Not TQualification = "" Then RS![QUALIFICATION] = TQualification
If Not TDepart = "" Then RS![DEPARTEMENT] = TDepart
If Not TPoste = "" Then RS![POSTE] = TPoste
If Not TDateEntree = "" Then RS![DENTREE] = TDateEntree
'If Not TDateSortie = "" Then RS![DSORTIE] = TDateSortie


RS.Update

MsgBox "Les données sont modifiées", vbCritical + vbInformation, "Enregistrement des données"

Else

FRecherche.Show
Unload Me

Exit Sub
End If

TMatricule = ""
TNom = ""
TPrenom = ""
TCin = ""
TAdresse = ""
TTel = ""
TEmail = ""
TDNaissance = ""
TLNaissance = ""
TSexe = ""
TNationalite = ""
TSFamiliale = ""
TNEnfant = ""
TCnss = ""
TNInstruction = ""
TQualification = ""
TDepart = ""
TPoste = ""
TDateEntree = ""
'TDateSortie = ""

FConsultDonnees.Show
Unload Me


End Sub

Private Sub cmdSupprimer_Click()
Dim Reponse1 As String

SQLs = " Select * from TableauInfo where CIN='" & TCin & "'"

If Rss.State = adStateOpen Then Rss.Close
Rss.Open SQLs, DB, adOpenKeyset, adLockPessimistic

Reponse1 = MsgBox("Etes vous sûr de vouloir supprimer ces données ?", vbCritical + vbQuestion + vbYesNo, "Alors ! quoi ? ")

If Reponse1 = vbYes Then

If Not TMatricule = "" Then RS![MATRICULE] = TMatricule
If Not TNom = "" Then RS![NOM] = TNom
If Not TPrenom = "" Then RS![PRENOM] = TPrenom
If Not TCin = "" Then RS![CIN] = TCin
If Not TAdresse = "" Then RS![ADRESSE] = TAdresse
If Not TTel = "" Then RS![TELEPHONE] = TTel
If Not TEmail = "" Then RS![EMAIL] = TEmail
If Not TDNaissance = "" Then RS![DNAISSANCE] = TDNaissance
If Not TLNaissance = "" Then RS![LNAISSANCE] = TLNaissance
If Not TSexe = "" Then RS![SEXE] = TSexe
If Not TNationalite = "" Then RS![NATIONALITE] = TNationalite
If Not TSFamiliale = "" Then RS![SFAMILIALE] = TSFamiliale
If Not TNEnfant = "" Then RS![NENFANT] = TNEnfant
If Not TCnss = "" Then RS![CNSS] = TCnss
If Not TNInstruction = "" Then RS![NINSTRUCTION] = TNInstruction
If Not TQualification = "" Then RS![QUALIFICATION] = TQualification
If Not TDepart = "" Then RS![DEPARTEMENT] = TDepart
If Not TPoste = "" Then RS![POSTE] = TPoste
If Not TDateEntree = "" Then RS![DENTREE] = TDateEntree
'If Not TDateSortie = "" Then RS![DSORTIE] = TDateSortie


RS.Delete

MsgBox "Les données sont supprimées", vbCritical + vbInformation, "Suppression des données"

FConsultDonnees.Show
Unload Me


End If

End Sub