GESTION BASE DE DONNÉES AVEC VB.NET

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

21 juillet 2008 13:32:58 :

regulation de la connexion bd

21 juillet 2008 13:41:28 :

bd ok