Gestion base de données avec vb.net

Commenter

Contenu du snippet

dammak abdelfatteh
cette interface permet la gestion d'une base de donnée sur sql server avec vb.net

Source / Exemple : 


Imports System.Data
Imports System.Data.OleDb
Imports System.Data.SqlClient
Imports Microsoft.VisualBasic
Imports System.Data.Sql
Imports System.IO
Public Class Form1
    Dim connexion As New SqlConnection
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub
    Public Sub connection()

        connexion.ConnectionString = "Data Source=localhost;Initial Catalog=base;Integrated Security=True"
        connexion.Open()
        If connexion.State = ConnectionState.Open Then
            MsgBox("Connexion reussite", MsgBoxStyle.Exclamation, "Status")
        Else
            MsgBox("Connexion non reussite", MsgBoxStyle.Critical, "Status")
        End If
        connexion.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        AjouterArticle()
    End Sub
    Public Sub AjouterArticle()
        Try
            connection()
            Dim strRequete As String = "SELECT * FROM Article "
            Dim dtt As DataTable
            Dim oSqlDataAdapter As New SqlDataAdapter(strRequete, connexion)
            Dim oDataSet As New DataSet("Article")
            oSqlDataAdapter.Fill(oDataSet, "Article")
            dtt = oDataSet.Tables("Article")

            oSqlDataAdapter.InsertCommand = New SqlCommand("INSERT INTO Article(COD_AR,NOM_AR,QTE_AR) Values(@COD_AR,@NOM_AR,@QTE_AR)", connexion)
            oSqlDataAdapter.InsertCommand.Parameters.Add("@COD_AR", SqlDbType.Int, 30, "COD_AR")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@NOM_AR", SqlDbType.NChar, 15, "NOM_AR")
            oSqlDataAdapter.InsertCommand.Parameters.Add("@QTE_AR", SqlDbType.Int, 100, "QTE_AR")
           
            Dim oDataRow As DataRow
            Dim byteArray As Byte() = {}

            '''''''''''''''''''test des champs saisies''''''''''''''''

            '''''''''''''''''''fin test champs''''''''''''''''''''''''
            oDataRow = oDataSet.Tables("Article").NewRow()
            oDataRow("COD_AR") = code.Text
            oDataRow("NOM_AR") = nom.Text
            oDataRow("QTE_AR") = qte.Text
            

            oDataSet.Tables("Article").Rows.Add(oDataRow)
            oSqlDataAdapter.Update(oDataSet, "Article")

            'on vide le dataset pour le recréer avec les nouvelles données 
            oDataSet.Clear()
            oSqlDataAdapter.Fill(oDataSet, "Article")
            dtt = oDataSet.Tables("Article")
            MsgBox("Article enregistré avec succés", MsgBoxStyle.Information, "Status")
            connexion.Close()
        Catch
            MsgBox("Echec d'enregistrement")
        End Try
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        nom.Visible = False
        qte.Visible = False
        Label2.Visible = False
        Label3.Visible = False
        Button1.Enabled = False
        Button2.Enabled = False
        Button4.Visible = True
    End Sub
    Public Sub supprimer()
        Try
            Dim req As String
            Dim query As SqlCommand
            connection()

            req = "delete from Article where COD_AR=" & code.Text & ""
            query = New SqlCommand(req)
            query.Connection = connexion
            If query.ExecuteNonQuery() Then
                MsgBox("L'article " & code.Text & "est supprimé avec succés", MsgBoxStyle.Information, "Status")
            Else
                MsgBox("Echec suppression de l'article " & code.Text & "", MsgBoxStyle.Critical, "Status")
            End If
            connexion.Close()
        Catch ex As Exception
            MsgBox("Erreur", MsgBoxStyle.Critical, "Status")
        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim req As String
            Dim query As SqlCommand
            connection()
            

            req = "update Personnel set NOM_AR='" & nom.Text & "', QTE_AR=" & qte.Text & " where COD_AR = " & code.Text & ""
            query = New SqlCommand(req)
            query.Connection = connexion
            If query.ExecuteNonQuery() Then
                MsgBox("L'article " & code.Text & " est modifié avec succés", MsgBoxStyle.Information, "Status")
            Else
                MsgBox("Echec modification de l'article " & code.Text & "", MsgBoxStyle.Critical, "Status")

            End If

            connexion.Close()
        Catch ex As Exception
            MsgBox("Erreur", MsgBoxStyle.Critical, "Status")
        End Try
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        supprimer()
    End Sub
End Class

Conclusion :


dammak abdelfatteh ,merci

A voir également

S'inscrire maintenant

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.