Code a la dur

ok ... en fait tu codes tout à la suite ... c'est presque impossbile à comprendre et pour la maintenance ça devient impossible.
Tu devrais utiliser des procédures et des fonctions ... par exemple une fonction pour la connection à la base de données qui renvoie un booléen si tout c'est bien passé. Une autre pour passer la requête à la base, une procédure pour l'affichage des résultats etc ... chaque procédure dans un module bien distinct, par exemple pour tout ce qui touche à la base faire un module ModBdd, pour tout ce que touche à l'affichage, faire un module ModAffichage .. etc ... ton code devient plus lisible et plus facile à maintenir. De plus ça permet de rendre les modules réutilisables pour d'autres applications.

bon courage

;o)

Polux

btnCreateDB.Enabled = False
btnCreateDB.BackColor = Color.Green
'ouverture de la connection(à partir du répertoire de l'application)
conn = "provider = microsoft.jet.oledb.4.0 ; data source = " & Application.StartupPath & "\Contact.cdb;"
cnx = New OleDbConnection
cnx.ConnectionString = conn
cnx.Open()
'exécution de la commande(cmd),
'du dataadapter (dta),
'du dataset(dts),
'de la datatable (dtt)
'sql=>cmd=>dta
'cnx=>cmd
'dta=>dts=>dtt
sql = "select Contact.* from Contact"
cmd = New OleDbCommand(sql)
dta = New OleDbDataAdapter(cmd)
cmd.Connection() = cnx
'chargement du DataSet à partir du DataAdapter
dta.Fill(dts, "Contact")
'chargement de la DataTable à partir du DataSet
dtt = dts.Tables("Contact")
'si la table est vide alors
If rownum > dtt.Rows.Count - 1 Then
'désactivation des boutons pour éviter une erreur
'si la table est vide
btnajou.Enabled = False
btnenr.Enabled = True
btnmod.Enabled = False
btnsup.Enabled = False
lblAll.Text = ""
Me.Show()
Me.txtnom.Focus()
lblcount.Text = "Enr. " & rownum & " de " & dts.Tables("Contact").Rows.Count
Else
'affichage des données dans les textbox
Me.txtnom.Text = dtt.Rows(rownum).Item("NOM")
Me.txtPrenom.Text = dtt.Rows(rownum).Item("PRENOM")
Me.txtAdress.Text = dtt.Rows(rownum).Item("ADRESSE")
Me.txtVille.Text = dtt.Rows(rownum).Item("VILLE")
Me.txtProvince.Text = dtt.Rows(rownum).Item("PROVINCE")
Me.txtCode_Postal.Text = dtt.Rows(rownum).Item("CODE_POSTAL")
Me.txtPays.Text = dtt.Rows(rownum).Item("PAYS")
Me.txtTéléphone.Text = dtt.Rows(rownum).Item("TELEPHONE")
Me.TxtCell.Text = dtt.Rows(rownum).Item("CELL")
Me.txtCourriel.Text = dtt.Rows(rownum).Item("COURRIEL")
btnenr.Enabled = False
lblcount.Text = "Enr. " & rownum + 1 & " de " & dts.Tables("Contact").Rows.Count
'Ajout à la carte a imprimer
lblAll.Text = Me.txtPrenom.Text & " " & txtnom.Text & vbCrLf & _
Me.txtAdress.Text & vbCrLf & _
Me.txtVille.Text & ", " & Me.txtProvince.Text & vbCrLf & _
Me.txtCode_Postal.Text & ", " & Me.txtPays.Text & vbCrLf & _
Me.txtTéléphone.Text & ", " & Me.TxtCell.Text & vbCrLf & _
Me.txtCourriel.Text
'Ajout au datagridview
Me.DataGridView1.DataSource = dts.Tables("Contact")
Me.DataGridView1.Columns(0).Visible = False
Me.DataGridView1.Columns(3).Visible = False
Me.DataGridView1.Columns(4).Visible = False
Me.DataGridView1.Columns(5).Visible = False
Me.DataGridView1.Columns(6).Visible = False
Me.DataGridView1.Columns(7).Visible = False
Me.DataGridView1.Columns(8).Visible = False
Me.DataGridView1.Columns(9).Visible = False

ca c'est la facon dont moi j ai apris avec les livre et on me dit que code a la dur et que c est inutilisable

je ne peux pas te répondre, je ne sais pas comment tu codes ...

Merci polux de ta reponse mais je veut une explication sur coder a la dure
k ca veut dire

Merci

bonjour,

http://faqvbnet.developpez.com/

;o)

polux