Soyez le premier à donner votre avis sur cette source.
Snippet vu 29 157 fois - Téléchargée 20 fois
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
3 juil. 2013 à 14:04
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
24 févr. 2013 à 16:34
24 févr. 2013 à 16:32
11 août 2011 à 19:54
16 août 2008 à 10:39
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.