Dim Connection As New OleDb.OleDbConnection() Dim AdapTContact As OleDb.OleDbDataAdapter Dim DtSet As New DataSet() Dim Sql As string 'Parametrage de la chaine de connection Connection.ConnectionString = "provider=microsoft.jet.oledb.4.0;" & _ "data source= " & Application.StartupPath & "" & "testbdd.mdb;" ‘ouverture de la connection Connection.Open() ‘definition de la requete Sql="select * from NomdemaTable", Connection ‘definition du DataAdapter AdapTContact=new OleDbDataAdapter (Sql, connection) ' remplissage du dataset AdapTContact.Fill(DtSet, "NomdemaTable") ‘Fermeture de la connection Connection.Close()
'definition de notre table Dim Matable As DataTable Matable = DtSet.Tables(" AdapTContact.Fill(DtSet, "NomdemaTable") 'cree un objet dataview pour filtrer les enregistrements Dim filtre As New DataView(Matable) 'les etoiles sont falcutatives ' si tu cherche un mot exact tu les enleves ' si cherche un mot commencant par , tu les laisse filtre.RowFilter = "nom like'*" & recherche & "*'" 'le nombre d'enregistrement retourné par la recherche Dim nbr As Integer nbr = filtre.Count 'pour toute les lignes trouvé dim i as integer for i=0 to nbr 'affiche les valeurs Tcleunik.Text = filtre.Item(i)(0) 'i la ligne, 0 le champs Tnom.Text = filtre.Item(i)(1) etc.. next i
Connection.Open() Dim CmdBuild As OleDbCommandBuilder CmdBuild = New OleDb.OleDbCommandBuilder(AdapTContact) AdapTContact.InsertCommand = CmdBuild.GetInsertCommand() AdapTContact.Update(DtSet, "Nomdelatable") Connection.Close()
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System.Data Imports System.Data.OleDb Imports System.Net Imports Microsoft.VisualBasic Imports System.Data.Common Public Class Form1 Private dts As New DataSet Private cmd As OleDbCommand Private rownum As Integer Private dtr As DataRow Dim cn As New OleDbConnection Dim dt As New DataTable Dim da As New OleDbDataAdapter Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then MessageBox.Show("Le champ est vide, Vous devez selectionez un choix de recherche et remplir le champ vide", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error) cn.Close() Exit Sub End If Try Button2.Enabled = False dt.Clear() cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\docbib\livrs1.mdb" DataGridView1.DataSource = Nothing cn.Open() Dim str As String str "Select * from bib Where NumLivre '" & TextBox1.Text & "'" da = New OleDbDataAdapter(str, cn) da.Fill(dt) If rownum > dt.Rows.Count - 1 Then MessageBox.Show("Il n'existe aucunes données pour le Num DE livre", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error) TextAuteur.Text = "" TextCollection.Text = "" TextEdition.Text = "" TextTitre.Text = "" TextEntréeSortie.Text = "" TextNumLivre.Text = "" TextISBN.Text = "" TextCouleur.Text = "" cn.Close() Exit Sub Else 'Sinon affichage des données dans les textbox DataGridView1.DataSource = dt Me.TextAuteur.Text = dt.Rows(rownum).Item("Auteur") Me.TextCollection.Text = dt.Rows(rownum).Item("Collection") Me.TextEdition.Text = dt.Rows(rownum).Item("Éditions") Me.TextTitre.Text = dt.Rows(rownum).Item("Titre") If dt.Rows(rownum).Item("Entrée/Sortie") = "Nondisponible" Then TextEntréeSortie.BackColor = Color.OrangeRed TextEntréeSortie.ForeColor = Color.Yellow Button2.Enabled = False Else TextEntréeSortie.BackColor = Color.Green TextEntréeSortie.ForeColor = Color.Yellow Button2.Enabled = True End If Me.TextEntréeSortie.Text = dt.Rows(rownum).Item("Entrée/Sortie") Me.TextNumLivre.Text = dt.Rows(rownum).Item("NumLivre") Me.TextISBN.Text = dt.Rows(rownum).Item("ISBN") Me.TextCouleur.Text = dt.Rows(rownum).Item("Couleur") Button1.Enabled = False Button1.BackColor = Color.GhostWhite End If Catch ex As Exception End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim tex As String tex = "Nondisponible" da.Fill(dts, "bib") 'récupération de la ligne dans le datarow dtr = dts.Tables("bib").Rows(rownum) 'modification des donées Me.TextEntréeSortie.Text = tex TextEntréeSortie.BackColor = Color.OrangeRed TextEntréeSortie.ForeColor = Color.Yellow dtr("Entrée/Sortie") = Me.TextEntréeSortie.Text dtr("Auteur") = Me.TextAuteur.Text dtr("Collection") = Me.TextCollection.Text dtr("ISBN") = Me.TextISBN.Text dtr("NumLivre") = Me.TextNumLivre.Text dtr("Couleur") = Me.TextCouleur.Text dtr("Éditions") = Me.TextEdition.Text dtr("Titre") = Me.TextTitre.Text Dim CmdBuild As OleDbCommandBuilder CmdBuild = New OleDb.OleDbCommandBuilder(da) da.Update(dts, "bib") Exit Sub End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click TextBox1.Text = "" TextAuteur.Text = "" TextCollection.Text = "" TextEdition.Text = "" TextTitre.Text = "" TextEntréeSortie.Text = "" TextNumLivre.Text = "" TextISBN.Text = "" TextCouleur.Text = "" dts.Clear() DataGridView1.DataSource = Nothing dt.Clear() cn.Close() Button1.Enabled = True Button1.BackColor = Color.Firebrick Button2.Enabled = True End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button2.Enabled = False End Sub End Class
da.Update(dts, "bib")