17-08-18, 04:39 PM
كود :
جرب كذا
Try
If con.State = ConnectionState.Closed Then
con.Open()
End If
Dim cmd As New OleDbCommand
cmd.Connection = con
cmd.CommandType = CommandType.Text
cmd.CommandText = "insert into saless (cvb,b,c,d,f,h,i) values (@cvb, @B, @c, @d, @f, @h, @i)"
cmd.Parameters.Add("@cvb", Label15.Text)
cmd.Parameters.Add("@b", Label16.Text)
cmd.Parameters.Add("@c", Label17.Text)
cmd.Parameters.Add("@d", TextBox3.Text)
cmd.Parameters.Add("@f", Label13.Text)
cmd.Parameters.Add("@h", Label10.Text)
cmd.Parameters.Add("@i", Label14.Text)
cmd.ExecuteScalar()
con.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
