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_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DataGridView1.KeyPress
Dim cnx As New SqlConnection
cnx.ConnectionString = ("Data Source=PC\SQLEXPRESS;Initial Catalog=Fournisseur;Integrated Security=True;Pooling=False;")
cnx.Open()
Dim val1, val2 As String
Dim val As Integer
val = CInt(DataGridView1.SelectedRows(0).Cells(0).Value)
val1 = DataGridView1.SelectedRows(0).Cells(5).Value.ToString
val2 = DataGridView1.SelectedRows(0).Cells(6).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,'" & Caisse.NumTicket.Text & "','" & val & "','" & val1 & "','" & val2 & "',1 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