Visual basic net

TP VB.Net:

TP1

TP2

Travail Demandé :
1. Créer l’interface ci-dessous et modifier les propriétés de chaque contrôle ?

2. le programme doit calculer la somme de deux nombres, écrire le code correspondant pour chaque bouton ?
Solution :
Le bouton Annuler
txt1.ResetText() ‘ vider la zone de textetxt2.ResetText()

txt3.ResetText()

txt1.Select() ‘ pour donner le focus a l’objet txt1End Sub

Le bouton Quitter
If MsgBox("Voulez vous vraiment quitter l'application?", MsgBoxStyle.YesNo_ Or MsgBoxStyle.Exclamation, "Sortir!!")=MsgBoxResult.Yes Then
End
‘ fin du programme
End If
End Sub

Le bouton OK
Private Sub CmdOk_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdOk.Click
If txt1.Text <> Space(0) And txt2.Text <> Space(0) then
txt3.Text = CInt(txt1.Text) + CInt(txt2.Text)
End If
txt1.Focus()
End Sub

TP3

TP4

Module VBNet

Imports System.Data.OleDb
Module Module1
Public con As OleDbConnection
Public cmd As OleDbCommand
Public objetdataadapter As OleDbDataAdapter
Public objetdataset As New DataSet()
Public strsql As String
Public objetdatatable As DataTable
Public objetdatarow As DataRow
Public rownumber As Integer
Public strconn As String
Public objetcommandbuilder As OleDbCommandBuilder
Public objetdatatable1 As DataTable
Public objetdatatable3 As DataTable
Public objetdatatable4 As DataTable
Public Sub connexion()
strconn = "provider=Microsoft.ace.OLEDB.12.0;" & " Data Source = E:\bd.accdb;"
con = New OleDbConnection()
con.ConnectionString = strconn
con.open()
strsql = "select * from etudiant"
cmd = New OleDbCommand(strsql)
objetdataadapter = New OleDbDataAdapter(cmd)
cmd.Connection = con
objetdataadapter.Fill(objetdataset, "etudiant")
objetdatatable = objetdataset.Tables("etudiant")
End Sub
End Module

''''''' Notez bien que ce module est un exemple ,donc il faut faire les changements nécessaires pour l'adapter au projet étudié '''''''

--------------------------------

Codes des boutons
Bouton enregistrer
Call connexion()
If N.Text = "" Or nom.Text = "" Or prenom.Text = "" Or vill.Text = "" Then
MsgBox("remplir tous les champs")
Else
ObjetDataRow = ObjetDataSet.Tables("FICHEPATIENT").NewRow()
ObjetDataRow("Nom") = Me.nom.Text
ObjetDataRow("Prenom") = Me.prenom.Text
ObjetDataRow("ville") = Me.vill.Text objetDataSet.Tables("FICHEPATIENT").Rows.Add(ObjetDataRow)
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Update(ObjetDataSet, "FICHEPATIENT")
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "FICHEPATIENT")
ObjetDataTable = ObjetDataSet.Tables("FICHEPATIENT")
MsgBox("enregistrement effectuées")
End If

Bouton supprimer
Call connexion()
ObjetDataSet.Tables("FICHEPATIENT").Rows(RowNumber).Delete()
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Update(ObjetDataSet, "FICHEPATIENT")
MsgBox("suppression effectué")

Bouton suivant :
Call connexion()
If rownumber = objetdatatable.Rows.Count - 1 Then
MsgBox("dernier enregistrement")
Else
rownumber += 1
Me.ninscr.Text = objetdatatable.Rows(rownumber).Item("ninscr")
Me.nom.Text = objetdatatable.Rows(rownumber).Item("nom")
Me.prenom.Text = objetdatatable.Rows(rownumber).Item("prenom")
End If

Bouton Modifier
Call connexion()
ObjetDataRow = ObjetDataSet.Tables("FICHEPATIENT").Rows(RowNumber)
ObjetDataRow("Nom") = Me.nom.Text
ObjetDataRow("Prenom") = Me.prenom.Text
ObjetCommandBuilder = New OleDbCommandBuilder(ObjetDataAdapter)
ObjetDataAdapter.Update(ObjetDataSet, "FICHEPATIENT")
ObjetDataSet.Clear()
ObjetDataAdapter.Fill(ObjetDataSet, "FICHEPATIENT")
ObjetDataTable = ObjetDataSet.Tables("FICHEPATIENT")
MsgBox("modification effectués")

Bouton précédent
If RowNumber = 0 Then
    MsgBox("premier enregistrement")
Else
    RowNumber -= 1
    Me.nom.Text = ObjetDataTable.Rows(RowNumber).Item("nom")
    Me.prenom.Text = ObjetDataTable.Rows(RowNumber).Item("prenom")
    Me.N.Text = ObjetDataTable.Rows(RowNumber).Item("N")
    Me.vill.Text = ObjetDataTable.Rows(RowNumber).Item("ville")

End If

Bouton rechercher 
Call connect() 
Call etudiant() 
 Dim cmd As New OleDbCommand("select * from etudiant where [code] like '%" & txtSearch.Text & "%'") 
 cmd.Connection = con 
 Dim da As New OleDbDataAdapter 
da.SelectCommand = cmd 
 Dim ds As New DataSet 
da.Fill(ds, "matable") 
dtg1.DataSource = ds.Tables("matable") 
con.Close()

Afficher le contenu de la table dans un datagrid
  Call connexion() 
  DataGrid1.DataSource = ObjetDataSet
  DataGrid1.DataMember = "FICHEPATIENT"

Pour afficher le contenu des champs de la BD dans les zones de texte du formulaire
Call connexion()
        Me.nom.Text = ObjetDataTable.Rows(RowNumber).Item("nom")
        Me.prenom.Text = ObjetDataTable.Rows(RowNumber).Item("prenom")
        Me.N.Text = ObjetDataTable.Rows(RowNumber).Item("N")
        Me.vill.Text = ObjetDataTable.Rows(RowNumber).Item("ville")


''''''' Notez bien qu'il faut faire les changements nécessaires pour adapter ces codes au projet étudié '''''''

----------------------------------