Gestion base de données avec vb.net
Soyez le premier à donner votre avis sur cette source.
Snippet vu 28 762 fois - Téléchargée 19 fois
Contenu du snippet
dammak abdelfatteh
cette interface permet la gestion d'une base de donnée sur sql server avec vb.net
dammak abdelfatteh ,merci
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
- Imports system.data.oledb
- Imports system.data - Meilleures réponses
- Imports system.data.oledb vb.net - Meilleures réponses
- Excel base de données pour vb.net - Codes sources - Visual Basic / VB.NET (VB.NET)
- Problème base de donnée Access vb.net ✓ - Forum - VB.NET
- Ajouter Base de Donnée A VB.net ✓ - Forum - VB.NET
- Base de données .mdb - vb.net ✓ - Forum - VB.NET
- Copier table dans une autre table de 2 base de données en vb.net ✓ - Forum - VB.NET
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
je vait tester ce code source
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.