1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Gestion base de données avec vb.net

Gestion base de données avec vb.net

Soyez le premier à donner votre avis sur cette source.

Snippet vu 29 157 fois - Téléchargée 20 fois

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

Ajouter un commentaire Commentaires
elguermat
Messages postés
1
Date d'inscription
vendredi 26 janvier 2007
Statut
Membre
Dernière intervention
3 juillet 2013
3 juil. 2013 à 14:04
Bonjour,
j'utilise une variable xref de type string
j'ai u n probleme dans l'instruction:
xref = InputBox("Donnez la référence: ", "Recherche")
dts.Clear() sql "select stock.* from stock where Référence xref "
l'égalité Référence=xref ne fonctionne pas
merci de me guider
IkramSaidani
Messages postés
2
Date d'inscription
jeudi 6 décembre 2012
Statut
Membre
Dernière intervention
24 février 2013
24 févr. 2013 à 16:34
Ce code ne marche pas pour moi .. svp, aidez moi
IkramSaidani
Messages postés
2
Date d'inscription
jeudi 6 décembre 2012
Statut
Membre
Dernière intervention
24 février 2013
24 févr. 2013 à 16:32
bonjour, pour moi ce code ne marche rien .. il s'affiche directement "Échec d'enregistrements" ?? svp, aidez moi ..
diaezzine
Messages postés
7
Date d'inscription
vendredi 15 juillet 2011
Statut
Membre
Dernière intervention
18 août 2011
11 août 2011 à 19:54
mais un peu compliqué 6/10
fawzi67
Messages postés
6
Date d'inscription
samedi 16 août 2008
Statut
Membre
Dernière intervention
18 janvier 2009
16 août 2008 à 10:39
slt, merci beaucoup.
je vait tester ce code source
Afficher les 11 commentaires
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.