Voici une petite application que j'ai développé en 5 semaines environ, lors d'un stage en entreprise.
Cette application permet de lister des informations d'un pc dans une base de données Access, ainsi que de supprimer, modifier et même ajouter un pc et ses informations !
La fonction ajouter récupère automatiquement l'adresse Ip, l'adresse Mac et le nom de l'ordinateur.
Source / Exemple :
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Imports System.Net.NetworkInformation
Imports Microsoft.Win32
Public Class Form1
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
'On initialise
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
ListBox5.Items.Clear()
ListBox6.Items.Clear()
ListBox7.Items.Clear()
ListBox8.Items.Clear()
ListBox9.Items.Clear()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''
'On crée une connexion avec la BDD
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source='" & emplacement.Text & "'")
'On crée ensuite une commande contenant la requête SQL
Dim Mycommand1 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand2 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand3 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand4 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand5 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand6 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand7 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand8 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand9 As OleDbCommand = MyConnexion.CreateCommand()
Mycommand1.CommandText = "SELECT nom_du_pc FROM pc"
Mycommand2.CommandText = "SELECT Adresse_IP FROM pc"
Mycommand3.CommandText = "SELECT Adresse_Mac FROM pc"
Mycommand4.CommandText = "SELECT Utilisateur FROM pc"
Mycommand5.CommandText = "SELECT Systeme_d_exploitation FROM pc"
Mycommand6.CommandText = "SELECT Service_Pack FROM pc"
Mycommand7.CommandText = "SELECT Information_Supplementaire FROM pc"
Mycommand8.CommandText = "SELECT Localisation FROM pc"
Mycommand9.CommandText = "SELECT id FROM pc"
'Ouvre la connexion
MyConnexion.Open()
'On crée un datareader qui lit les résultats de la requête
Dim myReader1 As OleDbDataReader = Mycommand1.ExecuteReader()
Dim myReader2 As OleDbDataReader = Mycommand2.ExecuteReader()
Dim myReader3 As OleDbDataReader = Mycommand3.ExecuteReader()
Dim myReader4 As OleDbDataReader = Mycommand4.ExecuteReader()
Dim myReader5 As OleDbDataReader = Mycommand5.ExecuteReader()
Dim myReader6 As OleDbDataReader = Mycommand6.ExecuteReader()
Dim myReader7 As OleDbDataReader = Mycommand7.ExecuteReader()
Dim myReader8 As OleDbDataReader = Mycommand8.ExecuteReader()
Dim myReader9 As OleDbDataReader = Mycommand9.ExecuteReader()
'Puis on va stocker chaques lignes trouvée dans nos listbox
Do While myReader1.Read()
ListBox1.Items.Add(myReader1.GetString(0))
Loop
Do While myReader2.Read()
ListBox2.Items.Add(myReader2.GetString(0))
Loop
Do While myReader3.Read()
ListBox3.Items.Add(myReader3.GetString(0))
Loop
Do While myReader4.Read()
ListBox4.Items.Add(myReader4.GetString(0))
Loop
Do While myReader5.Read()
ListBox5.Items.Add(myReader5.GetString(0))
Loop
Do While myReader6.Read()
ListBox6.Items.Add(myReader6.GetString(0))
Loop
Do While myReader7.Read()
ListBox7.Items.Add(myReader7.GetString(0))
Loop
Do While myReader8.Read()
ListBox8.Items.Add(myReader8.GetString(0))
Loop
Do While myReader9.Read()
ListBox9.Items.Add(myReader9.GetInt32(0))
Loop
myReader1.Close()
myReader2.Close()
myReader3.Close()
myReader4.Close()
myReader5.Close()
myReader6.Close()
myReader7.Close()
myReader8.Close()
myReader9.Close()
MyConnexion.Close()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
' Si on clique sur annuler ca quitte...
Me.Close()
End Sub
Private Sub BtnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnAdd.Click
'Pour choisir la BDD
OpenFileDialog1.CheckFileExists = True
OpenFileDialog1.Title = "Selectionner la base de donnée"
' On va rechercher la bdd
OpenFileDialog1.ShowDialog()
End Sub
Private Function GetExtension(ByVal path As String) As String
' Path est le chemin complet du fichier
Return New System.IO.FileInfo(path).Extension
End Function
Private Sub selectbase_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Histoire d'accéder à la bdd plus facilement:
'OpenFileDialog1.InitialDirectory = Application.StartupPath
End Sub
Private Sub OFD_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
'On assigne au champ emplacement l'adresse du fichier recherché
emplacement.Text = OpenFileDialog1.FileNames(0)
' On garde juste l'extension du fichier pour vérification
Dim name As String = System.IO.Path.GetFileName(emplacement.Text)
Call GetExtension(emplacement.Text)
Dim j As Integer
j = 1
If GetExtension(emplacement.Text) = ".mdb" Then
j = 0
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''' S'il s'agit d'une bdd on la teste pour la vérifier ''''''''''''''''''''''''''''
Try
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source='" & emplacement.Text & "'")
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT id FROM pc GROUP BY id"
MyConnexion.Open()
OK.Enabled = True
MyConnexion.Close()
Catch ex As Exception
MsgBox("Base de donnée non valide")
j = 1
End Try
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Si l'extension n'est pas .mdb
ElseIf j = 1 Then
OK.Enabled = False
MsgBox("Entrez la base de donnée pc.mdb")
End If
End Sub
Private Sub btn_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''Regarde si il n'y a pas d'emplacements vide''''''''''''''''''''''''''
If TextBox1.Text = "" Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If ListBox10.Text = "" And ListBox10.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox3.Text = "" And TextBox3.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les élements !")
Exit Sub
Else
If TextBox4.Text = "" And TextBox4.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox5.Text = "" And TextBox5.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox6.Text = "" And TextBox6.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox7.Text = "" And TextBox7.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox8.Text = "" And TextBox8.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox9.Text = "" And TextBox9.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
End If
End If
End If
End If
End If
End If
End If
End If
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''Enregistrement des données''''''''''''''''''''''''''''''''''''
'On crée une connexion
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source='" & emplacement.Text & "'")
'On crée notre commande contenant la requête SQL où l'on selectionne toute la table pc
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT * FROM pc"
'On crée un DataAdapter (essentiel pour enregistrer notre dataSet dans la bdd)
Dim MyDataAdapter As New OleDbDataAdapter
MyDataAdapter = New OleDbDataAdapter(Mycommand)
Dim MyDataset As New DataSet()
Dim MyDataTable As DataTable
Dim MyDataRow As DataRow
MyConnexion.Open()
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
MyDataAdapter.Fill(MyDataset, "pc")
'On met alors dans un Objet DataTable une table du DataSet
MyDataTable = MyDataset.Tables("pc")
'On crée alors une nouvelle ligne
MyDataRow = MyDataset.Tables("pc").NewRow()
'on lui implémente la valeur du champ afin d'avoir le nom du cocktail
''MyDataRow("nom_du_pc") = Me.TextBox1.Text
'ici on ajoute une ligne(row) à notre dataset
'MyDataset.Tables("pc").Rows.Add(MyDataRow)
'Pour modifier les valeurs changées dans le DataAdapter
Dim MyCommandBuilder As New OleDbCommandBuilder(MyDataAdapter)
'Mise à jour
MyDataAdapter.Update(MyDataset, "pc")
'Et voila notre BDD mise à jour
'On vide le DataSet et on le 'recharge' de nouveau.
MyDataset.Clear()
MyDataAdapter.Fill(MyDataset, "pc")
MyDataTable = MyDataset.Tables("pc")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''' ici on veut connaître l'ID du nouveau pc créé '''''''''''''''''''
Mycommand.CommandText = "SELECT id FROM pc"
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Dim temp As Int32
Do While myReader.Read()
temp = myReader.GetInt32(0)
Loop
myReader.Close()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Mycommand1 As OleDbCommand = MyConnexion.CreateCommand()
Mycommand1.CommandText = "SELECT * FROM pc "
Dim MyDataAdapter1 As New OleDbDataAdapter
MyDataAdapter1 = New OleDbDataAdapter(Mycommand1)
Dim MyDataset1 As New DataSet()
Dim MyDataTable1 As DataTable
Dim MyDataRow1 As DataRow
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
MyDataAdapter1.Fill(MyDataset1, "pc")
'Mettre dans un Objet DataTable une table du DataSet
MyDataTable1 = MyDataset1.Tables("pc")
Dim MyCommandBuilder1 As New OleDbCommandBuilder(MyDataAdapter1)
MyDataRow1 = MyDataset1.Tables("pc").NewRow()
'Maintenant on recherche les valeurs qu'il faut ajouter
MyDataRow1("id") = temp
'Dans le Datarow on ajoute à la colone dose la valeur du textbox
MyDataRow1("Localisation") = Me.TextBox8.Text
MyDataRow1("Information_Supplementaire") = Me.TextBox7.Text
MyDataRow1("Service_Pack") = Me.TextBox6.Text
MyDataRow1("Systeme_d_exploitation") = Me.TextBox5.Text
MyDataRow1("Utilisateur") = Me.TextBox4.Text
MyDataRow1("Adresse_Mac") = Me.TextBox3.Text
MyDataRow1("Adresse_IP") = Me.ListBox10.Text
MyDataRow1("nom_du_pc") = Me.TextBox1.Text
MyDataRow1("id") = Me.TextBox9.Text
'Dans le Datarow on ajoute à la colone ingrédient la valeur temp
MyDataset1.Tables("pc").Rows.Add(MyDataRow1)
'On ajoute ces enregistrement à notre dataset
MyDataAdapter1.Update(MyDataset1, "pc")
'on met à jour les enregistrement
MyDataset1.Clear()
MyDataAdapter1.Fill(MyDataset1, "pc")
MyDataTable1 = MyDataset1.Tables("pc")
'on ferme la connexion
MyConnexion.Close()
'cuseur normal
Windows.Forms.Cursor.Current = Cursors.Default
MsgBox("pc " & " enregistré avec succés")
'et on fait un BindData pour mette à jour la listbox
'et pour avoir les champs vides
BindData()
End Sub
Private Sub BindData()
'Remise à zéro des champs TextBox ....
TextBox1.Text = ""
ListBox10.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
End Sub
Private Sub cbo_Interfaces_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_Interfaces.SelectedIndexChanged
FillNetworkInfos(cbo_Interfaces.SelectedIndex)
End Sub
Private Sub FillNetworkInfos(ByVal Index As Integer)
If Index <> -1 Then
Dim Device As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces(Index)
TextBox3.Text = Tools.FormatMACAddress(Device.GetPhysicalAddress.ToString)
ListBox10.Items.Clear()
For Each AddressInfos As IPAddressInformation In Device.GetIPProperties.UnicastAddresses
If AddressInfos.Address.AddressFamily = Net.Sockets.AddressFamily.InterNetwork Then ListBox10.Items.Add(AddressInfos.Address.ToString)
Next
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call RefreshList()
'''''''''''''nom pc'''''''''''''''''''''''
Dim NomOrdinateur As String
NomOrdinateur = Environ("COMPUTERNAME")
TextBox1.Text = NomOrdinateur
End Sub
Private Sub RefreshList()
'
cbo_Interfaces.Items.Clear()
'
For Each Device As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces
cbo_Interfaces.Items.Add(Device.Name)
Next
'
cbo_Interfaces.Enabled = cbo_Interfaces.Items.Count <> 0
cbo_Interfaces.SelectedIndex = IIf(cbo_Interfaces.Items.Count > 0, 0, -1)
'
End Sub
Private Sub btn_save_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_save.Click
If OK.Enabled = False Then
MsgBox("Connectez vous avant")
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If OK.Enabled = True Then
''''''''''''''''''''''''''''Regarde si il n'y a pas d'emplacements vide''''''''''''''''''''''''''
If TextBox1.Text = "" Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If ListBox10.Text = "" And ListBox10.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox3.Text = "" And TextBox3.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les élements !")
Exit Sub
Else
If TextBox4.Text = "" And TextBox4.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox5.Text = "" And TextBox5.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox6.Text = "" And TextBox6.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox7.Text = "" And TextBox7.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox8.Text = "" And TextBox8.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
Else
If TextBox9.Text = "" And TextBox9.Visible = True Then
MsgBox("Vous devez saisir le nom de tous les éléments !")
Exit Sub
End If
End If
End If
End If
End If
End If
End If
End If
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''Enregistrement des données''''''''''''''''''''''''''''''''''''
'On crée une connexion
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source='" & emplacement.Text & "'")
'On crée notre commande contenant la requête SQL où l'on selectionne toute la table pc
Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
Mycommand.CommandText = "SELECT * FROM pc"
'On crée un DataAdapter (essentiel pour enregistrer notre dataSet dans la bdd)
Dim MyDataAdapter As New OleDbDataAdapter
MyDataAdapter = New OleDbDataAdapter(Mycommand)
Dim MyDataset As New DataSet()
Dim MyDataTable As DataTable
Dim MyDataRow As DataRow
MyConnexion.Open()
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
MyDataAdapter.Fill(MyDataset, "pc")
'On met alors dans un Objet DataTable une table du DataSet
MyDataTable = MyDataset.Tables("pc")
'On crée alors une nouvelle ligne
MyDataRow = MyDataset.Tables("pc").NewRow()
'on lui implémente la valeur du champ afin d'avoir le nom du cocktail
''MyDataRow("nom_du_pc") = Me.TextBox1.Text
'ici on ajoute une ligne(row) à notre dataset
'MyDataset.Tables("pc").Rows.Add(MyDataRow)
'Pour modifier les valeurs changées dans le DataAdapter
Dim MyCommandBuilder As New OleDbCommandBuilder(MyDataAdapter)
'Mise à jour
MyDataAdapter.Update(MyDataset, "pc")
'Et voila notre BDD mise à jour
'On vide le DataSet et on le 'recharge' de nouveau.
MyDataset.Clear()
MyDataAdapter.Fill(MyDataset, "pc")
MyDataTable = MyDataset.Tables("pc")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''' ici on veut connaître l'ID du nouveau pc créé '''''''''''''''''''
Mycommand.CommandText = "SELECT id FROM pc"
Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
Dim temp As Int32
Do While myReader.Read()
temp = myReader.GetInt32(0)
Loop
myReader.Close()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim Mycommand1 As OleDbCommand = MyConnexion.CreateCommand()
Mycommand1.CommandText = "SELECT * FROM pc "
Dim MyDataAdapter1 As New OleDbDataAdapter
MyDataAdapter1 = New OleDbDataAdapter(Mycommand1)
Dim MyDataset1 As New DataSet()
Dim MyDataTable1 As DataTable
Dim MyDataRow1 As DataRow
'Avec l'aide de la propriété Fill du DataAdapter charger le DataSet
MyDataAdapter1.Fill(MyDataset1, "pc")
'Mettre dans un Objet DataTable une table du DataSet
MyDataTable1 = MyDataset1.Tables("pc")
Dim MyCommandBuilder1 As New OleDbCommandBuilder(MyDataAdapter1)
MyDataRow1 = MyDataset1.Tables("pc").NewRow()
'Maintenant on recherche les valeurs qu'il faut ajouter
MyDataRow1("id") = temp
'Dans le Datarow on ajoute à la colone dose la valeur du textbox
MyDataRow1("Localisation") = Me.TextBox8.Text
MyDataRow1("Information_Supplementaire") = Me.TextBox7.Text
MyDataRow1("Service_Pack") = Me.TextBox6.Text
MyDataRow1("Systeme_d_exploitation") = Me.TextBox5.Text
MyDataRow1("Utilisateur") = Me.TextBox4.Text
MyDataRow1("Adresse_Mac") = Me.TextBox3.Text
MyDataRow1("Adresse_IP") = Me.ListBox10.Text
MyDataRow1("nom_du_pc") = Me.TextBox1.Text
MyDataRow1("id") = Me.TextBox9.Text
'Dans le Datarow on ajoute à la colone ingrédient la valeur temp
MyDataset1.Tables("pc").Rows.Add(MyDataRow1)
'On ajoute ces enregistrement à notre dataset
MyDataAdapter1.Update(MyDataset1, "pc")
'on met à jour les enregistrement
MyDataset1.Clear()
MyDataAdapter1.Fill(MyDataset1, "pc")
MyDataTable1 = MyDataset1.Tables("pc")
'on ferme la connexion
MyConnexion.Close()
'cuseur normal
Windows.Forms.Cursor.Current = Cursors.Default
MsgBox("pc " & " enregistré avec succés")
'et on fait un BindData pour mette à jour la listbox
'et pour avoir les champs vides
BindData()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'On initialise
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
ListBox5.Items.Clear()
ListBox6.Items.Clear()
ListBox7.Items.Clear()
ListBox8.Items.Clear()
ListBox9.Items.Clear()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''
'On crée une connexion avec la BDD
Dim MyConnexion23 As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source='" & emplacement.Text & "'")
'On crée ensuite une commande contenant la requête SQL
Dim Mycommand11 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand22 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand33 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand44 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand55 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand66 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand77 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand88 As OleDbCommand = MyConnexion.CreateCommand()
Dim Mycommand99 As OleDbCommand = MyConnexion.CreateCommand()
Mycommand11.CommandText = "SELECT nom_du_pc FROM pc"
Mycommand22.CommandText = "SELECT Adresse_IP FROM pc"
Mycommand33.CommandText = "SELECT Adresse_Mac FROM pc"
Mycommand44.CommandText = "SELECT Utilisateur FROM pc"
Mycommand55.CommandText = "SELECT Systeme_d_exploitation FROM pc"
Mycommand66.CommandText = "SELECT Service_Pack FROM pc"
Mycommand77.CommandText = "SELECT Information_Supplementaire FROM pc"
Mycommand88.CommandText = "SELECT Localisation FROM pc"
Mycommand99.CommandText = "SELECT id FROM pc"
'Ouvre la connexion
MyConnexion.Open()
'On crée un datareader qui lit les résultats de la requête
Dim myReader1 As OleDbDataReader = Mycommand11.ExecuteReader()
Dim myReader2 As OleDbDataReader = Mycommand22.ExecuteReader()
Dim myReader3 As OleDbDataReader = Mycommand33.ExecuteReader()
Dim myReader4 As OleDbDataReader = Mycommand44.ExecuteReader()
Dim myReader5 As OleDbDataReader = Mycommand55.ExecuteReader()
Dim myReader6 As OleDbDataReader = Mycommand66.ExecuteReader()
Dim myReader7 As OleDbDataReader = Mycommand77.ExecuteReader()
Dim myReader8 As OleDbDataReader = Mycommand88.ExecuteReader()
Dim myReader9 As OleDbDataReader = Mycommand99.ExecuteReader()
'Puis on va stocker chaques lignes trouvée dans nos listbox
Do While myReader1.Read()
ListBox1.Items.Add(myReader1.GetString(0))
Loop
Do While myReader2.Read()
ListBox2.Items.Add(myReader2.GetString(0))
Loop
Do While myReader3.Read()
ListBox3.Items.Add(myReader3.GetString(0))
Loop
Do While myReader4.Read()
ListBox4.Items.Add(myReader4.GetString(0))
Loop
Do While myReader5.Read()
ListBox5.Items.Add(myReader5.GetString(0))
Loop
Do While myReader6.Read()
ListBox6.Items.Add(myReader6.GetString(0))
Loop
Do While myReader7.Read()
ListBox7.Items.Add(myReader7.GetString(0))
Loop
Do While myReader8.Read()
ListBox8.Items.Add(myReader8.GetString(0))
Loop
Do While myReader9.Read()
ListBox9.Items.Add(myReader9.GetInt32(0))
Loop
myReader1.Close()
myReader2.Close()
myReader3.Close()
myReader4.Close()
myReader5.Close()
myReader6.Close()
myReader7.Close()
myReader8.Close()
myReader9.Close()
MyConnexion.Close()
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub
Private Sub modif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles modif.Click
If OK.Enabled = True Then
Form2.ShowDialog()
End If
If OK.Enabled = False Then
MsgBox("Connectez vous avant !")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If OK.Enabled = True Then
Form3.ShowDialog()
End If
If OK.Enabled = False Then
MsgBox("Connectez vous avant !")
End If
End Sub
End Class
Conclusion :
Cette application est utile pour les personnes voulant lister dans un fichier tout les ordinateurs qu'il possède pour ne pas se déplace sur le pc pour avoir les informations.
Et parti dans mon élan, j'ai aussi créer un installateur pour les personnes n'ayant pas Vb.
Cette application a été conçu avec Visual Studio 2010, donc normalement compatible .NET Framework 4 seulement, mais je l'ai re développé avec Visual Studio 2005 pour qu'elle soit compatible avec .NET Framework 2 SP2, comme cela elle sera compatible sur pratiquement tout les ordinateurs .
La base de données par défaut est dans le dossier \bin .
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.