مذكرة تخرجي 2014----> سارق الاحزان

[الاستاذة رجاء]

سأضع الكود الخاص بهذه الواجهة و هو كود الخاص بالازرار ajouter modifier .supprimer et annuler

[الاستاذة رجاء]

Imports System.Data
Imports System.Data.SqlClient
Public Class Form8
Dim ObjetConnection_sql As SqlConnection
' Déclaration Objet Commande
Dim ObjetCommand_sql As SqlCommand
' Déclaration Objet DataAdapter
Dim ObjetDataAdapter_sql As SqlDataAdapter
' Déclaration Objet DataSet
Dim ObjetDataSet_sql As New DataSet 'Attention au New
'String contenant la 'Requête SQL'
Dim strSql_sql As String
' Déclaration Objet DataTable
Dim ObjetDataTable_sql As DataTable
' Déclaration Objet DataRow (ligne)
Dim strConn_sql As String

Sub connection_sql()
'strConn = "Data Source=" + My.Computer.Name + "\SQLExpress;;Initial Catalog=test;uid=sa;pwd=sa;"
strConn_sql = "Data Source=192.168.1.4;Initial Catalog=cabinet;uid=sa;pwd=sa;"
'Instanciation d'un Objet Connexion
ObjetConnection_sql = New SqlConnection()
'Donner à la propriété ConnectionString les paramètres de connexion
ObjetConnection_sql.ConnectionString = strConn_sql
'Ouvrir la connexion
Try

ObjetConnection_sql.Open()

Catch ex As SqlException

MsgBox(ex.Message)

End Try



'Instancier un objet Commande

ObjetCommand_sql = New SqlCommand(strSql_sql)

'Instancier un objet Adapter

ObjetDataAdapter_sql = New SqlDataAdapter(ObjetCommand_sql)

'initialiser l'objet Command

ObjetCommand_sql.Connection() = ObjetConnection_sql

'Avec l'aide de la propriété Fill du DataAdapter charger le DataSetF
'ObjetDataAdapter.Fill(ObjetDataSet2, "ts2")
ObjetDataAdapter_sql.Fill(ObjetDataSet_sql, "comp")
ObjetDataTable_sql = ObjetDataSet_sql.Tables("comp")
End Sub

Sub clear_sql()
ObjetConnection_sql = Nothing

ObjetCommand_sql = Nothing

ObjetDataAdapter_sql = Nothing

'Objet déconnectée

ObjetDataSet_sql = Nothing

ObjetDataTable_sql = Nothing
ObjetDataSet_sql = New DataSet
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String = ""
If TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox3.Text = "" Or ComboBox1.Text = "" Or TextBox1.Text = "" Then
MsgBox("Il ya des champs vides,voulez vous les remplit???", MsgBoxStyle.Exclamation)
Else


If CheckedListBox1.CheckedItems.Count > 0 Then
For i As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
s += CheckedListBox1.CheckedItems(i)
Next
End If

ObjetCommand_sql.CommandText = "INSERT INTO comp (nom_p,pren_p,mod_pay,mont_suiv,comt,dat_pay,num_f ) Values('" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox3.Text & "','" & ComboBox1.Text & "','" & s & "','" & CDate(DateTimePicker1.Text).ToString("MM/dd/yyyy HH:mm:ss") & "','" & TextBox1.Text & "')"
ObjetCommand_sql.ExecuteNonQuery()
MsgBox("L'insertion ce fait avec succee", MsgBoxStyle.Information)

clear_sql()
connection_sql()
DataGridView1.DataSource = ObjetDataTable_sql
End If
End Sub

Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strSql_sql = "select * from comp"
connection_sql()
DataGridView1.DataSource = ObjetDataTable_sql
End Sub


Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim s As String = ""
If CheckedListBox1.CheckedItems.Count > 0 Then
For i As Integer = 0 To CheckedListBox1.CheckedItems.Count - 1
s += CheckedListBox1.CheckedItems(i)
Next
End If
ObjetCommand_sql.CommandText = "UPDATE comp SET nom_p ='" & TextBox2.Text & "',pren_p = '" & TextBox3.Text & "',mod_pay = '" & ComboBox3.Text & "',mont_suiv = '" & ComboBox1.Text & "',comt = '" & s & "',dat_pay = '" & CDate(DateTimePicker1.Text).ToString("MM/dd/yyyy HH:mm:ss") & "' WHERE num_f = '" & TextBox1.Text & "'"
ObjetCommand_sql.ExecuteNonQuery()
MsgBox("voulez vous vraiment modifier?", MsgBoxStyle.YesNo)

clear_sql()
connection_sql()
DataGridView1.DataSource = ObjetDataTable_sql
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ObjetCommand_sql.CommandText = " delete from comp where num_f = '" & TextBox1.Text & "'"
ObjetCommand_sql.ExecuteNonQuery()
MsgBox("voulez vous vraiment le suprimer?", MsgBoxStyle.YesNo)

clear_sql()
connection_sql()
DataGridView1.DataSource = ObjetDataTable_sql
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Do you want to exit?", MessageBoxButtons.YesNo)
Me.Hide()

End Sub

Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckedListBox1.SelectedIndexChanged

End Sub
End Class

[l_adel]

tu ai travaillé en monome ?

[الاستاذة رجاء]

المشاركة الأصلية كتبت بواسطة l_adel

tu ai travaillé en monome ?

لا لا خدمنا في 3