Carnet d'adresse
Description
C'est une application qui traite de l'enregistrement, de la suppression ou de la modification de données stockées dans une base access. Une module de recherche par nom et par ville a été implémentée ainsi que le defilement des enregistrements. Le login= Ams et le mot de passe= Diop.Ceci est la 3e source que je publie dans ce site.
Login=Ams
Mot de Passe= Diop
les majuscules ont leur importance
Source / Exemple :
Public Class LoginForm1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
Dim o As New ClassCarnet
Dim ch As String = o.Chemin
Dim db As String = o.DB
o.cnstr(ch, db)
o.Connection()
Dim tbl As String = "MotPass"
Dim sql As String = "select * from MotPass"
o.Dts_Dta_Dtt_Create(tbl, sql)
Dim i As Integer
o.RowNber(i)
o.txtbox(User, "Login", i)
o.txtbox(Psw, "MotPass", i)
If Me.UserTxt.Text <> "" And Me.PswTxt.Text <> "" Then '
If UserTxt.Text = User.Text And PswTxt.Text = Psw.Text Then
Me.Close()
Form1.Show()
Else
MsgBox("Erreur, veuillez recommencer")
End If
Else
MsgBox("Erreur, veuillez recommencer")
End If
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
Me.Close()
Application.Exit()
End Sub
Private Sub LoginForm1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
User.Hide()
User.Clear()
Psw.Hide()
End Sub
End Class
'---------------------------------------------------------------------------------------------------------------------------
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Public DB As String = "C_Adresse.mdb;"
Public Chemin As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Application.StartupPath & "\" & DB
Public cn As New OleDbConnection
Dim Cmd As New OleDbCommand
Dim Dts As New DataSet
Dim Dtt As New DataTable
Dim rd As OleDbDataReader
Dim Dta As New OleDbDataAdapter(Cmd)
' Déclaration Objet DataRow (ligne)
Dim Dtrw As DataRow
Dim Dtv As New DataView
Dim sql As String
Dim strcn As String
Private CmdB As OleDbCommandBuilder
'Numéro de la ligne en cours
Dim RowNumber As Integer
Private Sub connection(ByVal Chemin As String)
Dim cn As New OleDbConnection
cn.ConnectionString = Chemin
Try
'commande
cn.Open() ' ouverture de la connxion
Catch ex As Exception
MsgBox(ex.Message)
End ' quitter l'application
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.txtRech.Visible = False
Me.Btn_rech.Visible = False
Me.Visible = False
Me.Hide()
Accueil.ShowDialog()
Chemin = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Application.StartupPath & "\" & DB
cn.ConnectionString = Chemin
Try
'commande
cn.Open() ' ouverture de la connxion
Catch ex As Exception
MsgBox(ex.Message)
End ' quitter l'application
End Try
'Initialisation de l'instruction SQL
sql = "SELECT * FROM Carnet"
'Instancer un objet Commande & connexion de l'objet Command
Cmd = New OleDbCommand(sql, cn)
Cmd.CommandText = sql
Cmd.Connection = cn
'Instancer un objet Adapter
Dta = New OleDbDataAdapter(Cmd)
'Avec l'aide de la propriété Fill du DataAdapter charger leDataset()
Dta.Fill(Dts, "Carnet")
'Mettre dans un Objet DataTable une table du DataSet
Dtt = Dts.Tables("Carnet")
Dtv = Dts.Tables("Carnet").DefaultView
Dtv.AllowEdit = True
DataGridView1.DataSource = Dtv
If RowNumber < 0 Then Exit Sub
''Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement
If RowNumber > Dtt.Rows.Count - 1 Then Exit Sub
'Dtt.Rows(Numéro de lignes).Item( Nom de colonne) donne
Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") '
Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") '
Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") '
Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") '
Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél") '
Me.Btn_Aj.Enabled = False
'-------------------------
With Me.DataGridView1
'Une ligne sur 2 en bleue
.RowsDefaultCellStyle.BackColor = Color.White
.AlternatingRowsDefaultCellStyle.BackColor = Color.Blue
'Interdir la selection de plusieurs cellules
.MultiSelect = True
'Empeche la saisie dans les cellules (en faite, le permet par
'programmation)
.EditMode = DataGridViewEditMode.EditProgrammatically
End With
'Gestion des en-têtes de colonne
With DataGridView1.ColumnHeadersDefaultCellStyle '
.BackColor = Color.Red 'ça marche pas!!??
.ForeColor = Color.Blue
.Font = New Font(DataGridView1.Font, FontStyle.Italic) ' en gras
End With
''--------------------------
'Dim cn1 As New OleDbConnection(Chemin)
'Dim rd1 As OleDbDataReader
'Dim sql1 As String
'Try
' cn1.Open()
'Catch ex As Exception
' MsgBox(ex.Message)
'End Try
'sql1 = "SELECT Carnet.Carnet_NomPren FROM Carnet GROUP BY Carnet.Carnet_NomPren "
''Instancer un objet Commande & connexion de l'objet Command
'Dim Cmd1 As New OleDbCommand()
'Cmd1 = cn1.CreateCommand
'Cmd1.CommandText = sql1
'Cmd1.Connection = cn1
'rd1 = Cmd1.ExecuteReader()
'Do While rd1.Read()
' txtRech1.Items.Add(rd1.GetValue(0)) '
'Loop
'rd1.Close()
'cn1.Close()
'------------------------------
cn.Close()
End Sub
Private Sub BtnDébut_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDébut.Click
RowNumber = 0 'pour la première.
Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") '
Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") '
Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") '
Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") '
Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
End Sub
Private Sub BtnSuiv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSuiv.Click
'---------------------------------
If RowNumber >= 0 And RowNumber < Dtt.Rows.Count - 1 Then ''
RowNumber += 1
'incrémente le numéro de la ligne en cours puis on affiche.
Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") '
Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") '
Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") '
Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") '
Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
End If
End Sub
Private Sub BtnPécéd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPécéd.Click
If RowNumber > 0 And RowNumber <= Dtt.Rows.Count - 1 Then 'RowNumber >= 0
RowNumber -= 1 'pour la précédente.
Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") '
Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") '
Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") '
Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") '
Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
End If
End Sub
Private Sub BtnFin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFin.Click
RowNumber = Dtt.Rows.Count - 1 'pour la dernière.
Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") '
Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") '
Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") '
Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") '
Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
End Sub
Private Sub Btn_Aj_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Aj.Click
Try
Dtrw = Dts.Tables("Carnet").NewRow()
'Modifier les valeurs des champs en récupérant le contenu
'des(TextBox)
Dtrw("Carnet_ref") = Me.Carnet_ref.Text
Dtrw("Carnet_NomPren") = Me.Carnet_NomPren.Text '
Dtrw("Carnet_DateNaiss") = Me.Carnet_DateNaiss.Text
Dtrw("Carnet_Adresse") = Me.Carnet_Adresse.Text
Dtrw("Carnet_Ville") = Me.Carnet_Ville.Text
Dtrw("Carnet_CP") = Me.Carnet_CP.Text '
Dtrw("Carnet_Pays") = Me.Carnet_Pays.Text
Dtrw("Carnet_Tél") = Me.Carnet_Tél.Text
Dts.Tables("Carnet").Rows.Add(Dtrw)
CmdB = New OleDbCommandBuilder(Dta) 'Pour modifier les valeurs changées dans le DataAdapter
Dta.Update(Dts, "Carnet") 'Mise à jour
'On vide le DataSet et on le 'recharge' de nouveau.
Dts.Clear()
Dta.Fill(Dts, "Carnet")
Dtt = Dts.Tables("Carnet")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Btn_Modif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Modif.Click
' Extraire l'enregistrement courant
'------------------
'---------------------
Dtrw = Dts.Tables("Carnet").Rows(RowNumber)
'Modifier les valeurs des champs en récupérant le contenu
'des(TextBox)
Dtrw("Carnet_ref") = Me.Carnet_ref.Text
Dtrw("Carnet_NomPren") = Me.Carnet_NomPren.Text '
Dtrw("Carnet_DateNaiss") = Me.Carnet_DateNaiss.Text
Dtrw("Carnet_Adresse") = Me.Carnet_Adresse.Text
Dtrw("Carnet_Ville") = Me.Carnet_Ville.Text
Dtrw("Carnet_CP") = Me.Carnet_CP.Text '
Dtrw("Carnet_Pays") = Me.Carnet_Pays.Text
Dtrw("Carnet_Tél") = Me.Carnet_Tél.Text
'Pour modifier les valeurs changées dans le DataAdapter
CmdB = New OleDbCommandBuilder(Dta)
'Mise à jour
Dta.Update(Dts, "Carnet")
'On vide le DataSet et on le 'recharge' de nouveau.
Dts.Clear()
Dta.Fill(Dts, "Carnet")
Dtt = Dts.Tables("Carnet")
End Sub
Private Sub Btn_Eff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Eff.Click
Dtrw = Dts.Tables("Carnet").NewRow()
'Modifier les valeurs des champs en récupérant le contenu
'des(TextBox)
'Effacer l''enregistrement en cours:
Dts.Tables("Carnet").Rows(RowNumber).Delete()
'Pour modifier les valeurs changées dans le DataAdapter
CmdB = New OleDbCommandBuilder(Dta)
Dtrw("Carnet_ref") = Me.Carnet_ref.Text
Dtrw("Carnet_NomPren") = Me.Carnet_NomPren.Text '
Dtrw("Carnet_DateNaiss") = Me.Carnet_DateNaiss.Text
Dtrw("Carnet_Adresse") = Me.Carnet_Adresse.Text
Dtrw("Carnet_Ville") = Me.Carnet_Ville.Text
Dtrw("Carnet_CP") = Me.Carnet_CP.Text '
Dtrw("Carnet_Pays") = Me.Carnet_Pays.Text
Dtrw("Carnet_Tél") = Me.Carnet_Tél.Text
'Mise à jour
Dta.Update(Dts, "Carnet")
'On vide le DataSet et on le 'recharge' de nouveau.
Dts.Clear()
Dta.Fill(Dts, "Carnet")
Dtt = Dts.Tables("Carnet")
End Sub
Private Sub Btn_rech_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_rech.Click
Btn_rech.Enabled = True
BtnNouv.Enabled = False
Btn_Aj.Enabled = False
If Btn_rech.Text = "Recherche" Then
Btn_rech.Text = "Annuler"
'on vide le DataSet pour le charger avec
'les données de la recherche
Dts.Clear()
If CheckNomPren.Checked = True Then
Me.txtRech.Visible = True
Me.Btn_rech.Visible = True
'recherche par caractere quelque soit sa place dans le mots
'sql = "SELECT * FROM Carnet WHERE Carnet_NomPren LIKE '%" & txtRech.Text & "%';"
'Recherche de mots commencant par les 1erés lettres
sql = "SELECT * FROM Carnet WHERE Carnet_NomPren LIKE '" & txtRech.Text & "%';"
Cmd = New OleDbCommand(sql)
Dta = New OleDbDataAdapter(Cmd)
Cmd.Connection() = cn
Dta.Fill(Dts, "Carnet")
Dtt = Dts.Tables("Carnet")
Dtv = Dts.Tables("Carnet").DefaultView
Dtv.AllowEdit = True
'si aucunes données existent pour ce nom alors
If RowNumber > Dtt.Rows.Count - 1 Then
MsgBox("Il n'existe aucunes données pour le nomPrenom !Données inexistantes...", MsgBoxStyle.Exclamation)
If MsgBoxResult.Ok Then
Btn_rech.Text = "Recherche"
CheckNomPren.Checked = False
Me.txtRech.Text = ""
Me.txtRech.Focus()
End If
Exit Sub
Else
'sinon afichage des données dans la Datagrid
'et les textbox
DataGridView1.DataSource = Dtv
Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") '
Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") '
Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") '
Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") '
Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
Btn_Modif.Enabled = True
Btn_Eff.Enabled = True
BtnDébut.Enabled = True
BtnSuiv.Enabled = True
BtnPécéd.Enabled = True
BtnFin.Enabled = True
End If
ElseIf CheckVille.Checked = True Then
Me.txtRech.Visible = True
Me.txtRech.Text = ""
Me.Btn_rech.Visible = True
'création de la requête,exécution de la commande,
'remplissage du DataAdapter,du DataSet et de la DataTable
sql = "select * from Carnet where Carnet_Ville = '" & txtRech.Text & "'"
Cmd = New OleDbCommand(sql)
Dta = New OleDbDataAdapter(Cmd)
Cmd.Connection() = cn
Dta.Fill(Dts, "Carnet")
Dtt = Dts.Tables("Carnet")
Dtt = Dts.Tables("Carnet")
Dtv = Dts.Tables("Carnet").DefaultView
Dtv.AllowEdit = True
'---------------------------------------
'si aucunes données existent pour ce nom alors
If RowNumber > Dtt.Rows.Count - 1 Then
MessageBox.Show("Il n'existe aucunes données pour la ville " & txtRech.Text & " !", "Données inexistantes...", MessageBoxButtons.OK, MessageBoxIcon.Information)
If MsgBoxResult.Ok Then
Me.Btn_rech.Text = "Recherche"
Me.CheckVille.Checked = False
Me.txtRech.Text = ""
Me.txtRech.Focus()
End If
'Exit Sub
Else
'sinon afichage des données dans la Datagrid
'et les textbox
DataGridView1.DataSource = Dtv
Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") '
Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") '
Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") '
Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") '
Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
Btn_Modif.Enabled = True
Btn_Eff.Enabled = True
BtnDébut.Enabled = True
BtnSuiv.Enabled = True
BtnPécéd.Enabled = True
BtnFin.Enabled = True
End If
ElseIf Me.CheckNomPren.Checked = False And Me.CheckVille.Checked = False Then
'aucune case n'est cochées donc
Me.txtRech.Visible = False
Me.Btn_rech.Visible = False
Btn_rech.Text = "Annuler"
MsgBox("clicker sur le bouton de Annuler pour revenir au début!, Erreur...", MsgBoxStyle.Information, "Clicker encore")
If MsgBoxResult.Ok Then
Me.Btn_rech.Text = "Recherche"
End If
End If
ElseIf Me.Btn_rech.Text = "Annuler" Then
Btn_rech.Text = "Recherche"
Me.Btn_Aj.Enabled = True
Me.BtnNouv.Enabled = True
'initialisation des contrôle pour une recherche
Me.txtRech.Text = ""
Me.CheckNomPren.Checked = False
Me.CheckVille.Checked = False
'on vide le DataSet pour le charger avec
'toutes les données de la table
Dts.Clear()
sql = "select * from Carnet "
Cmd = New OleDbCommand(sql)
Dta = New OleDbDataAdapter(Cmd)
Cmd.Connection() = cn
Dta.Fill(Dts, "Carnet")
Dtt = Dts.Tables("Carnet")
Dtv = Dts.Tables("Carnet").DefaultView
Dtv.AllowEdit = True
DataGridView1.DataSource = Dtv
If RowNumber < 0 Then Exit Sub
''Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement
If RowNumber > Dtt.Rows.Count - 1 Then Exit Sub
Me.DataGridView1.DataSource = Dtv
Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") '
Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") '
Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") '
Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") '
Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
'--------------------------
Btn_rech.Text = "Recherche"
' vider le datagridview
'Me.DataGridView1.Rows.Clear()
End If
End Sub
'------------------------------
Private Sub BtnNouv_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNouv.Click
If BtnNouv.Text = "Nouveau" Then
Dim tb() As TextBox = {Carnet_ref, Carnet_NomPren, Carnet_DateNaiss, Carnet_Adresse, _
Carnet_Ville, Carnet_CP, Carnet_Pays, Carnet_Tél}
Dim x As Byte
For x = 1 To 7
tb(x).Text = ""
Next
Me.BtnNouv.Text = "Annuler"
Me.Btn_Aj.Enabled = True
Else
If RowNumber > Dtt.Rows.Count - 1 Then
Btn_Aj.Enabled = False
BtnNouv.Text = "Ajouter"
Else
'aller au début du fichier
RowNumber = 0
If RowNumber < 0 Then Exit Sub
''Lors de l'ouverture de la BD, s'il n'y a aucun enregistrement
If RowNumber > Dtt.Rows.Count - 1 Then Exit Sub
' Dtt.Rows(Numéro de lignes).Item( Nom de colonne) donne
Me.Carnet_ref.Text = Dtt.Rows(RowNumber).Item("Carnet_ref")
Me.Carnet_NomPren.Text = Dtt.Rows(RowNumber).Item("Carnet_NomPren") '
Me.Carnet_DateNaiss.Text = Dtt.Rows(RowNumber).Item("Carnet_DateNaiss") '
Me.Carnet_Adresse.Text = Dtt.Rows(RowNumber).Item("Carnet_Adresse") '
Me.Carnet_Ville.Text = Dtt.Rows(RowNumber).Item("Carnet_Ville") '
Me.Carnet_CP.Text = Dtt.Rows(RowNumber).Item("Carnet_CP") '
Me.Carnet_Pays.Text = Dtt.Rows(RowNumber).Item("Carnet_Pays") '
Me.Carnet_Tél.Text = Dtt.Rows(RowNumber).Item("Carnet_Tél")
Me.BtnNouv.Text = "Nouveau"
Me.Btn_Aj.Enabled = False
End If
End If
End Sub
Private Sub CheckNomPren_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckNomPren.CheckedChanged
Me.txtRech.Visible = True
Me.Btn_rech.Visible = True
End Sub
Private Sub CheckVille_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckVille.CheckedChanged
Me.txtRech.Visible = True
Me.Btn_rech.Visible = True
End Sub
Private Sub Btn_rech_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_rech.Click
End Sub
Private Sub txtRech_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtRech.TextChanged
End Sub
End Class
Conclusion :
Login=Ams
Mot de Passe= Diop
les majuscules ont leur importance
Codes Sources
A voir également
- Carnet d'adresse
- Violation d'accès à l'adresse - Forum Delphi / Pascal
- Violation d’accès à l’adress - Forum Delphi / Pascal
- Violation d'acces en delphi ✓ - Forum Delphi / Pascal
- Violation d'adresse ......... dans le module ✓ - Forum Delphi / Pascal
- Violation d'accès à l'adresse... ✓ - Forum Delphi / Pascal
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.