1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43
| Private Sub DataGridview1_CellMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDoubleClick
Dim cnx As New SqlConnection
cnx.ConnectionString = ("Data Source=PC\SQLEXPRESS;Initial Catalog=Fournisseur;Integrated Security=True;Pooling=False;")
cnx.Open()
Dim Val, val1, val2, val3 As String
Val = CType(DataGridView1.CurrentRow.Cells(0).Value.ToString, Integer)
val1 = DataGridView1.CurrentRow.Cells(5).Value.ToString
val2 = DataGridView1.CurrentRow.Cells(6).Value.ToString
val3 = DataGridView1.CurrentRow.Cells(13).Value.ToString
Try
Dim cmd As New SqlCommand("insert into LignedeTicket(NumLigne,NumTicket,Code_a_Barre,DesignationArt,Prix_Vente_TTC,Qté)select isnull(max(NumLigne),0) + 1,'" & Val & "','" & val1 & "','" & val2 & "',1,'" & val3 & "' from LignedeTicket", cnx)
Dim affectedrows As String = cmd.ExecuteNonQuery()
Dim cmd1 As New SqlCommand("SELECT * FROM LignedeTicket", cnx)
Dim dt As New DataTable
Dim ObjDataAdapter As SqlDataAdapter
Dim ObjDataSet As New DataSet
ObjDataAdapter = New SqlDataAdapter(cmd1)
ObjDataAdapter.Fill(ObjDataSet, "LignedeTicket")
dt = ObjDataSet.Tables("LignedeTicket")
Caisse.DataGridView1.DataSource = dt
Caisse.DataGridView1.SelectedColumns.ToString()
Catch ex As Exception
MsgBox("Article déjà ajouté !", MsgBoxStyle.Critical)
End Try
cnx.Close()
Me.Close()
End Sub |
Partager